Domino问题

[zou5655]

怎样获得Domino所在的服务器IP地址，谢谢大师

[5iCoding]

b/s还是c/s？

[liu801215]

C/S结构

[azend]

用于什么目的？看看这样行不行
条件：
已连接服务器；
方法：
在服务器文档中填写IP地址(或自行设计的数据库中)，
用的时候从文档中取出，与一般的数据没什么区别。

[hhxz770]

@_@ 1.做个ini文件，去取
2。做个socket程序，自动得到

[yw_w]

可以去ini或随便什么文件中去取

[RickeyLv]

可以用api函数呀，就跟在vb中一样呀。

[michael_law]

只能通过API来取ip地址，notes不提供函数。

[michael_law]

RE: How to get a local Ip address using lotusscript?
Posted by Wes Richardson on 21.Sep.01 at 03:16 using a Web browser
Category: Domino Designer -- Editor ElementsRelease: 5.0.5Platform: All Platforms
Hi Ruby

I searched this forum and got this information.

In the Declarations insert the following code:
Type HOSTENT
hName As Long
hAliases As Long
hAddrType As Integer
hLen As Integer
hAddrList As Long
End Type

Declare Function gethostname Lib "WSOCK32.DLL" (Byval szHost As String, Byval dwHostLen As Long) As Long
Declare Function gethostbyname Lib "WSOCK32.DLL" (Byval szHost As String) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, Byval hpvSource As Long, Byval cbCopy As Long)

The rest of the code can be put where you need it :

Dim HostName As String * 256
Dim HostPointer As Long
Dim HostStruct As HOSTENT
Dim HostAddressPointer As Long
Dim HostAddress As Long
Dim AddressNum As String
Dim Address As String

gethostname HostName, 256
HostName = Trim(HostName)
HostPointer = gethostbyname(HostName)

CopyMemory HostStruct, HostPointer, Len(HostStruct)
CopyMemory HostAddressPointer, HostStruct.hAddrList, 4
CopyMemory HostAddress, HostAddressPointer, 4

AddressNum = Trim(Hex(HostAddress))
AddressNum = String(8-Len(AddressNum), Asc("0")) & AddressNum

Address = Cstr(Cint("&H" & Mid(AddressNum, 7))) & "." & Cstr(Cint("&H" & Mid(AddressNum, 5, 2))) & "." & Cstr(Cint("&H" & Mid(AddressNum, 3, 2))) & "." & Cstr(Cint("&H" & Left(AddressNum, 2)))

[quake3]

用API函数

[java31]

http_host

[lilly317]

不能从hosts文件中取吗？