[Delphi] GG -lista kontaktow

0

Mam problem z importem listy kontaktow
zadeklarowalem sobie

type
Int = Integer; 
THeader = record // Nag?ˇwek pakietu
    PacketType: Int;
    PacketLength: Int;
  end;
TGg_userlist_request =record
 Header: THeader;
type_:char;
request:array of char;
end;
PGG_userlist_request = ^TGG_userlist_request;

a do pobrania listy (a dokladniej do wyslania zapytania)uzywam

procedure GetList;
const
GG_USERLIST_GET=$02;
var
 ListPacket:  PGg_userlist_request;
begin
new(ListPacket);
 ListPacket^.Header.PacketType:=$0016;
 ListPacket^.Header.PacketLength:=SizeOf(ListPacket^);
 ListPacket^.type_:= char(GG_USERLIST_GET);
 WriteBuffer(ListPacket^, SizeOf(ListPacket^));
 Dispose(ListPacket);
end;

i nie zabardzo wiem gdzie popelnilem blad - bo serwer mnie rozlacza po wyslaniu tego [sciana]

0

Wskaźniki są tu niepotrzebne, PacketLength jest długością reszty pakietu (za niezbednym nagłówkiem) a nie całego pakietu - zobacz jak to jest w protokole GG.

0

thx :D

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0