Datenweiterleitung zwischen TIdTCPClient und Serial Port

[mjustin]

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;

Wie lang ist das Array ABytes? Wird es durch ReadBytes passend gemacht? Vermutlich nicht, es wird nach dem Aufruf von ReadBytes die Länge haben die es vorher hatte. Was die konstante Größe der Datenpakete erklärt, die an die serielle Schnittstelle gesendet wird.

Zitat:

when AByteCount contains -1, data is read from the data source until it is disconnected or the ReadTimeout value has elapsed.

ReadBytes reads data from the IOHandler data source until the number of bytes in AByteCount has been accumulated in InputBuffer, or CheckForDisconnect interrupts the read request.

Das bedeutet, der Code kann nicht funktionieren, da die Anzahl der gelesenen Bytes unbekannt ist. Sie kann kleiner oder gleich der Pufferlänge sein.