Hi everybody,
I need some help witch my application sending messages via $3380 to the FS. I don't know how to get this working, because I tried different ways but with the same result.
First way was a test how to send a char.
i := 5;
k := 'h'; //k = Char
FSUIPC_Write($3380, 1, @k, dwResult);
FSUIPC_Write($32FA, 2, @i, dwResult);
FSUIPC_Process(dwResult);
Result is 'h' ;)
Next one is sending a String
i := 5;
k := 'does this work?'; //k = String
FSUIPC_Write($3380, 1, @k, dwResult);
FSUIPC_Write($32FA, 2, @i, dwResult);
FSUIPC_Process(dwResult);
Result is 'h' again.
The next one I have tested was with an array of char (field)
texte := 'does this work?'; //String
SetLength(Field, Length(texte));
for a := 0 to Length(texte)-1 Do
Field[a]:=texte[a+1];
for a := 0 to Length(field)-1 Do begin
FSUIPC_Write($3380, 1, @field[a], dwResult);
end;
FSUIPC_Write($32FA, 2, @i, dwResult);
FSUIPC_Process(dwResult);
Result: The last element of the array '?'.
I have tested some other ways like replacing the FSUIPC call, but nothing made me happy. Maybe some else has an idea?
regards
Oliver
PS:@Pete I know you are not family with Delphi ;)