Ir para conteúdo
Fórum Script Brasil
  • 0

Descobir Ip (internet) Pelo Delphi


schaukoski

Pergunta

7 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...