那位做过访问WebService的接口问题

mengxing8100

PB调用Web不复杂吧

ccwlm741212

mengxing8100 发表于 2012-6-28 12:48
PB调用Web不复杂吧

主要是没搞过，兄弟有这方面的经验可以交流一下

ljm8093

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

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

ccwlm741212

ljm8093 发表于 2012-7-2 22:10
下面是我调用他们的下载疾病目录  过程

int mess

这个例子 我也下过重点研究了