schaukoski Postado Julho 6, 2007 Denunciar Share Postado Julho 6, 2007 Olá Pessoal, eu consegui apenas o IP da rede(máquina)...alguém sabe como posso fazer para trazer o IP de internet? Valeu!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest --HDELPHI -- Postado Julho 6, 2007 Denunciar Share Postado Julho 6, 2007 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; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 schaukoski Postado Julho 6, 2007 Autor Denunciar Share Postado Julho 6, 2007 meu delhpi não tem essa palleta ... to usando o delphi 7....tem outro componente pra fazer isso no delphi 7?Obrigado! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest --HDELPHI -- Postado Julho 6, 2007 Denunciar Share Postado Julho 6, 2007 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 IdIPWatchprocedure TForm1.Button1Click(Sender: TObject);var s : string;begin s := IdIPWatch1.LocalIP; Label1.Caption := s;end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 schaukoski Postado Julho 6, 2007 Autor Denunciar Share Postado Julho 6, 2007 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!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest --HDELPHI -- Postado Julho 6, 2007 Denunciar Share Postado Julho 6, 2007 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest --HDELPHI -- Postado Julho 6, 2007 Denunciar Share Postado Julho 6, 2007 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 paulobergo Postado Julho 8, 2007 Denunciar Share Postado Julho 8, 2007 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! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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!!!
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
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.