Текущий архив: 2004.03.05;
Скачать: CL | DM;
Вниз
Ping Time Найти похожие ветки
← →
god (2003-12-29 11:17) [0]Подскажите компонент ping, возвращающий время ответа сервера, плиз.
← →
Rouse_ © (2003-12-29 13:07) [1]
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;
Желаю успехов в новом году...
← →
S@shka © (2003-12-29 13:13) [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:19) [3]А если проверить так?
Правда Гейта нет поэтому проверить неначем...
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
with AReplyStatus do
if ReplyStatusType = rsEcho then
Caption := "Reply from: " + FromIpAddress +
" time: " + IntToStr(MsRoundTripTime);
end;
Желаю успехов
Страницы: 1 вся ветка
Текущий архив: 2004.03.05;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
