Datenweiterleitung zwischen TIdTCPClient und Serial Port

[Blumix]

Hallo jaenicke,

ich empfange vom TCP Client TIdBytes und sende diese direkt an den Seriellen Port.
Die nachfolgende Funktion läuft in einem Thread.

Delphi-Quellcode:

    if (TCPClient.IOHandler.CheckForDataOnSource(100)) then
    begin
      TCPClient.IOHandler.ReadBytes(ABytes, -1, False);
      if (Length(ABytes) > 0) then
      begin
        ComPort.Write(ABytes[0], Length(ABytes));
      end;
    end;

Ich habe die Datenpakete auch schon mit dem "Free Serial Port Monitor" verglichen und mir sind keine Veränderungen aufgefallen.