Показать сообщение отдельно
Старый 26.04.2008, 04:32   #6
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Denis63RUS Посмотреть сообщение
if _gAbsNumPkt = 9 then begin //загвоздка возникла у меня с этой строчкой, никак не могу догнать как её воплотить!
_gAbsNumPkt :int - абсолютный номер пакета, нумеруется с 1.

По всей видимости надо включать скрипт до соединения с сервером и вести подсчет всех пакетов от сервера.
Типа такого:
delphi Код:
var AbsNumPkt :integer; procedure Init; begin  AbsNumPkt:=0; end; begin   if FromServer then begin      inc(AbsNumPkt);      if AbsNumPkt=9 then SendToServer((HStr('6B00030000000000000000000000000 0000000C9BCF2A7665A0B9836A5BD89ED7FE4D76B49E29FEF7 6EBCEA3FAF4BF0C64A3B4A4CEDCC6083E6EEA45CAD3FE88138 7B8062C96F09B1E8EBCC69B98C86316CFD0290000000000000 000000000000000000000000000000000'));   end; end.
NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился 2 спасибками от: