Jump to content
Fórum Script Brasil
  • 0

Descobir Ip (internet) Pelo Delphi


schaukoski
 Share

Question

7 answers to this question

Recommended Posts

  • 0
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;

Link to comment
Share on other sites

  • 0
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;

Link to comment
Share on other sites

  • 0
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.

Link to comment
Share on other sites

  • 0
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.

Link to comment
Share on other sites

  • 0

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!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...