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 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) 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
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set http = CreateObject("Chilkat_9_5_0.Http") ' 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> set soapXml = CreateObject("Chilkat_9_5_0.Xml") soapXml.Tag = "soapenv:Envelope" 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","" outFile.WriteLine(soapXml.GetXml()) set req = CreateObject("Chilkat_9_5_0.HttpRequest") req.HttpVerb = "POST" req.SendCharset = 0 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 = 1 ' resp is a Chilkat_9_5_0.HttpResponse Set resp = http.SynchronousRequest("secure.smartbearsoftware.com",80,0,req) If (http.LastMethodSuccess = 0) Then outFile.WriteLine(http.LastErrorText) Else set xmlResponse = CreateObject("Chilkat_9_5_0.Xml") success = xmlResponse.LoadXml(resp.BodyStr) outFile.WriteLine(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> outFile.Close |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.