So, mit den beiden von mir genannten Erweiterungen geht es.
In der repeat..until-Schleife zum Auslesen der Kopfdaten weiß ich, dass deren Länge 3 Zeichen haben muss. Ich warte also so lange, bis drei Zeichen im InBuffer liegen und hole sie mir dann via GetChar raus, wobei ich diese Zeichen NICHT aus dem InBuffer lösche bzw. löschen lasse. So habe ich die Länge und kann in der nachfolgenden Schleife warten, bis 3 + errechnete Zeichenlänge im InBuffer sind.
Dann lese ich alle Zeichen aus und lasse sie löschen.
Die zweite Erweiterung der Komponenten ist die Abfrage von InAvailMessage. Ist in meinen Schleifen der Wert true, warte ich weiter.
Delphi-Quellcode:
repeat
Application.ProcessMessages;
ApdCOMPort.ProcessCommunications;
if ApdComPort.Dispatcher.GetInAvailMessageState then // true, wenn InAvailMessage = true
Continue;
until (TimeoutFlag) or (ApdComPort.InBuffUsed >= ASize);
if (not TimeoutFlag) then
begin
ApdComPort.GetChar({true} oder {false});
end;
Gruß, Carsten