Verificar se internet está Conectada e LIMITADA ou NÃO.

Delphi

08/01/2018

Olá pessoal!

Já tenho um sistema que verifica via Delphi 7 se o Sistema está conectado a internet ou não. O problema é que preciso saber se a Internet está LIMITADA ou NÃO.

Para verificar se a internet está conectada uso a função abaixo:

function Tdesktop.ConnectionKind : boolean;
var
  flags: dword;
begin
  Result := InternetGetConnectedState(@flags, 0);
end;


Alguém pode me ajudar como ver se a conexão está LIMITADA?

Desda Já agradeço.
Giovani
Giovani V

Giovani V

Curtidas 0

Respostas

William Finco

William Finco

08/01/2018

Olá Giovani,

Existe o componente TIdHTTP do Delphi para fazer uma tentativa de conexão:

function TMainF.isInternetConnection: Boolean;
begin
  try
    IdHTTP.Get('http://www.devmedia.com.br');
  except
    Result := False;
    Exit;
  end;
  Result := True;
end;


Logo, se o componente não conseguir se conectar a url, o retorno de Result :=False traduzirá que, embora conectado, a conexão é limitada ou nula.

Abs,
GOSTEI 0
Giovani V

Giovani V

08/01/2018

Perfeito!
Obrigado
GOSTEI 0
POSTAR