Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) HTTP SOAP 1.1 Request and Response using POSTDemonstrates a working SOAP 1.1 request and response using POST with a live server. You may try running this example with the URLs and data provided. See http://secure.smartbearsoftware.com/samples/testcomplete10/webservices/Service.asmx?WSDL for details
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' Generate the following XML: ' <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:smar="http://smartbear.com"> ' <soapenv:Header/> ' <soapenv:Body> ' <smar:HelloWorld/> ' </soapenv:Body> ' </soapenv:Envelope> Dim soapXml As Chilkat.Xml Set soapXml = Chilkat.NewXml soapXml.Tag = "soapenv:Envelope" Dim success As Boolean success = soapXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") success = soapXml.AddAttribute("xmlns:smar","http://smartbear.com") soapXml.UpdateChildContent "soapenv:Header","" soapXml.UpdateChildContent "soapenv:Body|smar:HelloWorld","" Debug.Print soapXml.GetXml() Dim req As Chilkat.HttpRequest Set req = Chilkat.NewHttpRequest req.HttpVerb = "POST" req.SendCharset = False req.AddHeader "Content-Type","text/xml; charset=utf-8" req.AddHeader "SOAPAction","http://smartbear.com/HelloWorld" req.Path = "/samples/testcomplete10/webservices/Service.asmx" success = req.LoadBodyFromString(soapXml.GetXml(),"utf-8") http.FollowRedirects = True Set resp = http.SynchronousRequest("secure.smartbearsoftware.com",80,False,req) If (http.LastMethodSuccess = False) Then Debug.Print http.LastErrorText Else Dim xmlResponse As Chilkat.Xml Set xmlResponse = Chilkat.NewXml success = xmlResponse.LoadXml(resp.BodyStr) Debug.Print xmlResponse.GetXml() End If ' A successful XML response: ' <?xml version="1.0" encoding="utf-8" ?> ' <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> ' <soap:Body> ' <HelloWorldResponse xmlns="http://smartbear.com"> ' <HelloWorldResult>Hello World</HelloWorldResult> ' </HelloWorldResponse> ' </soap:Body> ' </soap:Envelope> |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.