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