Dicas - Detectando o tipo de Conexão com a internet

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica, como detectar o tipo de conexão com a internet em suas aplicações com o delphi.

 

Detectando o tipo de Conexão com a internet

uses Wininet

 

function ConnectionKind: Boolean;

var

  flags: DWORD;

begin

  Result := InternetGetConnectedState(@flags, 0);

  if Result then

  begin

  if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM

then

  ShowMessage(Modem);

  if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then

  ShowMessage(LAN);

  if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY

then

  ShowMessage(Proxy);

  if (flags and INTERNET_CONNECTION_MODEM_BUSY) =

INTERNET_CONNECTION_MODEM_BUSY then

  ShowMessage(Modem Busy);

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ConnectionKind;

end;

 

 

 

 

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?