delphi - 我如何使用delphi跟踪IP

Question

我需要跟踪 IP 的路由，实际上我正在使用 idTraceRoute 单元中的 TIdTraceRoute indy 组件。

   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。

Answer 1

我刚刚在我的博客上写了一篇文章，可以帮助你。

Building a traceroute application with IP geolocation using delphi