приветы,
вот возникла такая вот ситуевина:
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 крутится на виртуальной машине