Ping...

Man kan pinge et system via ICMP protokollen. Der er mig bekendt
ICMP client moduler for Delphi.

Man kan teste om en web-side er tilgængelig via HTTP protokollen
(enten en normal GET eller en HEAD). Der er mig bekendt
HTTP client moduler for Delphi.

Alt efter din delphi version skal du bruge (eller først hente) Indy (www.nevrona.com/indy). Der finder du en TIdHTTP du kan bruge.

Det er bedre at hente en side, hvis du skal se om din webserver er i live - en pinger fortæller dig kun, at serveren reagerer - men intet om din webserver er oppe.

Åbn notepad, skriv ping xx.xx.xx.xx (hvor x = IP-adressen til hjemmesiden).

Gem filen som ping.bat

Så placer du en timer på din form, dobbeltklikker på den, og skriver:
var i : integer;
begin
  while (i<60) do
  begin
    inc(i) else i := 0;
    if i = 60 then WinExec('ping.bat',1);
  end else i := 0;
end;

takker