bb.donnay-software.com

Code: Select all

aEval(_aGetAdapterInfo(.T.,.T.), {|o| DisplayAdapter(o) } )
aEval(_aGetTcpTable(.t.)       , {|o| DisplayTcpConnection(o)})
aEval(_aGetUdpTable(.t.)       , {|o| DisplayUdpConnection(o)})

Code: Select all

Function GetIPAdres()
*********************
Local aInfo := _aGetAdapterInfo(.T.,.T.) , aReturn := {} , x , cIp := ""

if valtype(aInfo) == "A"
	for x = 1 to len(aInfo)
	    cIp := aInfo[x]:aIPList[1]
	    if cIp # "0.0.0.0"
		aadd(aReturn,cIp )
	    endif
	next
	return aReturn
endif
return {}

Code: Select all

#INCLUDE "dcdialog.CH"
#INCLUDE "asinetc.CH"
#Pragma Library("asinet10.lib")

FUNCTION Main() // Get the IP address(es) of the local machine/returns array of dotted octet strings (example '192.168.0.102') or empty array if error

*constants from #include "Asinetc.ch"
*  HOSTINFO_CNAME  Character string containing the host name
*  HOSTINFO_ALIAS  One-dimensional array holding the alias names of the host.
*                  If no alias names exist, the array is empty.
*  HOSTINFO_NTYPE  Numeric value indicating address family.
*                  (always AF_INET for Windows sockets)
*  HOSTINFO_NLEN   Number of bytes required to encode the numeric IP address.
*
*  HOSTINFO_ADDR   One-dimensional array holding the numeric IP addresses
*                  of the host in network byte order.
******************************************************************************

LOCAL aHostInfo, nError := 0, aLocalIPaddress[0], i

aHostInfo := SocketGetHostByName('LOCALHOST',@nError) //Retrieves host information from a host name

if !Empty(aHostInfo)
  aHostInfo:=SocketGetHostByName(aHostInfo[HOSTINFO_CNAME],@nError) //Retrieves host information from a host name
  if !Empty(aHostInfo)
    for i := 1 TO Len(aHostInfo[HOSTINFO_ADDR])
      Aadd( aLocalIPaddress, SocketInetNtoA(aHostInfo[HOSTINFO_ADDR,i])) //Converts a numeric internet address in network byte order to a dotted octet string (returns 192.168.0.102)
    next
  endif
endif

wtf aLocalIPAddress pause

RETURN aLocalIPaddress