Показать сообщение отдельно
Старый 20.08.2012, 23:17   #52
Местный
 
Регистрация: 13.12.2007
Сообщений: 126
Сказал Спасибо: 10
Имеет 39 спасибок в 32 сообщенях
Zergatul
По умолчанию

Код:
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? Где можно взять самый новый?
Вложения
Тип файла: zip l2ph_ZERGATULXP.elf.txt.zip (12.2 Кб, 41 просмотров)
Zergatul вне форума   Ответить с цитированием