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 , 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.