собсна сабж. написал такой вот скрипт на заточку все просто дальше не куда ... тока вот косяк один нада чтобы пакеты уходили не сразу 3х пакета на заточку (см. выделенный код. красным) а каждые 150 мс примерно ну не важно!
Код:
const
Name='***';
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=1500;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
end;
procedure Free;
begin
timer.free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=HStr('0C C4 E8 02 10 00 00 00 00 ');
SendToServer;
buf:=HStr('43 4C 00 EE 68 02 10');
SendToServer;
buf:=HStr('65 EE 68 02 10 00 00 00 00');
SendToServer;
end;
begin
if FromServer and (ConnectName=Name) and (pck = HStr('***'))
then begin
timer.enabled:=false;
end;
end.