Foros Club Delphi - Verificar si el computador tiene acceso a internet?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Verificar si el computador tiene acceso a internet? (https://www.clubdelphi.com/foros/showthread.php?t=64089)

Gattaca

17-03-2009 06:28:34

Verificar si el computador tiene acceso a internet?

Hola.

Pues me preguntava si sera que hay una forma de hacer que una aplicasion detecte si hay conexion a internet?... Osea que si la aplicasion no tiene acceso a internet mostrar un mensaje de error...

Saludos

duilioisola

17-03-2009 15:18:57

- Puedes hacer un ping a www.yahoo.es.
- Puedes conectarte a una página web.
- Puedes hacer un ftp.

Si no dan errores, tienes conexión!

Young

17-03-2009 16:57:59

Hola, para lo que necesitas utilizo la siguiente función:

Código Delphi [-]function OnInternet: Boolean;
var
    flags: dword;
begin
     Result := InternetGetConnectedState(@flags, 0);
end;

Debes agregar en la cláusula uses la unit WinInet.

Saludos.

MAXIUM

19-03-2009 01:46:43

Siempre he encontrado errores al momento de detectar internet, probare la última indicación ya a mi parecer esto me a dado buenos resultados salvo por el detalle de que hay que crear una conección http://www.clubdelphi.com/foros/showthread.php?t=11089

Esta función solo detecta si hay un cable de red conectado, NADA MÁS.

Cita:

function OnInternet: Boolean;
var
flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
end;

La franja horaria es GMT +2. Ahora son las 00:11:36.