使用PB6.5调用Web Service的办法

来源：互联网发布：游戏网络初始化失败编辑：程序博客网时间：2024/06/05 17:36

至少从PB8.0/9.0开始，就已经提供Web Service Proxy功能，能够直接进行相关程序的编写。

但是，部分老项目使用PB6.5开发（呵呵，至少目前为止，大家都还认为PB6.5.1是最稳定的版本吧）

研究后发现，其实PB6.5要操作Web Service也挺容易。

/*
作者：sighs heguang@msn.com
时间：2004/12/31
说明：1.本例子用于pb对Web Service的操作。
      2.pb可使用两种方式实现。
  3.proxy方式使用pb9自带的Web Service Proxy功能实现,需要将sharedPowerBuilderpbsoapclient90.pbd包含到应用中来。
  4.OLE方式调用MSSOAP.SoapClient实现,此方式可用于低版本pb,如pb6.5。
  5.MSSOAPLib.SoapClient的获得,请从microsoft搜索soap toolkit下载soapsdk.exe
  6.本例子使用sina提供的手机短信息Web Service平台,在sina的sms网站申请了真实用户后,可直接使用本例子发送信息,信息费可能是0.2元。
*/
OLEObject MSSOAPLib1
MSSOAPLib1= CREATE OLEObject
long ll_result
ll_result = MSSOAPLib1.ConnectToNewObject("MSSOAP.SoapClient")
if ll_result <> 0 then
messagebox("系统提示","连接MSSOAP.SoapClient失败！返回参数："+string(ll_result))
end if
MSSOAPLib1.mssoapinit("http://smsinter.sina.com.cn/ws/smswebservice0101.wsdl")
mle_content.Text = MSSOAPLib1.sendXml("Sina", sle_userid.text, sle_passwd.text, sle_mobileno.text, mle_content.text, "new")