fortlaufender Ping + Zeitausgabe

**Micha**

Ich benötige ein Programm, dass mir über Nacht fortlaufend einen Rechner anpingt.

Das anpingen weiß ich wie es geht. Nur weiß ich nicht, wie ich mir die "richtige" Uhrzeit dahinterschreiben kann. Im Moment zeigt er mir ja nur sowas wie
72 Byte von <ip-adresse>: icmp seq=3492 ttl=128 time<10 ms

ich hätte aber gerne, dass mir die Uhrzeit ausgegeben wird, vor allem wenn der Host nicht erreichbar ist.

Ich habe meinen bisherigen Code auch nur im Internet gefunden.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Tfrm_netzwerk.ICMPReply(ASender: TComponent;

  const AReplyStatus: TReplyStatus);

var

  sTime: string;

begin

  // Antwort - Zeit überprüfen

  if (ICMP.ReplyStatus.MsRoundTripTime = 0) then

    sTime := '<1'

  else

    sTime := '=';

  // Füge der Listbox die Items hinzu

    lstReplies.Items.Add(Format('%d Bytes von %s: icmp_seq=%d ttl=%d time%s%d ms',

    [ICMP.ReplyStatus.BytesReceived,

    ICMP.ReplyStatus.FromIpAddress,

    ICMP.ReplyStatus.SequenceId,

    ICMP.ReplyStatus.TimeToLive,

    sTime,

    ICMP.ReplyStatus.MsRoundTripTime]));

end;

procedure Tfrm_netzwerk.btnPingClick(Sender: TObject);

var

  i: integer;

begin

  // Listbox leeren

  lstReplies.Clear;

  // Ereignis 'OnReply' festlegen

  ICMP.OnReply := ICMPReply;

  // ReceiveTimeout einstellen

  ICMP.ReceiveTimeout := 1000;

  // Button Oing auf Enabled=False setzen

  btnPing.Enabled := False;

  // Ping starten

  try

    // Host festlegen

    ICMP.Host := edt_host1.Text;

    // Ping so oft durchführen wie bei 'Anzahl der Pings' festgelegt

    for i := 1 to edCount.Value do begin

      try

        // Ping senden

        ICMP.Ping;

        // Nachrichten verarbeiten

        Application.ProcessMessages;

        // nach jedem Ping eine Sekunde Pause machen

        //Sleep(1000);

      except

        MessageDlg('Ping fehlgeschlagen!'+#13+#10+'Mögliche Ursache: Ungültiger Host', mtError, [mbOK], 0);

        Exit;

      end;

    end;

  finally

    // Button Ping wieder auf Enabled=True

    btnPing.Enabled := True;

  end;

end;

fortlaufender Ping + Zeitausgabe

fortlaufender Ping + Zeitausgabe

Forumregeln