Polecenie ping w Delphi

0

Witam!

Jestem administratorem sieci lokalnej, i pisze program, który sprawdzałby czy serwer lokalny jest cały czas dostępny. Do tego celu chciałbym aby ten programik co 10 sekund wysyłał polecenie ping do tego serwera, tylko sęk w tym, że nie wiem jak to polecenie ping napisać i wysyłać za pomocą Delphi :-/ Mam nadzieję, że mi pomożecie.

Pozdrawiam ;)

0

Komponenty Indy lub ICS.

0

A dokładniej mówiąc robisz to przy pomocy komponentu IdIcmpClient wpisując tak:

IDICMPClient1.Ping;
if IdICMPClient1.ReplyStatus.ReplyStatusType=rsEcho then
led.Color:=cllime else
led.Color:=clred;

<- na przykład ... :D

0

Oki sprawdze tą możliwość, mam nadzieję, że zadziała :)

Pozdrawiam ;)

0

Witam!

Mam pytanie do tego tematu...jak napisać kod eliminujący błąd 'No route host', który się wyświetla, gdy nie ma połaczenia z serwerem.

Mam nadzieję, że wiecie o co mi chodzi :)

Pozdrawiam ;)

0

try ... except

0

Komponenty indy, i art Jak wyslac pinga

1 użytkowników online, w tym zalogowanych: 0, gości: 1