Текущий архив: 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.017 c