Testa se ta conectado a internet....

Delphi

06/07/2003

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

Jarod

Curtidas 0

Respostas

Cyberface

Cyberface

06/07/2003

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:

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;



GOSTEI 0
Jarod

Jarod

06/07/2003

opa esqueci de mencionar, queria o IP tb... :roll:


GOSTEI 0
POSTAR