Цитата:
Сообщение от 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.