delphi Код:
const
name = 'Destroer';
var
Timer01:TTimer;
MyPck:string; //блеать 1
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=1000;
end;
procedure Free;
begin
Timer01.destroy;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=MyPck; //блеать 2
SendToServerEx(name);
end;
begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
MyPck:=pck; //блеать 3
Timer01.enabled:=true;
end;
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then Timer01.enabled:=false;
end.