а если просто как-то так:
Оффтоп
delphi Код:
var
j:integer;
toServ:ttimer;
const
//набор пакетов
p[1]:=HStr('9A 00 57 59 FF 0C 0D 00 00 02 00 01 00 77 95 06 00 01 00 00 00 00 00 00 00');
p[2]:=HStr('B2 00 57 71 FF 00 33 04 3E 04 00 0'); // пакет активации
p[3]:=HStr('CC 00 57 6B FF 77 95 06 00 00');
p[4]:=HStr('9A 00 57 59 FF 0C 0D 00 00 01 00 01 00 77 95 06 00 01 00 00 00 00 00 00 00');
procedure Init;
begin
j:=0;
toServ:=TTimer.Create(nil);
toServ.OnTimer:=@StS;
toServ.enabled:=false;
toServ.interval:=500;
end;
procedure Free;
begin
toServ.enabled:=false;
toServ.free;
end;
procedure StS;
begin
inc(j);
buf:=p[j];
Sendtoserver;
if j:=4 then begin j:=0; toServ.enabled:=false; end;
end;
begin
if FromServer and (ReadC(1)=$B7) and (ReadC(14)=$77) and (ReadC(22)=$00) and not(toServ.enabled) then toServ.enabled:=true;
end.
Только порядок набора - расставь сам. я ничерта не понял в описании.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 25.04.2012 в 00:18.
|