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?

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!

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.