Bem Vindo! Entrar Criar um novo perfil

Avançado

Re: Retorno do IP Dinâmico (604 Visualizações)

28/02/2017 as 02:26hs
Vou deixar a função aqui, caso alguém mais precise.
Na minha acabei fazendo o retorno mostrar apenas o IP, porém da maneira que está creio que fica melhor para quem desejar usar, fazer as suas adaptações.



Function GetIpPublico() as STRING PASCAL  
Local oHTTP as CHttp
Local cIpPublico as String
Local cUrl as String   
Local cQuery as String 


cUrl:=''https://api.ipify.org''   //trocar por " (aspas) informei ''  para não formatar como link 
cIpPublico:=""       
cQuery:="/?format=json"
oHTTP:=CHttp{cUrl}
IF oHTTP:ConnectRemote(cUrl) 
    cIpPublico:=oHTTP:GetdocumentbyURL(cUrl+cQuery)  
    oHTTP:CloseRemote() 
ENDIF    

Return cIpPublico
Assunto Autor criado

Retorno do IP Dinâmico (1637 Visualizações)

Kiko Fernandes 26/02/2017 as 02:13hs

Re: Retorno do IP Dinâmico (609 Visualizações)

Lucio Chiessi 27/02/2017 as 10:26hs

Re: Retorno do IP Dinâmico (590 Visualizações)

Kiko Fernandes 27/02/2017 as 11:57hs

Re: Retorno do IP Dinâmico (577 Visualizações)

Lucio Chiessi 27/02/2017 as 14:49hs

Re: Retorno do IP Dinâmico (566 Visualizações)

Kiko Fernandes 27/02/2017 as 17:14hs

Re: Retorno do IP Dinâmico (604 Visualizações)

Kiko Fernandes 28/02/2017 as 02:26hs



Somente usuários registados podem criar neste fórum.

Clique aqui para fazer login

Consultar mensagens antigas
Grupo VO Brasil


Hosted by