Verificar la Conexión a internet

[servicomp]

si ya los he visto pero no los he usado debido a que dicen que son para delphi 7 y estamos usando delphi 10. los has probado con el d10

[servicomp]

Disculpas, ya los baje y los examine, y se encuentra para casi todas las versiones. A primera vista no veo un ejemplo para verificar si esta conectadoi a internet o no, pero seguire buscando

[ecfisa]

Hola.

Una opción muy simple es usar la función InternetGetConnectedState .

Código Delphi [-]
...
uses WinInet;

function HayInternet: Boolean;
var
  Estado: Cardinal;
begin
  Estado := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@Estado, 0);
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if HayInternet then
    ShowMessage('Conectado a internet')
  else
    ShowMessage('Desconectado de internet');
end;

Un saludo.

[servicomp]

Te cuento que hice las pruebas con este codigo, y no me ha funcionado, al parecer lo que podemos saber es si hay conexiones activas, pero no sabremos si hay internet.

Me explico. Si desconecto el modem adsl, y mi computador sigue conectado al Routher, el cual esta encendido y funcionando correctamente, la función siempre detecta la conección a internet,

[ecfisa]

Hola.

Tenés razón, no había evaluado esa posibilidad...

Otra forma (no muy elegante) es usando el componente TIdIcmpClient con uno o mas host conocidos.

Código Delphi [-]
function TForm1.HayInternet: Boolean;
const
  SITIOS: array[1..3] of string =('www.clubdelphi.com','www.google.com.ar','www.yahoo.com');
var
  i: Integer;
begin
  Result:= False;
  i:= 0;
  while (i < 3) and not Result do
  begin
    Inc(i);
    Caption:= IntToStr(i);
    IdIcmpClient1.Host:= SITIOS[i];
    try
      Result:= True;
      IdIcmpClient1.Ping;
    except
      Result:= False;
    end;
  end;
end;

//Llamada:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if HayInternet then
    ShowMessage('Conectado a internet')
  else
    ShowMessage('Desconectado de internet');
end;

Buscando encontre este [ código ]. (No lo probé)

Un saludo.