| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ping Time [D7, WinXP]
god © (2003-12-29 11:17:00)
Подскажите компонент ping, возвращающий время ответа сервера, плиз.
Rouse_ (2003-12-29 13:19:00) [1]
А если проверить так?
Правда Гейта нет поэтому проверить неначем...
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
with AReplyStatus do
if ReplyStatusType = rsEcho then
Caption := "Reply from: " + FromIpAddress +
" time: " + IntToStr(MsRoundTripTime);
end;
Желаю успехов
S@shka (2003-12-29 13:13:00) [2]
Не совсем корректный пример.
Так например если работать череp Gate (192.168.1.1) то пингую
скажем www.delphimastak.ru
при отсутсвии интернета (ну нет его просто)
Ответы будут приходить с FormIpAddress = 192.168.1.1 с уведомлением а-ля No route to host или Host anrich....
Поэтому если не сидеть и смотреть откуда там чего идет, то необходимо анализировать поле FromIp
Rouse_ (2003-12-29 13:07:00) [3]
procedure TForm1.FormCreate(Sender: TObject);
begin
IdIcmpClient1.Host := "www.delphimaster.ru";
IdIcmpClient1.Ping;
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
with AReplyStatus do
Caption := "Reply from: " + FromIpAddress +
" time: " + IntToStr(MsRoundTripTime);
end;
Желаю успехов в новом году...
| |
