Код:
procedure OnPacket(const cnt: Cardinal; const fromServer: Boolean; const connectionName: String; var pck: String); stdcall;
var
p: TPacket;
begin
if pck = #$1B#02#00#00#00 then
begin
p.pckSize := 3;
p.pckId := $46;
ps.SendPacketData(p, cnt, true);
Exit
end;
end;
Вот такой код, при выполнении вылетает. Лог на всякий случай прикрепил.
Может у меня старый юнит usharedstructs? Где можно взять самый новый?