Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.009 c
1-12397
BlackTiger
2004-02-22 17:16
2004.03.05
Как запретить получение фокуса контролом?


8-12451
Macho
2003-11-05 00:50
2004.03.05
Создать из последовательности BMP-файлов AVI-файл


7-12552
KSergey
2003-11-02 08:07
2004.03.05
Буфер обмена


4-12576
frost
2003-12-28 20:17
2004.03.05
Как из FD : TWin32FindData - получить дату в формате TDateTime


1-12395
Andriy Tysh
2004-02-20 16:55
2004.03.05
JPEG.pas