pb6调用PB9写的DLL问题(牵涉到WEB SERVICE的调用)
用PB9写了一个DLL想给PB6调用
DLL文件内写了一个函数getcorpentity
SoapConnection conn
patientinfocorpentityendpointpb proxy_patientinfo
long ll_return
string ls_url,ls_result
conn = create SoapConnection
ls_url = is_url + 'CorpEntityService'
proxy_patientinfo = create patientinfocorpentityendpointpb
ll_return = Conn.CreateInstance(proxy_patientinfo, "patientinfocorpentityendpointpb",ls_url)
if ll_return <> 0 then
messagebox("",'连接服务器失败')
return '-1'
end if
messagebox("",string(ll_return))
messagebox("",'OK')
ls_result = proxy_patientinfo.getcorpentity(user,CorpEntityWSParamDTO)
destroy proxy_patientinfo
destroy conn
return ls_result
直接在PB9中能使用该函数getcorpentity(WEB代理的一个函数)
在PB6.5中调用出错:Error calling external object function getcorpentity
另附PB6.5的调用代码:
oleobject lole_1
string ls_user,ls_CorpEntityWSParamDTO,ls_return
lole_1=create oleobject
lole_1.connecttonewobject("jlhis_ncms") //jlhis_ncms为dll的Program ID int
ls_user = 'USER<userName|zhangxuehai,password|123456789>'
ls_CorpEntityWSParamDTO = 'CorpEntityWSParamDTO<cardNo|,personName|,personCode|,>'
messagebox("",lole_1.classname())
ls_return = lole_1.getcorpentity(ls_user,ls_CorpEntityWSParamDTO)
lole_1.disconnectobject()
请高人指教什么原因,怎么处理,急啊!!!!