Saber si estoy conectado a Internet

[[escafandra]]

Para saber si tienes conexión a internet, lo mas simple es realizar un ping a una dirección conocida y estable. Puedes elegir, por ejemplo www.google.com. Esto funciona relativamente bien siempre y cuando tu conexión no esté controlada por un proxy. Puedes usar cualquier función que te permita realizar un ping. Te recomiendo la lectura de esto.

Un ejemplo de como realizar ping sin componentes, sólo con la API:

Código Delphi [-]
function Ping(Addr: PCHAR; Rep: integer = 3): boolean;
var
  WSA: TWSAData;
  hIcmpFile: Cardinal;
  Reply: ICMP_ECHO_REPLY;
  He: Phostent;
  n: Integer;
begin
  Result:= false;
  if WSAStartup(MAKEWORD(1, 1), WSA) <> 0 then exit;
  He:= gethostbyname(Addr);
  if He = nil then exit;
  hIcmpFile:= IcmpCreateFile;
  n:= 0;
  repeat
    Result:= IcmpSendEcho(hIcmpFile, PULONG(He.h_addr_list^)^, 0, 0, 0, 
                          PCHAR(@Reply), sizeof(ICMP_ECHO_REPLY), 1000) <> 0;
    if Result then
       Result:= Reply.Status = 0;
    inc(n);
  until Result or (n=3);
  IcmpCloseHandle(hIcmpFile);
  WSACleanup;
end;

Un ejemplo de uso sería:

Código Delphi [-]
if Ping('www.google.com') then
    Label1.Caption := 'Exito'
else
    Label1.Caption := 'Fracaso';

Pero si estas detrás de un proxy no va a funcionar pues ping usa el protocolo ICMP para la comunicación, sin embargo Proxy Server sólo soporta paquetes TCP y UDP. La solución va a ser conectarse a una página y ver se se puede leer.

Para este segundo caso diseñé una función que llamé Webing (por paralelismo con la fonética de Ping). Este es el código:

Código Delphi [-]
function WebIng(URL: PCHAR): boolean;
var
  hNet, hUrl: Pointer;
  BytesRead: DWORD;
  Buffer: array [0..64] of char;
begin
  Result:= false;
  BytesRead:= 0;

  if InternetAttemptConnect(0) <> ERROR_SUCCESS then exit;

  hNet:= InternetOpen('WebIng', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if hNet <> nil then
  begin
    hUrl:= InternetOpenUrl(hNet, URL, nil, 0, INTERNET_FLAG_RELOAD {or INTERNET_FLAG_NO_AUTH}, 0);
    if hUrl <> nil then
    begin
      ZeroMemory(@Buffer[0], sizeof(Buffer));
      Result:= InternetReadFile(hUrl, @Buffer[0], sizeof(Buffer), BytesRead);
      Result:= Result and (BytesRead > 0);
      InternetCloseHandle(hUrl);
    end;
    InternetCloseHandle(hNet);
  end;
  Result:= Result and (Pos('Access Denied', Buffer) = 0);
end;

Y lo usaríamos así:

Código Delphi [-]
  if WebIng(PCHAR('http://www.google.com')) then
    Label1.Caption:= 'Exito'
  else
    Label1.Caption:= 'Fracaso';

En este hilo puedes encontrar mas información y una aplicación de ejemplo que incluso permite autentificarnos en un proxy que así lo exija.

Espero haberte sacado de dudas.


Saludos.

[rhino0nt]

Te felicito por el código, lo acabo de utilizar y al parecer funciona correctamente, solo es necesario poner la URL junto con el protocolo, es decir, en lugar de 'www.google.com' hay que poner 'http://www.google.com', de otra manera nunca regresa contenido y siempre marca False.

[[escafandra]]

Empezado por rhino0nt

Te felicito por el código...

Gracias.

Empezado por rhino0nt

...funciona correctamente, solo es necesario poner la URL junto con el protocolo, es decir, en lugar de 'www.google.com' hay que poner 'http://www.google.com', de otra manera nunca regresa contenido y siempre marca False.

Tienes razón, se me pasó al escribir el ejemplo. El caso es que al hacer Ping no se debe poner el protocolo y si, al hacer Webing.

Lástima que no puedo editar ese ejemplo de uso. Si algún moderador lo hace evitaría dudas y malentendidos posteriores.


Saludos.

[ecfisa]

Empezado por escafandra

Lástima que no puedo editar ese ejemplo de uso. Si algún moderador lo hace evitaría dudas y malentendidos posteriores.

Listo mi amigo, tus pedidos son órdenes

Saludos.

[[escafandra]]

Empezado por ecfisa

Listo mi amigo, tus pedidos son órdenes

Saludos.

Caramba, ya apareció el genio de la lámpara...

¿Puedo pedir mas cosas?
Me gustaría...... y también.... y ademas....


Gracias.

Saludos.

[ecfisa]

Empezado por escafandra

¿Puedo pedir mas cosas?
Me gustaría...... y también.... y ademas....


Gracias.

Saludos.

Mmmm, de eso no me quedó, también se me terminó hace una semana.... y además va a entrar en 3 años (mas o menos)

Un saludo.