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.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.
' 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 Dim soapXml As Chilkat.Xml Set soapXml = Chilkat.NewXml 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 Debug.Print soapXml.GetXml() Dim req As Chilkat.HttpRequest Set req = Chilkat.NewHttpRequest req.HttpVerb = "POST" req.SendCharset = False 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 = True Set resp = http.SynchronousRequest("wsf.cdyne.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 |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.