traceroute

← →
PL © (2002-02-01 20:51) [0]

Доброго времени суток. Может кто-нибудь использовал компонент 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;

← →
PL © (2002-02-05 02:49) [1]

Неужели у меня одного такие проблемы ?

← →
copyr25 (2002-02-09 02:19) [2]

Нет. Просто Инди... Как-то не хочется связываться с ими:)))
Вот, если бы trace, да без привязанных компонентов?

traceroute Найти похожие ветки