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

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