Verificar conexão com a internet

Delphi

25/11/2006

Gostaria de saber como faço para verificar conexao com a internet


Visualdesigner

Visualdesigner

Curtidas 0

Respostas

Pezzin

Pezzin

25/11/2006

Veja se ajuda.

function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: Integer;
begin
try
  dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
    Result := true
  else
    Result := false;
except
  Result := false;
end;
end;



GOSTEI 0
Visualdesigner

Visualdesigner

25/11/2006

Deu erro de compilação:

Undeclared Identifier: ´INTERNET_CONNECTION_MODEM´
Undeclared Identifier: ´INTERNET_CONNECTION_LAN´
Undeclared Identifier: ´INTERNET_CONNECTION_PROXY´
Undeclared Identifier: ´InternetGetConnectedState´


GOSTEI 0
Pezzin

Pezzin

25/11/2006

Esqueci essas declarações:


// Declaração da Função
function IsConnectedToInternet: Boolean;

// Declaração das Constantes
const

 INTERNET_CONNECTION_MODEM=1;
 INTERNET_CONNECTION_LAN=2;
 INTERNET_CONNECTION_PROXY=4;
 INTERNET_CONNECTION_MODEM_BUSY=8;

// Declaração da DLL
function InternetGetConnectedState(lpdwFlags: LPDWORD;
dwReserved: DWORD): BOOL; stdcall; external ´WININET.DLL´;



GOSTEI 0
POSTAR