nvuo_winsock_ip lnvuo_winsock_ip
lnvuo_winsock_ip.uf_get_ip_address()

$PBExportHeader$nvuo_winsock_ip.sru
forward
global type nvuo_winsock_ip from nonvisualobject
end type
type hostent from structure within nvuo_winsock_ip
end type
type wsadata from structure within nvuo_winsock_ip
end type
end forward

type hostent from structure
	unsignedlong		h_name
	unsignedlong		h_aliases
	integer		h_addrtype
	integer		h_length
	unsignedlong		h_addr_list
end type

type wsadata from structure
	unsignedinteger		version 
	unsignedinteger		highversion 
	character		description[ 257 ] 
	character		systemstatus[ 129 ] 
	unsignedinteger		maxsockets 
	unsignedinteger		maxupddg 
	string		 vendorinfo 
end type

global type nvuo_winsock_ip from nonvisualobject autoinstantiate
end type

type prototypes
Function integer gethostname (	Ref string name, integer namelen) Library "ws2_32.dll" Alias for "gethostname;Ansi"
Function ulong gethostbyname (string name	) Library "ws2_32.dll" Alias for "gethostbyname;Ansi"

Subroutine CopyMemoryIP (	Ref hostent Destination, ulong Source, long Length) Library  "kernel32.dll" Alias For "RtlMoveMemory"
Subroutine CopyMemoryIP (	Ref blob Destination, ulong Source, long Length) Library  "kernel32.dll" Alias For "RtlMoveMemory"
Subroutine CopyMemoryIP (	Ref ulong Destination, ulong Source, long Length) Library  "kernel32.dll" Alias For "RtlMoveMemory"

Function long WSAStartup ( long wVersionRequested, Ref wsadata lpWSAData) Library "ws2_32.dll"
Function long WSACleanup () Library "ws2_32.dll"
end prototypes

type variables

end variables

forward prototypes
public function string uf_get_ip_address ()
end prototypes

public function string uf_get_ip_address ();string ls_hostname, ls_ipaddress
nvuo_winsock_ip gn_ping
Integer li_rc, li_namelen
Blob lblb_ipaddr
hostent lstr_host
ULong lul_ptr, lul_ipaddr

li_namelen =  32 
ls_hostname = Space(li_namelen)

li_rc = gethostname(ls_hostname, li_namelen)
If li_rc <>  0  Then
	MessageBox('ERROR', "Error in uf_get_ip_address")
	RETURN 'ERROR'
End If

// get information about host
lul_ptr = gethostbyname(ls_hostname)

If lul_ptr >  0  Then
	// copy structure to local structure
	CopyMemoryIP(lstr_host, lul_ptr,  16 )
	
	// get memory address where ipaddress is located
	CopyMemoryIP(lul_ipaddr, lstr_host.h_addr_list,  4 )
	
	// copy ipaddress to local blob
	lblb_ipaddr = Blob(Space( 4 ),EncodingAnsi!)
	CopyMemoryIP(lblb_ipaddr, lul_ipaddr,  4 )
	
	// Get string from blob
	ls_ipaddress  = String(AscA(String(BlobMid(lblb_ipaddr, 1 , 1 ),EncodingAnsi!)),"##0") + "."
	ls_ipaddress += String(AscA(String(BlobMid(lblb_ipaddr, 2 , 1 ),EncodingAnsi!)),"##0") + "."
	ls_ipaddress += String(AscA(String(BlobMid(lblb_ipaddr, 3 , 1 ),EncodingAnsi!)),"##0") + "."
	ls_ipaddress += String(AscA(String(BlobMid(lblb_ipaddr, 4 , 1 ),EncodingAnsi!)),"##0")
Else
	MessageBox('ERROR', "Error in uf_get_ip_address")
	RETURN 'ERROR'
End If

messagebox('IP-address', ls_ipaddress)

RETURN ls_ipaddress
end function

on nvuo_winsock_ip.create
call super::create
TriggerEvent( this, "constructor" )
end on

on nvuo_winsock_ip.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event constructor;wsadata lstr_wsadata
Long ll_rc

// initialize Winsock
ll_rc = WSAStartup( 257 , lstr_wsadata)
If ll_rc <>  0  Then
	MessageBox('ERROR', "WSAStartup Error in constructor")
End If

end event

event destructor;// cleanup Winsock
WSACleanup()

end event