Indy-ICMP: Ping

[Die Muhkuh]

Hi,

ich hab schon gesucht, aber ich hab nicht das gefunden, was ich wollte (wahr. war ich ma wieder zu ).

Delphi-Quellcode:

function DoPing(Host: String): String;
begin
  with fmain do
  begin
    icmp.Host := Host;
    icmp.Ping();
  end;
end;

So pinge ich. Alles schön und gut, aber ich möchte messen, wie lange der Ping braucht, bis er wieder bei mir ist. Wie stelle ich das an?

[slemke76]

nur so ins blaue, habe ich selber auch noch nicht gebraucht....

Die Ereignisse OnReply / OnStatus der ICMP Komponente ?

lg

[Die Muhkuh]

Zitat von slemke76:

nur so ins blaue, habe ich selber auch noch nicht gebraucht....

Die Ereignisse OnReply / OnStatus der ICMP Komponente ?

lg

Auf die Idee bin ich auch schon gekommen, aber ich kann ja kein GetTickCounter oder so benutzen

[Dax]

Wieso kannst du das nicht? GTC ist keine privilegierte Funktion oder durch Security-Teile von NT geschützt..

[Die Muhkuh]

Weil ich nicht weiß, wie ich den GTC über zwei proceduren / funktionen verwende .

Aber ich habs schon gefunden. Es war doch OnReply...

[slemke76]

GTC: for dem Ping speicherst du den Wert in einer globalen (!) Variable, mit der der Wert in der anderen function verglichen wird....

lg

[glkgereon]

BAAHH!!! keine globale!!!

tu die variable aus stylistischen gründen lieber in den private-teil der form.

[moritz]

Oder verwende den Tag der Ping-Komponente.

[slemke76]

Zitat von glkgereon:

BAAHH!!! keine globale!!!

Okok - wird nicht wieder passieren

[glkgereon]

*g*

ich machs trotzdem selber immer wieder gerne

net schlimm