pb调用Webservice步骤

下面是我调用他们的下载疾病目录 过程

int mess
mess = messagebox('提示','确定要重新下载数据吗？',question!,yesno!,2)
if mess = 2 then return
st_waiting.visible = true


//////////////////////////
//pb 调用 Web service 步骤


// 第一步 创建对象 ， 连接 Web service

long ll_ret , ll_row
string str_proxy_name = 'qqncmsservicehttpport'
string err

soapconnection lsc_conn
qqncmsservicehttpport lproxy_obj

try
lsc_conn = create soapconnection
catch (RUNtimeerror e11)
err = '创建soapconnection 出现错误，错误消息是： ' + e11.getMessage()
messagebox('',err)
st_waiting.visible = false
return
end try

try
lsc_conn.SetOptions("SoapLog=~"soaplog.txt~"")
catch (RUNtimeerror e12)
err = 'soapconnection 调用函数SetOptions 出现错误，错误消息是： ' + e12.getMessage()
st_waiting.visible = false
messagebox('',err)
return
end try

try
ll_ret = lsc_conn.createInstance(lproxy_obj,str_proxy_name,wsdl)
catch (RUNtimeerror e13)
err = 'soapconnection 创建实例(函数createInstance)失败，错误消息是： ' + e13.getMessage()
messagebox('',err)
st_waiting.visible = false
return
end try
if ll_ret <> 0 then
err = '创建实例失败,请检查代理对象是否正确,错误代码'
messagebox('',err)
st_waiting.visible = false
return
end if


//第二步 调用 Ws的方法 ， 因为方法不一样，所有函数参数也不一样


string WebService_Return_Values
try
WebService_Return_Values = lproxy_obj.getDiseaseCatalog (gs_hospitalcode )
catch (SoapException e14)
messagebox('调用方法','调用web service 失败：' + e14.getMessage())
st_waiting.visible = false
return
catch (PBXRuntimeError e15)
messagebox('调用方法','调用　函数出现 运行错误 错误!')
st_waiting.visible = false
return
catch (RUNtimeerror e16)
messagebox('调用方法','调用　函数出现 不可知 错误!')
st_waiting.visible = false
return
end try


//longlong aa
//aa = len(WebService_Return_Values)
//messagebox('',string(aa))
//messagebox('',mid(WebService_Return_Values , 6000 , 10000))

// 第三步 判断 调用方法是否 返回了正确的值 （错误的结果）

//messagebox('',WebService_Return_Values )
string re
re = f_nh_get_true_or_false(WebService_Return_Values)
if re <> '' then // 表示返回了错误的结果， 并显示错误提示！
messagebox('',re )
st_waiting.visible = false
return
end if


// 第四部 把返回的值 通过 PBDOM , 转化成 XML 文件

PBDOM_BUILDER pbdom_bldr
PBDOM_Document pbdom_doc
PBDOM_Object pbdom_obj_array[]
PBDOM_Element pbdom_elem

Try

pbdom_bldr = Create PBDOM_Builder
pbdom_doc = pbdom_bldr.BuildFromString (WebService_Return_Values)
pbdom_doc.SaveDocument ("pbdom_doc_disease.xml")
Destroy pbdom_bldr

CATCH (PBDOM_Exception except)
MessageBox

("Exception Occurred", '创建PBDOM_Builder失败：' + except.Text)
st_waiting.visible = false
return
END TRY

// 第五部 把xml转化成 需要的 数据， 如，可以导入数据窗口。

//long ll_retrieve
//
//dw_2.reset()
//ll_row = dw_2.ImportFile(XML!,"pbdom_doc_disease.xml")
//if ll_retrieve < 0 then
// messagebox('',string(ll_retrieve))
//end if

destroy lsc_conn




dw_2.ImportFile(XML!,"pbdom_doc_disease.xml")


if dw_2.update() = 1 then
commit;
messagebox('','下载成功!')
dw_4.retrieve()
else
rollback;
messagebox('','下载失败!')
end if
//============调用web server方法======================
long ll_rv,ll_result

soapconnection i_conn
n_webservicesoap iws_proxy_obj

i_conn = create soapconnection //创建连接
ll_result = i_conn.createinstance(iws_proxy_obj,"n_webservicesoap") //创建实例
try
sle_2.text= iws_proxy_obj.gf_decode_md5(sle_1.text) //调用web service方法
catch (soapexception e)
messagebox('提示:','连接服务器失败!')
end try

destroy iws_proxy_obj //webservices 组件
destroy i_conn