Übertragung von Buchstaben per RS232?

[MrOuzo]

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