PC IP Address

Jeff Barnes · Post by **Jeff Barnes** » Fri Oct 27, 2006 10:56 pm

Hi Everybody,

I'm trying to have my program store the end users internal IP Address but I can not seem to get the actual address.

I am using:

GetHostByName( GetHostName() )

But it always returns 0.0.0.0

What am I doing wrong?

Thanks,
Jeff

James Bott · Post by **James Bott** » Sat Oct 28, 2006 2:34 am

Jeff,

You must add WsaStartup() before the call to Gethostbyname() and add a WsaCleanup() after the call.

Try this:

Function GetIP()
Local cVar1
WsaStartUp()
cVar1 := GetHostByName( GetHostName() )
WsaCleanUp()
return cVar1

James

Jeff Barnes · Post by **Jeff Barnes** » Sun Oct 29, 2006 2:27 pm

Thanks James.

Works perfectly.

Jeff