Hallo Rainer1000
benutz doch die Procedure SendData (Data : Pointer; Size : DWord); //Send binary Data
lege ein Array ob Byte an, schreibe dann die Daten rein und schicke es ab
kannst natürlich auch ein Array mit nur 2 Byte anlegen, im array[0] steht dann die ID und im array[1] der code für dein Zeichen und dann sendest du immer nur die 2 Bytes was ja 1 Zeichen auf dem Display ergibt.
Das kann doch nicht so schwer sein, nur musst du warscheinlich die ausgerichtete Recordfelder im Delphi abschalten, sonst schickt er irgendwas
Delphi-Quellcode:
Procedure TForm1.Sende(ID: Char; Str: String);
Var
i: Integer;
S: String;
Begin
For i := 1 To length(Str) Do
Begin
S := ID + str[i];
SerialPortNG1.SendString(S);
repeat
Application.ProcessMessages;
until not SerialPortNG1.SendInProgress;
End;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
SerialPortNG1.Active := True;
Sende('0','Test');
end;
so gehts aber auch
Gruß
MrOuzo