Descobrir se esta conectado a internet e o ip da conex�o?

Question

Bom dia a todos...Pessoal como fa�o para descobrir se o pc na qual minha aplica��o esta rodando esta conectado a Internet e tamb�m como descobrir o ip da conex�o atual , no caso de um ip din�mico?Grat...

Guialberto Soares · Answer

Veja este t�pio:�testar se a internet esta ou n�o conectada:�//www.activedelphi.com.br/modules.php?op=modload&name=XForum&file=viewthread&tid=26292#pid67962Sobre o ip da conxex�o, se for diaul-up eu tenho um exemplo, qualquer coida � s� pedir...

Guialberto Soares · Answer

Ol� amigo a respeito do IP da conxe�o, vou colocar a baixo
OBS: s� testei com conex�o Dial-up:

var
Form1: TForm1;

implementation

[color=red:24732def01][b:24732def01]uses Winsock[/b:24732def01][/color:24732def01];

{$R *.dfm}

function GetLocalIP: string;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array[0..63] of char;
I: Integer;
GInitData: TWSADATA;
begin
WSAStartup($101, GInitData);
Result := ��;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
result := StrPas(inet_ntoa(pptr^[I]^));
result := StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(�IP: � + GetLocalIP);
end;
end.

Espero ter ajudado ...
[]� Guiga

Faustoalves · Answer

Muito obrigado, agora vc disse que � sobre uma conex�o dial up, desculpe a ignor�ncia, mas qual seria a diferen�a?GratoFausto...

Guialberto Soares · Answer

Quando disse Dial-up na verdade estava querendo dizer Discada.Ou seja que eu tinha testado somente em conex�o discada e n�o de banda larga, n�o que eu tenha certeza se h� diferen�a....

Faustoalves · Answer

Obrigado pela resposta..Mas n�o houve diferen�a n�o a rotina esta funcionando perfeitamente..Mais uma vez obrigadoFausto...

M@gnun · Answer

para obter o ip externo, basta acessar um site q forneca o ip, com o www.meuip.com.br e pegar o resultado do ip com o TIDHTTP do Indy.
Procure aqui no forum q tem um exemplo completo de como pegar ... acho q o adriano santos postou.

F�rum Descobrir se esta conectado a internet e o ip da conex�o? #329597