topic-36934

Board index FiveWin para Harbour/xHarbour IP local de um PC

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

IP local de um PC
Posted: Sat Mar 23, 2019 03:15 PM

Olá,

alguem teria uma função que retorne o IP local de um PC?

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: IP local de um PC
Posted: Sat Mar 23, 2019 03:27 PM

Hola. Intenta con esto:

Code (fw): Select all Collapse

//---------------//Conocer IP del ordenador
Function GetIP()
local cIP

   WsaStartUp() 

   cIP := GetHostByName( GetHostName() )   //IP equipo local

   WsaCleanUp() 

Return cIP

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: IP local de um PC
Posted: Mon Mar 25, 2019 11:23 AM

Francisco,

muito obrigado, funciona perfeitamente!

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: IP local de um PC
Posted: Mon Mar 25, 2019 06:11 PM

Me alegra que te haya sido de utilidad.
Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion