Тема: Отправка пакетов с интервалом
Показать сообщение отдельно
Старый 07.03.2010, 20:27   #1
Новичок
 
Регистрация: 16.02.2010
Сообщений: 20
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
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 минут
Не получается по кругу пустить
Последний раз редактировалось 0rfin, 07.03.2010 в 20:27. Причина: Добавлено сообщение
0rfin вне форума