Отправка пакетов с интервалом

[0rfin]

Как отправлять пакеты по кругу с интералом между ними 300 мс?

23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 2E 00 68 00 74 00 6D 00 00 00

23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 62 00 2E 00 68 00 74 00 6D 00 00 00

23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 39 00 36 00 32 00 39 00 00 00

23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 33 00 2E 00 68 00 74 00 6D 00 00 00

Добавлено через 21 минуту
как то так

   
A:
Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 2E 00 68 00 74 00 6D 00 00 00');
    SendToServer;
    Delay(300);   
    
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 62 00 2E 00 68 00 74 00 6D 00 00 00');
    SendToServer; 
     Delay(300);
      
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 39 00 36 00 32 00 39 00 00 00');
     SendToServer; 
    Delay(300);
    
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 33 00 2E 00 68 00 74 00 6D 00 00 00');
     SendToServer;  
     Delay(300);
     goto A;

Добавлено через 19 минут
Не получается по кругу пустить

[Vilson]

http://coderx.ru/showthread.php?t=4070
Там я в таймере отправляю пакеты с интервалом, возьми за пример.

[0rfin]

Так что ли, еще пока не пробывал

var Timer :TTimer;

procedure Init; //Вызывается при включении скрипта
begin
 Timer:=TTimer.Create(nil);  
 Timer.OnTimer:=@onTimer;
 Timer.Enabled:=True;
 Timer.Interval:=500; 
end; 
procedure onTimer(Sender: TObject);
begin 
  
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 2E 00 68 00 74 00 6D 00 00 00');
    SendToServer;
    Delay(500);  
    
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 34 00 62 00 2E 00 68 00 74 00 6D 00 00 00');
    SendToServer; 
    Delay(500);  
    
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 39 00 36 00 32 00 39 00 00 00');
    SendToServer; 
    Delay(500);  
    
    Buf := HStr('23 51 00 75 00 65 00 73 00 74 00 20 00 33 00 37 00 36 00 5F 00 47 00 69 00 61 00 6E 00 74 00 73 00 45 00 78 00 70 00 6C 00 6F 00 72 00 61 00 74 00 69 00 6F 00 6E 00 31 00 20 00 33 00 31 00 31 00 34 00 37 00 2D 00 30 00 33 00 2E 00 68 00 74 00 6D 00 00 00');
    SendToServer; 
    Delay(500);  

end;

procedure Free; //Вызывается при выключении скрипта
begin
  Timer.Free;
end;

[Vilson]

Не так. Delay(500) будет делать полный фриз всех пакетов на пол секунды и приведет как минимум к лагам или дисконекту. Delay убирай нафиг и делай счетчик проходов внутри таймера как в примере, там за каждый заход (срабатывание таймера) отсылается один пакет и увеличивается счетчик.

[QaK]

0rfin, юзаем поезг, где-то я выкладывал скрипт на отправку таймером, специальный пример. Тема закрыта.