| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
traceroute [D5, WinME]
PL © (2002-02-01 20:51:00)Доброго времени суток. Может кто-нибудь использовал компонент IdIcmpClient в составе Indy. У меня стоит Delphi5 с установленным не ём Indy v.8.0. Пишу небольшую программу для трейсировки.
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to 6 do begin
IdIcmpClient1.Host:="217.73.192.109";
IdIcmpClient1.TTL:=i;
IdIcmpClient1.Ping;
end;
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
ListBox1.Items.Add(IdIcmpClient1.ReplyStatus.FromIpAddress);
end;
В итоге первая строчка остаётся пустой (на событие OnReply получаю нулевой ответ). Что это, глюк Инди или мой собственный ?
Кстати не выходит и следующее :
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
ListBox1.Items.Add(IdIcmpClient1.ReplyStatus.FromIpAddress);
IdIcmpClient1.TTL:=IdIcmpClient1.TTL+1;
IdIcmpClient1.Ping;
end;
copyr25 (2002-02-09 02:19:00) [1]Нет. Просто Инди... Как-то не хочется связываться с ими:)))
Вот, если бы trace, да без привязанных компонентов?
PL (2002-02-05 02:49:00) [2]Неужели у меня одного такие проблемы ?
| |
