请问怎么建立代理对象,用PB8
请问怎么建立代理对象,用PB8?
谢谢~
另请问谁有EASERVER 4.2的资料的可以提供?
下面的是网上下载的代码
n_cst_connect inv_connect_srv //2创建的连接对象声明
Jaguar_2001_n_cst_base inv_login_srv //代理对象声明 这一个对象不知是从那里创建的
integer li_return
inv_connect_srv = CREATE n_cst_connect
li_return = inv_connect_srv.ConnectToServer( )
TRY //创建代理对象inv_login_srv
li_return =
inv_connect_srv.CreateInstance(inv_login_srv,"Jaguar_2001/n_cst_base")
CATCH (cts_pbuserexception uae)
li_return = 999
END TRY
IF li_return <> 0 THEN
MessageBox("Error Info", "ErrorCode= " + string(inv_connect_srv.ErrCode) + "~nErrText= " + inv_connect_srv.ErrText)
END IF
TRY // 进行登录,表中有一行数据(xzh2000,000000)
li_return = inv_login_srv.of_user_logon("xzh2000","000000")
CATCH (cts_pbuserexception uae1)
li_return = 999
END TRY
If li_return = 1 then
Messagebox("system","OK")
Else
Messagebox("system","CANCEL")
End if