О спасиб огромное я позволил себе его немного добавить потому что мне надо было выполнить только единожды и написал так:
var
SitStand:TTimer;
procedure Init;
begin
useforconnectname := 'brbr';
SitStand:=TTimer.Create(nil);
SitStand.OnTimer:=@OnSitStand;
SitStand.enabled:=false;
SitStand.interval:=3000;
end;
procedure OnSitStand(Sender: TObject);
begin
buf:=hstr('56 00 00 00 00 00 00 00 00 00');
SendToServer;
SitStand.enabled:=false;
end;
procedure Free;
begin
SitStand.Free;
end;
begin
if FromClient then
case pck[1] of
#$49:
begin
SitStand.enabled := not SitStand.enabled;
pck:='';
end;
end;
end.
|