Tracert

Tracert
2010-11-20T16:08:12+01:00
2010-11-23T04:59:52+01:00
2022-08-03T04:25:28+02:00
adatvadasz
Sziasztok.
Létrehoztam egy tracert programot, ami azt csinálná mint a DOS tracert parancs, csak nem akar helyen működni.

Az eredmény:
0 bytes from 0.0.0.0 ( ): icmp_seq=1 ttl=0 time4992 ms msg=Timeout
0 bytes from 0.0.0.0 ( ): icmp_seq=2 ttl=0 time5008 ms msg=Timeout
0 bytes from 0.0.0.0 ( ): icmp_seq=4 ttl=0 time5008 ms msg=Timeout
0 bytes from 0.0.0.0 ( ): icmp_seq=8 ttl=0 time4992 ms msg=Timeout
0 bytes from 0.0.0.0 ( ): icmp_seq=16 ttl=0 time5007 ms msg=Timeout
1024 bytes from 217.20.130.97 ( sportgeza.hu ): icmp_seq=32 ttl=55 time78 ms msg=Echo

Egy kissé tanácstalan vagyok. Nincs tűzfal, a DOS tracert parancsa tökéletesen működik.

procedure TForm1.Button1Click(Sender: TObject); var IdTraceRoute1:TIdTraceRoute; begin IdTraceRoute1 := TIdTraceRoute.Create(Self); IdTraceRoute1.ResolveHostNames:= True; IdTraceRoute1.ReceiveTimeout:= 5000; IdTraceRoute1.OnReply := Traceroute; IdTraceRoute1.Host:= '217.20.130.97'; IdTraceRoute1.Trace; end; procedure TForm1.TraceRoute(ASender: TComponent; const AReplyStatus: TReplyStatus); var sTime: String; begin Memo1.lines.Add(Format('%d bytes from %s ( %s ): icmp_seq=%d ttl=%d time%s%d ms msg=%s', [AReplyStatus.BytesReceived, AReplyStatus.FromIpAddress, AReplyStatus.HostName, AReplyStatus.SequenceId, AReplyStatus.TimeToLive, sTime, AReplyStatus.MsRoundTripTime, AReplyStatus.Msg ])); memo1.refresh; Application.processmessages; end;
Mutasd a teljes hozzászólást!
Közben kipróbáltam a kódodat az én gépemen is, ezen sem működik rendesen. (D2010) A neten láttam, hogy mások D2006-nál is panaszkodtak erre, megoldást viszont senki sem írt.
Viszont, ezt találtam. Jóval több, de működik. Ki lehet szedni belőle azt, amire szükséged van.
Mutasd a teljes hozzászólást!

abcd