delphi Код: Код:
// сдаем один раз чтоб запомнить пакет
// вкл таймер для отправки пакета соцдействие ДА - YES
// откл таймер для отправки пакета соцдействие НЕТ -NO
// управление под ФИНАЛ хроники
const
name='xxxx';// <<== пишем здесь имя своего ЧАРА
var
manorItem: string;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=1000;// интервал между пакетами сейчас стоит 1 секунда
end;
procedure Free;
begin
Timer01.free;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=manorItem;
SendToServerEx(name);
end;
begin
if FromClient and (pck[1]=#$D0) and (pck[2]=#$02) then manorItem:=pck;
if FromClient then
begin
case ReadD(2) of
24:begin
Timer01.enabled:=true;
pck:='';
exit;
end;
25:begin
Timer01.enabled:=false;
pck:='';
exit;
end;
end;
end;
end.
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 06.09.2009 в 18:03.
|