Conocer la IP

[yadira]

Hola a todos
hay alguna funcion que pueda usar para conocer la ip de la maquina que estoy trabajando, me refiero claro a una ip publica de internet ?

si no la hay, ¿como puedo saberla por medio de programacion?

saludos

[Antonio Linares]

Code: Select all  Expand view

Function GetIP()
   Local cVar1

   WsaStartUp()
   cVar1 := GetHostByName( GetHostName() )
   WsaCleanUp()

return cVar1


[yadira]

Gracias Antonio
Ya realice lo que me indicaste, pero regresa la IP Local no la de Internet (Tengo IP Dinamica), debo aclarar que tengo un ruteador y la funcion me da como respuesta
192.168.0.3

y mi IP en este dia es: 200.124.20.22

gracias por tu respuesta