how i can trace an IP using delphi

Question

i need trace the route of an ip, actually i am using the TIdTraceRoute indy component from the idTraceRoute unit.

   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;

but always return.

0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0
0.0.0.0

exist another way of trace an ip maybe using windows api or using another indy component?

actually i am using delphi-xe and Windows 7.

yes, there is an API to avoid Indy, consult here: http://msdn.microsoft.com/en-us/library/aa366051(VS.85).aspx — Free Consulting, Nov 14 '10 at 20:14

score 2 · Accepted Answer · answered Nov 17 '10 at 13:58

2

I just wrote a entry on my blog, wich can help you.

Building a traceroute application with IP geolocation using delphi

answered Nov 17 '10 at 13:58

RRUZ

134,889
20
356
483

score 1 · Answer 2 · answered Nov 14 '10 at 17:48

Trace is basically based on sending ICMP packets starting with a TTL of 1 and increasing it until reaching the destination. Because each router decrease the TTL, and when it reaches 0 an error is returned to the caller, it can be used to track the "route" packets takes. Note that to work the ICMP protocol must not be stopped by a firewall. ICMP is a protocol that runs atop IP, like TCP does. It doesn't use TCP. You could code a traceroute utility just using ICMP. But does the Windows tracert utility work on your system?

how i can trace an IP using delphi

2 Answers2