Registriert seit: 26. Dez 2007
Ort: Kiel
121 Beiträge
Turbo Delphi für Win32
|
AW: Query an Gameserver
26. Feb 2015, 13:03
So werte ich den Buffer aus:
Delphi-Quellcode:
if chr(response.PacketHeader) = 'f' then
begin
for y := 0 to 10 do
begin
Move(buffer[i], response.First, SizeOf(response.First)); inc(i, SizeOf(response.First));
Move(buffer[i], response.Second, SizeOf(response.Second)); inc(i, SizeOf(response.Second));
Move(buffer[i], response.Third, SizeOf(response.Third)); inc(i, SizeOf(response.Third));
Move(buffer[i], response.Fourth, SizeOf(response.Fourth)); inc(i, SizeOf(response.Fourth));
Move(buffer[i], response.Port, SizeOf(response.Port)); inc(i, SizeOf(response.Port));
Form1.ListBox1.Items.Add(IntToStr(response.First) + '.' + IntToStr(response.Second) + '.' + IntToStr(response.Third) + '.' + IntToStr(response.Fourth) + ':' + IntToStr(response.Port));
Application.ProcessMessages;
end;
end;
end;
Die 10 Server die bei mir rauskommen:
89.163.212.29:64776
89.163.202.2:34921
78.51.20.26:64776
91.64.197.127:34921
213.23.101.70:34921
134.255.218.121:53781
134.255.236.171:34921
134.255.217.20:34329
134.255.220.9:18460
134.255.217.200:24606
Flo
|
|
Zitat
|