Also irgendwie bringt dies auch nicht den gewünschten Erfolg.
Ich habe jetzt folgendes geändert:
Delphi-Quellcode:
var Buffer: Array [0..8192] of Byte ;
begin
UDPClient1.Port := 1717; // GameQueryPort
UDPClient1.Active := true;
UDPClient1.BufferSize := 8192;
UDPClient1.Send('\\status\\');
UDPClient1.ReceiveBuffer( Buffer, 8192);
j := 0;
for i := 0 to length(Buffer) do begin
str1 := Char(Buffer[i]);
strTemp := strTemp + str1;
end;
UDPClient1.Active := false;
Memo1.Lines.Text := strTemp;
...
end;
Ich bekomme 2048 Byte daten zurück und dann nur noch Salat.