Ping
|
![]() Ветеран Сообщения: 637 |
Написал тут програмульку, которая пингует другие компы. Подскажите как можно добиться эффекта, просто если вводить в edit2.text сильно большое число выводятся ошибки, а с малым числом мало толку.
Edit1.text - ввожу ИП адрес edit2.text - количество пакетов procedure TForm1.BitBtn1Click(Sender: TObject); begin if edit1.Text='' then MessageDlg('Все поля обязательны к заполнению!',mtError,[mbOK],0) else begin if (edit2.Text='') or (edit2.Text='0') then edit2.Text:='1'; cmd:='cmd /C ping '+edit1.Text+' -l 65500'; for i:=1 to strtoint(edit2.Text) do *begin *Winexec(pchar(cmd),sw_hide); *end; end; end; Добавлено: Или может быть кто предложит другой вариант написания программы? |
|
------- Отправлено: 19:28, 29-06-2004 |
![]() Сообщения: 560
|
Профиль | Сайт | Отправить PM | Цитировать ...смотря под какой ОСью... 98 Винду очень просто вешали избыточным пингом из под Линукса...
|
------- Отправлено: 00:29, 24-07-2004 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старый параноик Сообщения: 2423
|
Профиль | Отправить PM | Цитировать BeerMan
И всё-таки дело не в количестве пингов, а в их качестве |
Отправлено: 16:59, 26-07-2004 | #12 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Ping не идет | SMOKEDMAN | Сетевые технологии | 4 | 11-06-2007 17:15 | |
пинг/ping | Farru | Сетевые технологии | 2 | 06-04-2007 21:29 | |
Мини ping | lehha | Программирование и базы данных | 3 | 16-01-2006 08:42 | |
Ping | Man itu | Сетевые технологии | 8 | 03-07-2004 23:59 | |
Ping | Guest | Хочу все знать | 12 | 22-01-2003 04:16 |
|