Показать сообщение отдельно
Старый 18.09.2015, 18:18   #5
Новичок
 
Регистрация: 18.09.2015
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
xxx00xxx пока неопределено
По умолчанию

Код:
var 
i,b,c:integer;
Stream:TFileStream;
procedure Init; //Вызывается при включении скрипта
begin;
i:=1;
b:=1;
try //пытаемся создать файл, но если такой существует то открываем его
Stream := TFileStream.Create('d:\id2.txt', fmOpenReadWrite);
except
Stream := TFileStream.Create('d:\id2.txt', fmCreate);
end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
Stream.free;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and (pck[1]=#$56) then
begin
pck:='';
buf:=#$23;
end;
begin
if (i > 100) then
Inc(b);
end;
WriteS('menu_select?ask='+IntTosTr(b)+'&reply='+IntTosTr(i));
SendToServer; 
inc(i);
begin
if (i > 100) then
i:=1; 
end;
  if FromServer and (pck[1]=#$D0) then
Stream.Write(inttostr(Readd(2))+' ',10);
end.

в итоге всеравно не работает имею вот такой косяк
0002 s Command: menu_select?ask=1&reply=97
0002 s Command: menu_select?ask=1&reply=29

это пакеты идут по порядку , но прибавке к +1 нету , также и значения идут не 1,2,3,5 а сразу скачат непонятно почему

Последний раз редактировалось xxx00xxx, 18.09.2015 в 18:19. Причина: Добавлено сообщение
xxx00xxx вне форума   Ответить с цитированием