Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Как работает TidICMPСlient   Найти похожие ветки 

 
Ultracrash ©   (2004-04-06 21:37) [0]

Мастера, я пишу веб браузер, и мне надо там проверить качество соединения. Мне посоветавли использовать TidICMPСlient, кто может дать мне код.


 
Rouse_ ©   (2004-04-07 09:26) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdIcmpClient1.Host := "www.delphimaster.ru";
 IdIcmpClient1.Ping;
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
 const AReplyStatus: TReplyStatus);
begin
 Caption :=  AReplyStatus.FromIpAddress;
end;


Желаю успехов


 
ultracrash ©   (2004-04-07 14:34) [2]

Огромное тебе спасибо!!



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.043 c
14-1083228811
gn
2004-04-29 12:53
2004.05.23
В Украине сертифицирован первый отечественный IP-телефон


1-1084150584
Алекс А
2004-05-10 04:56
2004.05.23
Как работать с кардиналами ?


7-1081868399
RyDmi
2004-04-13 18:59
2004.05.23
Работа с LPT


1-1084261570
Erik
2004-05-11 11:46
2004.05.23
Внутри Try except имеется класс on E: do MyFunc(E)


3-1083316895
Курдль
2004-04-30 13:21
2004.05.23
Апологетам "MS SQL Server" - что там с блокировками записей?