Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
Delphi 12 Athens
|
AW: Immer nur 3 bytes aus Empfangsdaten weiterreichen..
13. Mär 2014, 19:45
Deklariere dir einen Buffer für die verbleibenden Zeichen. Dann könnte die Routine so aussehen:
Delphi-Quellcode:
var
Buffer: string;
procedure DataAvailable(const Data: string);
begin
Buffer := Buffer + Data;
while length(Buffer) > 2 do begin
UDPCLIENT.SEND(Copy(Data, 1, 3));
Delete(Data, 1, 3);
end;
end;
|