Page 1 of 1

IP local de um PC

Posted: Sat Mar 23, 2019 3:15 pm
by MGA
Olá,

alguem teria uma função que retorne o IP local de um PC?

Image

Re: IP local de um PC

Posted: Sat Mar 23, 2019 3:27 pm
by FranciscoA
Hola. Intenta con esto:

Code: Select all

//---------------//Conocer IP del ordenador
Function GetIP()
local cIP

   WsaStartUp() 

   cIP := GetHostByName( GetHostName() )   //IP equipo local

   WsaCleanUp() 

Return cIP
Saludos.

Re: IP local de um PC

Posted: Mon Mar 25, 2019 11:23 am
by MGA
Francisco,

muito obrigado, funciona perfeitamente! :D

Re: IP local de um PC

Posted: Mon Mar 25, 2019 6:11 pm
by FranciscoA
Me alegra que te haya sido de utilidad.
Saludos.