UA Developer: Clarion FAQ

  PROGRAM
  MAP
    MODULE('wsock32.dll')
WSAStartup(SIGNED, *lpWSAData),SIGNED,RAW,PASCAL,NAME('WSAStartup')
Inet_NToA(ULONG),ULONG,RAW,PASCAL,NAME('Inet_NToA')
WSACleanup(),SIGNED,RAW,PASCAL,NAME('WSACleanUP')
GetHostByName(*CSTRING),LONG,RAW,PASCAL,NAME('GetHostByName')
GetHostName(*CSTRING,LONG),LONG,RAW,PASCAL,NAME('GetHostName')
    END
  END

lpWSAData         GROUP,TYPE
wVersion            SIGNED
wHighVersion        SIGNED
szDescription       CSTRING(257)
szSystemStatus      CSTRING(129)
iMaxSockets         USHORT
iMaxUpdDg           USHORT
lpVendorInfo        LONG
END
InetAddr          ULONG
WSAData1          GROUP(lpWSAData)
END
LocalHost         CSTRING(100)
LocalIP           CSTRING(15)

  CODE
  err# = WSACleanUP()
  CLEAR(WSAData1)
  IF WSAStartup(2,WSAData1) < 0
    RETURN
  END
  err# = GetHostName(LocalHost,100)
  InetAddr = GetHostByName(LocalHost)
  IF InetAddr
    PEEK(InetAddr + 12,InetAddr)
    PEEK(InetAddr,InetAddr)
    PEEK(InetAddr,InetAddr)
    PEEK(Inet_NToA(InetAddr),LocalIP)
  END
  err# = WSACleanup()
  MESSAGE(LocalIP)