NLObP, not really.
recive packet:
delphi Код:
TPacket = packed record case Integer of
0: (Size: Word;
Data: array[0..$FFFD] of Byte);
1: (PacketAsByteArray: array[0..$FFFF] of Byte);
2: (PacketAsCharArray: TCharArray);
3: (pckSize: Word;
pckId: Byte;
pckData: array[0..$FFFC] of Byte);
end;
TOnPacket = procedure(const cnt: Cardinal; const fromServer: Boolean; const connectionname:string; var packet : tpacket); stdcall;
packet.Data equal to pck in scripts.
sending packet:
procedure SendPacketStr(pck: string;
const tid: integer; const ToServer: Boolean); override;
you can obtain tid by
function getConnectioidByName(name : string):integer; override;