topic-32300

davidbarrio

Posts: 14

Joined: Wed Apr 04, 2007 11:56 AM

Conocer el Numero de IP
Posted: Tue Apr 19, 2016 05:44 PM

Estimados

Como puedo saber desde FW el numero de IP de la PC donde se esta ejecutando la aplicacion

gracias

david

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Conocer el Numero de IP
Posted: Tue Apr 19, 2016 06:16 PM

David...
Aquí va:

Code (fw): Select all Collapse

// OBTENER LA IP DE LA PC //
Function GetIpAddress()
Local cName :=NetName(.F.)
Local aHosts:={}
Local cIp   := ""

INetInit()

aHosts:=INetGetHosts (cName)

IF aHosts == NIL
   aHosts:=INetGetAlias (cName)
ENDIF

IF Len (aHosts) > 0
  cIp:=aHosts[1]
ENDIF

INetCleanUp()

Return cIp
//

Espero sea lo que estás necesitando.
Saludos,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

davidbarrio

Posts: 14

Joined: Wed Apr 04, 2007 11:56 AM

Re: Conocer el Numero de IP
Posted: Wed Apr 20, 2016 10:32 AM

Correcto.... MUCHAS GRACIAS !!!

David

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Conocer el Numero de IP
Posted: Thu Apr 21, 2016 03:09 PM

cIP := GetHostByName(GetHostName())
Tambien te puede serviro

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Conocer el Numero de IP
Posted: Thu Apr 21, 2016 03:37 PM

cmsoft

Con
cIP := GetHostByName(GetHostName())

No funciona.

Saludos,

Adhemar

Saludos,

Adhemar C.

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Conocer el Numero de IP
Posted: Fri Apr 22, 2016 01:07 PM

Efectivamente Adhemar
Me funciona en mis programas, pero segun leo en el foro en ingles en este link http://forums.fivetechsupport.com/viewtopic.php?f=3&t=4722&start=0&hilit=GetHostName hay que poner antes

Code (fw): Select all Collapse

WsaStartUp()
cIP := GetHostByName(GetHostName())  
MsgInfo(cIp)

Gracias por la observacion

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Conocer el Numero de IP
Posted: Sat Apr 23, 2016 02:02 PM

Perfecto.
Gracias

Para saber de un equipo de la red es así:

Code (fw): Select all Collapse

WsaStartUp()
cIP := GetHostByName("NOMBREPC.dominio.com")  
MsgInfo(cIp)

Con GetEnv("PROCESSOR_ARCHITEW6432") se obtiene si es x64 ó x32

Alguien sabe cómo obtener la versión de windows que está instalado?

Saludos,

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion