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]