Check om computer er Online

Brug noget ping agtigt..

Indy client  ind og skriv web2.Get('http://www.dr.dk')  i form creat

Altså IdHttp    og så on a error goto error

svar

her er en function du kan teste det med

function GetOnlineStatus : Boolean;
var ConTypes : Integer;
begin
  ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
  if (InternetGetConnectedState(@ConTypes, 0) = False) then Result := False else Result := True;
end;

og her er noget kode den kan vise det

var
  conn : boolean;
  booltext : string;
  begin
conn := getonlinestatus;
booltext := booltostr(conn,true);
showmessage('The fact that you are connected to the internet is ' + booltext);
end;

http://Borrisholt.com/Eksperten/DNS.zip

Jens B

>> bananjoe
der mangler vist et eller andet i USES den siger fejl ved INTERNET_CONNECTION_MODEM

du skal ha wininet i uses ;-)

problemet med bananjoe's løsning er blot at den ikke virker 100%.

Hvis nu jeg har adgang til internettet, gennem et lan, og jeg slukker for Serveren. Så har jeg ikke adgang til Internettet, mmen bananjoe's funktion fortæller mig jeg har !

Jens B