Fórum Testa se ta conectado a internet.... #168076
06/07/2003
0
Pessoal como faço no delphi7 para testar se conectado na internet? no delphi 5 tinha o componente TCP e tinha la IPlocal e se tivesse ´0.0.0.0´nao tava, mas no delphi 7 nao sei como se faz?
Jarod
Curtir tópico
+ 0
Responder
Posts
06/07/2003
Cyberface
visite [url=http://www.ictec.kit.net]IC Tec Informática[/url]
Tente o seguinte:
Inclua a unit WinInet na clausula Uses do form.
escreva as seguintes funcoes:
depois chame a função EstouConectado da seguinte maneira:
Tente o seguinte:
Inclua a unit WinInet na clausula Uses do form.
escreva as seguintes funcoes:
function EstouConectado: boolean; begin result:= InternetGetConnectedState(nil,0) end;
depois chame a função EstouConectado da seguinte maneira:
procedure TForm1.Button1Click(Sender: TObject);
begin
if(EstouConectado) then
ShowMessage(´Estou conectado.´)
else
ShowMessage(´Nao estou conectado.´);
end;
Responder
Gostei + 0
06/07/2003
Jarod
opa esqueci de mencionar, queria o IP tb... :roll:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)