功能明细 > 数据接口 > COM接口 > VB 接口 > 连接服务器com_nt

函数

STDMETHOD(com_nt_connect)(

BSTR szIP,

LONG nPort,

BSTR szBakIP,

LONG nBakPort,

LONG nTimeOut,

LONG* nRetErr

);

参数

[in] BSTR szIP, 服务器ip

[in] LONG nPort, 服务器端口号

[in] BSTR szBakIP, 备服务器ip

[in] LONG nBakPort, 备服务器端口号

[in] LONG nTimeOut, 连接超时

[out,retval]LONG* nRetErr，返回值

返回值

连接成功，返回RD_SUCCESS。失败返回其它错误码，见error_code.h

说明

连接服务器函数。连接成功后调用com_nt_disconnect来断开与服务器的连接，com_nt_connect和com_nt_disconnect采用引用计算，需要确保成对使用。

举例

Set objArray= CreateObject("hdCOMInterface.hdCOMClass.1")

Dim ip,port,bakip,bakport,timeout

ip= "127.0.0.1"

port= 5678

bakip = "1.2.3.4"

bakport = 1234

timeout= 3

Dim ret

objArray.com_nt_connect ip,port,bakip,bakport,timeout

Dim usrname,password,result

usrname= "test"

password="test"

result = CLng(objArray.com_sc_login (usrname,password))

objArray.com_nt_disconnect

Msgbox "login result is:" &result

Set objArray= nothing

连接服务器com_nt_connect