我需要跟踪一个 ip 的路由,实际上我正在使用单元中的TIdTraceRoute
indy 组件idTraceRoute
。
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。