Also ich habe es jetzt mal so probiert...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
VAR
str,hexstr : String;
i : Integer;
begin
with IdTCPClient1 do begin
Host := '87.237.38.200';
Port := 26000;
Connect;
try
str := ReadLn;
for i := 1 to length(str) DO
BEGIN
hexstr := hexstr + ' ' + (IntToHex(Word(Str[i]), 2));
END;
Listbox1.Items.Append(hexstr);
finally
Disconnect;
end;
end;
end;
und es werden mir promt die ersten 22 Byte's(in Hexadezimal) des Statuspackets angezeigt... aber laut dem Sniffer sind es 41 BYTE an Informationen.. in dem Packet. Warum werden die Restlichen Byte nicht mitgelesen?