![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) HTTP SOAP 1.2 Request and Response using POSTDemonstrates a working SOAP 1.2 request and response using POST with a live server. You may try running this example with the URLs and data provided. See http://wsf.cdyne.com/WeatherWS/Weather.asmx?op=GetCityWeatherByZIP for details. Note: This example is correct in theory, but no longer works for live testing because the SOAP service provider (cdyne.com) has made changes or discontinued the free service. Note: This example requires Chilkat v11.0.0 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' -------------------------------------------------------------------------------- ' Also see Chilkat's Online WSDL Code Generator ' to generate code and SOAP Request and Response XML for each operation in a WSDL. ' -------------------------------------------------------------------------------- set http = CreateObject("Chilkat.Http") set soapXml = CreateObject("Chilkat.Xml") soapXml.Tag = "soap12:Envelope" success = soapXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") success = soapXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema") success = soapXml.AddAttribute("xmlns:soap12","http://www.w3.org/2003/05/soap-envelope") soapXml.NewChild2 "soap12:Body","" success = soapXml.GetChild2(0) soapXml.NewChild2 "GetCityWeatherByZIP","" success = soapXml.GetChild2(0) success = soapXml.AddAttribute("xmlns","http://ws.cdyne.com/WeatherWS/") soapXml.NewChild2 "ZIP","60187" soapXml.GetRoot2 outFile.WriteLine(soapXml.GetXml()) set req = CreateObject("Chilkat.HttpRequest") req.HttpVerb = "POST" req.SendCharset = 0 req.AddHeader "Content-Type","application/soap+xml; charset=utf-8" req.AddHeader "SOAPAction","http://ws.cdyne.com/WeatherWS/GetCityWeatherByZIP" req.Path = "/WeatherWS/Weather.asmx" success = req.LoadBodyFromString(soapXml.GetXml(),"utf-8") http.FollowRedirects = 1 set resp = CreateObject("Chilkat.HttpResponse") success = http.HttpSReq("wsf.cdyne.com",80,0,req,resp) If (success = 0) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If set xmlResponse = CreateObject("Chilkat.Xml") success = xmlResponse.LoadXml(resp.BodyStr) outFile.WriteLine(xmlResponse.GetXml()) outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.