Server anpingen

[smax]

Hallo,

ich wollte mal Fragen wie ich überprüfen kann ob ein Server online oder offline ist?

Mit Ping glaub ich aber wie "pinge" ich mit Delphi?

[Trouble_Maker]

Hi,
ich weiss nich, ob dir das hier was bringt, aber kannst ja mal schauen!
Auf der Seite wird erklärt, wie man DOS-Befehle mit Delphi nutzt!
Und dann kannst du ja einfach "ping <IP>" angeben.

Hier die Seite:

http://www.tipps.delphi-source.de/sy...020915-3.shtml

bis dann

Trouble_Maker

[RomanK]

Es gibt auch eine Komponente bei den Indys ... IDEcho glaub ich ...

[smax]

Ok aber das für NT-Systeme läuft auch nur auf NT-System...

Sollte aber auf beiden laufen...

[supermuckl]

ICMP komponente von indy clients
hilfe von indy ambesten zu rate ziehen

mein icmp kompo dings auf dem form hab ich "ping" benannt.
port: 0 und protocol: 1
timeout: 6000

beispielcode:

Delphi-Quellcode:

procedure TForm1.pingReply(ASender: TComponent; // wird ausgelöst wenn reply kommt
  const AReplyStatus: TReplyStatus);
begin
Label1.Caption := 'online';
end;

procedure TForm1.Timer1Timer(Sender: TObject); // ping!
begin
 try
ping.Ping
 except
 on Exception do Exit;
end;
end;

:bounce1:

[smax]

Wo gebe ich die URL ein?

[Christian Seehase]

Moin Smax,

kleiner Tip:

Zieh' Dir mal eine TidIcmpClient Kompo auf ein Formular und schau Dir dann mal den Objekt Inspektor an.

[smax]

Sorry aber wo finde ich den TidIcmpClient Komponenten?

[Christian Seehase]

Moin Smax,

unter den "Indy Clients" (wie der Name schon vermuten lässt ;-) )

[smax]

Ich hab jetzt eine andere sehr gute Lösung gefunden!

Dazu benutze ich den Befehl:

Delphi-Quellcode:

IdHTTP1.Get(edit1.text, responseStream);

Was muss ich da bei uses schreiben, weil jetzt wird ja de Fehler angezeigt:

[Error] Unit1.pas(33): Undeclared identifier: 'IdHTTP1'