PB6 调用 .net Web Service
![](https://images.cnblogs.com/OutliningIndicators/ExpandedBlockStart.gif)
OLEObject MSSOAPLib1
MSSOAPLib1= CREATE OLEObject
long ll_result
ll_result = MSSOAPLib1.ConnectToNewObject("MSSOAP.SoapClient")
if ll_result <> 0 then
messagebox("Conection","Connect Error!")
else
messagebox("Conection","Connect OK!" + string(ll_result))
end if
MSSOAPLib1.mssoapinit("http://localhost/ws1.asmx?WSDL")
string msg
msg = MSSOAPLib1.Test("111")
messagebox("",msg)
MSSOAPLib1= CREATE OLEObject
long ll_result
ll_result = MSSOAPLib1.ConnectToNewObject("MSSOAP.SoapClient")
if ll_result <> 0 then
messagebox("Conection","Connect Error!")
else
messagebox("Conection","Connect OK!" + string(ll_result))
end if
MSSOAPLib1.mssoapinit("http://localhost/ws1.asmx?WSDL")
string msg
msg = MSSOAPLib1.Test("111")
messagebox("",msg)
需要安装 Microsoft Soap Toolkit 3.0