Delphi 7 tjek internet forbindelse

ping www.dr.dk :-)

Eller HTTP request til www.google.com

1000 tak, vil i ik lige svare så i kan få jeres point :)

:-)

svar

Grunden til at jeg foreslaar HTTP fremfor ICMP er at nogle netvaerk blokerer ICMP.

Man kan også bruge denne lille stump kode :

function online: Boolean;
begin
result := (InternetGetConnectedState(nil, 0));
end;

//TEST KNAP
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Online = True)then
begin
  Form1.Label1.Caption := 'DU ER ONLINE!- SÅDAN!';
end
else
begin
  Form1.Label1.Caption := 'DU ER OFFLINE! - ØV!';
end;
end;