680
社区成员
发帖
与我相关
我的任务
分享
integer li_ret
comtest = CREATE OLEObject
li_ret = comtest.ConnectToNewObject('HotelCom.HotCom')
if li_ret <> 0 then
messagebox("提示","连接HotelCom组件错误!"+string(li_ret))
return
end if
ls_return = comtest.InitializeCom('Com1', 'C3F415C3-1BDB-4638-805A-B59C8358FA88', 0 )