Descobir Ip (internet) Pelo Delphi

[schaukoski]

Olá Pessoal, eu consegui apenas o IP da rede(máquina)...

alguém sabe como posso fazer para trazer o IP de internet? Valeu!!!

[Guest --HDELPHI --]

Olá Pessoal, eu consegui apenas o IP da rede(máquina)...

alguém sabe como posso fazer para trazer o IP de internet? Valeu!!!

Peque o componente da paleta FastNet o NMHTTP e use este codigo . ok ?

procedure TForm1.Button1Click(Sender: TObject);

var s : string;

begin

s := NMHTTP1.LocalIP;

Label1.Caption := s;

end;

[schaukoski]

meu delhpi não tem essa palleta ... to usando o delphi 7....

tem outro componente pra fazer isso no delphi 7?

Obrigado!

[Guest --HDELPHI --]

meu delhpi não tem essa palleta ... to usando o delphi 7....

tem outro componente pra fazer isso no delphi 7?

Obrigado!

Para o delphi 7

componente da paleta indy misc IdIPWatch

procedure TForm1.Button1Click(Sender: TObject);

var s : string;

begin

s := IdIPWatch1.LocalIP;

Label1.Caption := s;

end;

[schaukoski]

poiseh então.. mas esse é o IP da maquina, eu queria saber qual é o IP da INTERNET DNS eu acho que chama não sei...

valeuu!!

[Guest --HDELPHI --]

poiseh então.. mas esse é o IP da maquina, eu queria saber qual é o IP da INTERNET DNS eu acho que chama não sei...

valeuu!!

Na minha maquina da o IP da Internet que estou usando.

[Guest --HDELPHI --]

poiseh então.. mas esse é o IP da maquina, eu queria saber qual é o IP da INTERNET DNS eu acho que chama não sei...

valeuu!!

Na minha maquina da o IP da Internet que estou usando.

OBS: Se voce estiver usando internet junta com um hubb o endereço que ele vai te dar é o da internet, a não ser que voce esteja usando ip fixo no micro.

[paulobergo]

Oi Pessoal!

Olha, para obter o ip da internet, use isto:

Function bIpValido(var IP:String):Boolean;
Begin
  Try
    Begin
      IeTesteForm.NMHTTP1.Disconnect;
      IeTesteForm.NMHTTP1.Get('http://checkip.dyndns.org/');
      htmlBody := IeTesteForm.NMHTTP1.Body;
    End;
  Except
    htmlBody := '-';
  End;

  If htmlBody <> '-' then
    Begin
      StartPos := Pos(StartText, HTMLBody) + Length(StartText);
      Leng := Pos(EndText, HTMLBody) - StartPos;
      If IP <> Copy(HTMLBody, StartPos, Leng) then
        Begin
          IP := Copy(HTMLBody, StartPos, Leng);

          If (Copy(IP,1,3) = '192') OR (Copy(IP,1,3) = '127') then
            Begin
              Result := False;
            End
          Else
            Begin
              Result := True;
            End;
          {EndIf}
        End
      Else
        Begin
          Result := False;
        End;
      {EndIf}
    End;
  {EndIf}
  bIpValido := True;
End;

* Existem outros provedores que fornecem o seu ip "externo", ou seja, o seu ip da internet... por exemplo, o "www.meuip.com.br", que é o que eu dito as pessoas que precisam, as vezes, me fornecer o ip, para que eu faça um acesso remoto para suporte, pelo vnc ou pela area de trabalho remota do xp...

* O código da função acima, usando o componente nmhttp, uso em um programa que fica funcionando como serviço no xp e, de acordo com o ip renovado (de conexão discada ou mesmo do velox), envia o ip atualizado dentro de um determinado tempo (a cada dez minutos, p.e.) para mim...

Ok?

Espero ter ajudado!

Abraços!