Код:
var
Names: TStrings;
Timerbuf: TTimer;
procedure Init;
begin
Timerbuf:=TTimer.Create(nil);
Timerbuf.OnTimer:=@OnTimerbuf;
Timerbuf.enabled:=false;
Timerbuf.interval:=10000;
Names := TStringList.Create;
Names.LoadFromFile('D:\names.txt');
end;
function CheckName(n: string) : Boolean;
begin
Result := False;
if (Names.IndexOf(n) > -1) then Result := True;
end;
procedure OnTimerbuf(Sender: TObject);
begin
buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 62 00 75 00 66 00 66 00 20 00 52 00 65 00 73 00 74 00 6F 00 72 00 65 00 42 00 75 00 66 00 66 00 73 00 00 00');
SendToServer;
end;
procedure Free;
begin
Timerbuf.free;
end;
begin
if FromClient and (pck=hstr('6D 00 00 00 00')) then
begin
buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 62 00 75 00 66 00 66 00 20 00 52 00 65 00 73 00 74 00 6F 00 72 00 65 00 42 00 75 00 66 00 66 00 73 00 00 00');
SendToServer;
\\Вот тут нужна задержка.
Timerbuf.enabled:=true;
buf:=HStr('21 63 00 75 00 73 00 74 00 6F 00 6D 00 5F 00 64 00 6F 00 74 00 65 00 6C 00 65 00 20 00 67 00 6F 00 74 00 6F 00 20 00 32 00 39 00 35 00 33 00 00 00 ');
SendToServer;
end;
end.
Неполучается...уже всякими способами перепробовал.