Moin !
Wir haben einen USB Logger den wir auslesen. Dieser Logger sendet nach einem Kommando einen Block an Daten (~40.000 Telegramme á 57 Byte).
Also komponente verwenden wir NrComm (HID) - aber das spielt hier eh keine wichtige Rolle.
Die Daten werdenfolgendermassen empfangen:
Delphi-Quellcode:
procedure TForm1.HidAfterReceive(
Com: TObject; Buffer: Pointer;
Received: Cardinal);
var ByteData : AnsiString;
i : integer;
_msg : PHIDFeedback;
begin
Inc(HidCount);
for i := 0
to Received - 1
do ByteData := ByteData + PAnsiChar(Buffer)[i];
New(_msg);
_msg.Data := ByteData;
_msg.HidCount := HidCount;
PostMessage(self.Handle, WM_MY_HID_DATA, 0, Integer(_msg));
// Daten übergeben
end;
Und so ausgewertet:
Delphi-Quellcode:
procedure TForm1.DecodeHID(var Msg: TMessage);
var _msg : PHIDFeedback;
begin
_msg := nil;
try
_msg := PHIDFeedback(Msg.LParam);
// hier passiert noch mehr ...
memo1.Lines.Add('[' + IntToStr(_Msg.HidCount) + '] ' + string(_msg.Hex));
finally
Dispose(_msg); // Pointer löschen
end;
end;
Wir nutzen also Windows Messages um die Daten aus dem Empfangsthread in den Mainthread zur Auswertung zu bekommen.
Diese Technik hat bis dato immer super funktioniert. Aber nun ergeben sich mit einem neuen Logger Probleme.
Wenn die Zahl der Telegramme zu gross wird (so ab > 30.000) dann gehen teilweise Telegramme verloren.
Gibt es bei den windows Messages irgendwelche Grenzen die man nicht überschreiten darf? Hat die queue nur eine bestimmte maximale Länge?