Pb8利用ole方式通过MicrosoftSoapToolkit30调用webservice

Pb8利用ole方式通过Microsoft Soap Toolkit30调用webservice

1、下载Microsoft Soap Toolkit30并安装

2、PB8以及以前版本连接Webservice代码如下:

try

OLEObject MSSOAPLib1

MSSOAPLib1 = CREATE OLEObject

Long ll_result

ll_result = MSSOAPLib1.ConnectToNewObject("MSSOAP.SoapClient30")

IF ll_result <> 0 THEN

MessageBox("系统提示","连接MSSOAP.SoapClient失败！返回参数："+String(ll_result))

END IF

MSSOAPLib1.mssoapinit("http://IP:port/MessageApi.asmx?wsdl")

MSSOAPLib1.ConnectorProperty("Timeout",180000) //设置访问超时时间

string as_output

string sInputXml="<data><MerBillNo>test0211211</MerBillNo><MerNo>E000046301</MerNo><OrderDate>2016-05-25</OrderDate><OrderAmount>0.01</OrderAmount><OrderSource>01</OrderSource><ProductCode></ProductCode><ProductName>测试商品01</ProductName><CreateBy>夏晓勇</CreateBy><OrderType>01</OrderType><PayType>01</PayType><Ord_Source_Ip></Ord_Source_Ip><Ord_Termno></Ord_Termno><Source_Id></Source_Id><Bill_Code></Bill_Code><OrderState></OrderState><Sign_Type></Sign_Type><SignData></SignData><OrderData><row><AppointID></AppointID><Card_No></Card_No><Dept_Code>10080</Dept_Code><Dept_Name>消化内科</Dept_Name><Exc_Dept_Code>10080</Exc_Dept_Code><Exc_Dept_Name>消化内科</Exc_Dept_Name><Reg_Type_Code>01</Reg_Type_Code><Reg_Type_Name>-</Reg_Type_Name><Reg_Level_Code>01</Reg_Level_Code><Reg_Level_Name>普通</Reg_Level_Name><Doct_Code>0173</Doct_Code><Doct_Name>黄健</Doct_Name><Reg_Fee>0.01</Reg_Fee><Chk_Fee></Chk_Fee><Dig_Fee></Dig_Fee><Tot_Amount>0.01</Tot_Amount><Noon>PM</Noon><See_Date>2015-05-23</See_Date><See_Number>4</See_Number></row></OrderData></data>"

as_output = MSSOAPLib1.msginterface("F000101",sInputXml,"xml")

catch(RuntimeError e)

return -1

end try

--武汉小虾

本文来源：https://www.wddqw.com/doc/c8a802c0647d27284a73510e.html