Verificando Conexão c/ internet em banda larga

[TheMaker 0]

Preciso de ajuda nessa...Como posso saber se um computador que tem seu Ip fixo está conectado a internet?

[alisson00 0]

bom, se nao fosse em delphi, eu usaria o comando ping e o ip da maquina.se houver alguma resposta, quer dizer que ela está conectada a internet...talvez tenha alguma maneira de fazer isso via delphi

[WiCkEd 0]

É, o ideal é dar um PING, num determinado Host. Existem componentes para ping. Dá uma olhada em www.torry.net no menu VCL

[hcr 0]

Olá,

 

Não sei se vai te servir, mas tenta ai ...

 

uses WinInet;...function TForm1.TipoConexao:boolean;  var  flags: dword;begin  Result := InternetGetConnectedState(@flags, 0);  if Result then begin     showmessage('Conexão a Internet está Ativa');     if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then        showmessage('Conexão por modem');     if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then        showmessage('Conexão por lan');     if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then        showmessage('Conexão por proxy');     if (flags and INTERNET_CONNECTION_MODEM_BUSY) =INTERNET_CONNECTION_MODEM_BUSY then        showmessage('modem ocupado');  end;end;procedure TForm1.Button1Click(Sender: TObject);begin   TipoConexao;end;

Espero ter ajudado

Henrique