HMGforum.com

Code: Select all

/////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Funcion para obtener la IP local de la red
// Agradecimiento a Daniel Crocciari (Brasil) por la idea.

Function GetLanIp

LOCAL aLanIp := {}, cLanIp := ""

	InetInit ()
	
	aLanIp := InetGetHosts ( NetName ())
	
	Iif (Empty (aLanIp), aLanIp := InetGetAlias ( NetName ()), )
	
	Iif (aLanIp [1] == "127.0.0.1", cLanIp := aLanIp [1] + "   Sin coneccion a LAN", cLanIp := aLanIp [1])
		
	InetCleanUp ()

Return cLanIp

Code: Select all

/////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Funcion GetPublicIp
// Hace un pedido a " dyndns.org " luego extrae solo la IP del HTML recibido.
// Retorna un string con la IP publica de la conexion a internet
// Creada por Claudio Ricardo Folgán sobre una idea de HMG Forum.

Function GetPublicIp

LOCAL cUrl, oUrl, oCli, cRes, nPosIni, nPosFin

	cUrl := "http://checkip.dyndns.org/"

    Begin Sequence

		oUrl = TUrl ():New ( cUrl )

		IF Empty( oUrl )
			Break
		ENDIF

		oCli = TIpClientHttp ():New ( oUrl )

		IF Empty ( oCli )
			Break
		ENDIF

		oCli:nConnTimeout = 20000

		IF ! oCli:Open ( oUrl )
			Break
		ENDIF

		cRes := oCli:Read ()	
		oCli:Close ()

    End Sequence

	If .NOT. Empty (cRes)
												// Desde aqui es extraer solo la IP del HTML que devolvio el DNS
		nPosIni := At (":", cRes)
		cRes := SubStr( cRes, nPosIni + 1)		// Borro hasta los 2 puntos ( : ) mas el espacio
		nPosFin := At ("<", cRes) - 1
		cRes := SubStr (cRes,1,nPosFin)			// Extraigo hasta el primer "Menor que" ( < )
		cRes := AllTrim (cRes)
	EndIf

Return Iif (Empty (cRes),"DNS no disponible !",cRes)