pb和webservice的通讯

int result
OLEObject lo_XmlHttp
OLEObject lo_XmlDoc
OLEObject lo_pElement
OLEObject lo_Element

string ls_Method
string ls_ServiceURL
ls_Method = "http://tempuri.org/Load"
//ls_ServiceURL = "http://10.13.102.228/Sun100WS/DataExchangeSvr.asmx"
ls_ServiceURL = "http://192.168.0.92:80/service/XChangeServlet?account=00001&receiver=43050000"
lo_XmlHttp = Create OLEObject

result = lo_xmlHttp.connecttonewobject( "MSXML2.XMLHttp")
if result <> 0 then
messagebox("","无法创建XMLHttp对象")
return
end if

lo_XmlDoc = Create OLEObject
lo_XmlDoc.ConnectToNewObject("MSXML2.DOMDocument")
lo_XmlDoc.resolveExternals = True

lo_pElement = lo_XmlDoc.createElement("soap:Envelope")
lo_pElement.setAttribute( "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
lo_pElement.setAttribute( "xmlns:xsd", "http://www.w3.org/2001/XMLSchema")
lo_pElement.setAttribute( "xmlns:soap", "http://schemas.xmlsoap.org/soap/envelope/")
lo_XmlDoc.appendChild( lo_pElement)

lo_Element = lo_XmlDoc.createElement("soap:Body")
lo_pElement.appendChild( lo_Element)

lo_pElement = lo_Element
lo_Element = lo_XmlDoc.createElement("Load")
lo_Element.setAttribute( "xmlns", "http://tempuri.org/")
lo_pElement.appendChild( lo_Element)

lo_pElement = lo_Element
lo_Element = lo_XmlDoc.createElement("sql")
lo_Element.text = "Select TOP 1 *  from zb_Analysis_TemplateInfo FOR XML RAW('zb_Analysis_TemplateInfo'), ROOT('Root')"
lo_pElement.appendChild( lo_Element)
//'===========上传数据===============
lo_XmlHttp.Open( "POST", ls_ServiceURL, False)
lo_XmlHttp.setRequestHeader( "Content-Type", "text/xml;charset=utf-8")
//lo_XmlHttp.setRequestHeader( "SOAPAction", ls_Method)
lo_XmlHttp.send( lo_XmlDoc.XML)

lo_XmlDoc.save("c:/dddd.xml")
If lo_XmlHttp.StatusText = "OK" Then
messagebox("","success!")
String aabb
aabb=lo_XmlHttp.responseText
messagebox("",aabb)

Else
messagebox("","failure!")
End If