Показать сообщение отдельно
Старый 25.01.2009, 10:47   #16
Пользователь
 
Регистрация: 22.04.2008
Сообщений: 51
Сказал Спасибо: 14
Имеет 36 спасибок в 11 сообщенях
alexsl пока неопределено
По умолчанию

приветы,
вот возникла такая вот ситуевина:
delphi Код:
procedure OnPacket(const cnt: Cardinal; const fromServer: Boolean; var pck: TPacket); stdcall; begin   if pck.size<3 then     exit;   if not FromServer and(pck.id=$49)and(bot.cntID=0)then   begin       // если в процедуре вызвать [b]ps.ReadSEx[/b]       // то после завершения процедурки       // выскакивает ексепшн EInvalidPointer       if(lowercase([b]ps.ReadSEx(pck,3)[/b])='set')then       begin         pck.size:=2; // не пропускаем пакет         bot.cntID:=cnt;         Say('Выбрано это соединение.',bot.cntID);       end;   end; end;
пробывал заменить на
delphi Код:
s:=ps.DataPckToStrPck(pck); if(lowercase(ps.ReadS(s,2))='set')then
выходит аналогичная ошибка.
мб ктонить подскажет, в какую сторону копать.
зы: HB T1.5, пхикс 3.4.81 ( 3.4.68 ) под ХП СП3 крутится на виртуальной машине
alexsl вне форума   Ответить с цитированием