Pessoal tem como saber o IP da maquina

helio · Mensagem por **helio** » 30 Nov 2007 18:30

Pessoal estou querendo saber o IP da maquina que estar sendo rodando o sistema.

Valeu antecipadamente,

Helio Beltrao Jr.
helio@hrbinfo.com.br

Mensagem por **sygecom** » 30 Nov 2007 20:39

Código: Selecionar todos

@ 10,10 say getip()

Código: Selecionar todos

PROCEDURE GetIp()
LOCAL aHosts
LOCAL cName
Local cEstacao:=netname(.f.)
InetInit()
aHosts := InetGetHosts( cEstacao )
IF aHosts == NIL
   aHosts := InetGetAlias( cEstacao )
ENDIF
IF Empty(aHosts)
   aHosts := InetGetAlias( cEstacao )
ENDIF
InetCleanup()
RETURN  ahosts[1 ]

helio · Mensagem por **helio** » 30 Nov 2007 20:57

Valeu pela forca funcionou Beleza.

Um Abraco,

Mensagem por **sygecom** » 01 Dez 2007 18:36

qualquer coisa prende o grito !!!

alberto_dias · Mensagem por **alberto_dias** » 26 Dez 2011 22:29

Sygecom,
Boa noite,
Estou precisando do ip da máquina local
e usei o seu exemplo mas ao compilar,
esta dando um erro uresolved external
_hb_fun_inetinit, _hb_fun_inetgethosts,
_hb_fun_inetgetalias, _hb_fun_inetcleanup
vc poderia me dar uma dica do que preciso
fazer,
Muito obrigado,
ALBERTO DIAS

alberto_dias · Mensagem por **alberto_dias** » 29 Dez 2011 22:40

Sygecom, boa noite,
Seu exemplo está perfeito, está funcionando,

)
Perfeito,
Atenciosamente,
ALBERTO DIAS

Mário Isa · Mensagem por **Mário Isa** » 06 Jan 2012 15:56

vc colocou algum include ou .lib ?

Pablo César · Mensagem por **Pablo César** » 06 Jan 2012 16:45

Acredito que teria que linkar com xhb.

Em MiniGui é muito fácil isso. Coloquei aqui dois exemplo compilado e com os fontes que pertencem ao C:\MiniGUI\samples\BASIC\IPADDRESS do HMG Extended.