我需要跟蹤一個ip的路由,實際上我使用idTraceRoute
單元的TIdTraceRoute
indy組件。我怎麼可以跟蹤使用delphi的IP
IdTraceRoute1:= TIdTraceRoute.Create(Self);
IdTraceRoute1.ResolveHostNames:= True;
IdTraceRoute1.ReceiveTimeout:= 5000;
IdTraceRoute1.OnReply:= TraceRoute;
IdTraceRoute1.Host:= 'www.google.com';
IdTraceRoute1.Trace;
procedure TForm1.TraceRoute(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
Memo1.Lines.Add(AReplyStatus.FromIpAddress);
end;
但總是返回。
0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0
存在另一種跟蹤ip的方法可能使用Windows API或使用其他indy組件?
其實我用delphi-XE和Windows 7
添加標籤'indy',問題在那裏 – 2010-11-14 18:17:44
是的,有一個API可以避免Indy,請參考:http://msdn.microsoft.com/en-us/library/aa366051(VS.85).aspx – 2010-11-14 20:14:59