Failed to fetch or load the WSDL, HTTP response status code = 500
Using the default WSDL URL: https://www.dataaccess.com/webservicesserver/numberconversion.wso?WSDL
Dim xml As New ChilkatXml xml.Tag = "soapenv:Envelope" success = xml.AddAttribute("xmlns:dat","http://www.dataaccess.com/webservicesserver/") success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") xml.UpdateChildContent "soapenv:Header","" xml.UpdateChildContent "soapenv:Body|dat:NumberToDollars|dat:dNum","99.0" ' In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required. xml.EmitXmlDecl = 0 Dim soapRequestBody As String soapRequestBody = xml.GetXml() Dim endpoint As String endpoint = "https://www.dataaccess.com/webservicesserver/numberconversion.wso" Dim soapAction As String soapAction = "" ' For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml" Dim contentType As String contentType = "text/xml" Dim http As New ChilkatHttp http.ClearHeaders http.SetRequestHeader "Content-Type",contentType http.SetRequestHeader "SOAPAction",soapAction Dim resp As ChilkatHttpResponse Set resp = http.PostXml(endpoint,soapRequestBody,"utf-8") If (http.LastMethodSuccess = 0) Then Debug.Print http.LastErrorText Debug.Print "Failed to send SOAP request." Exit Sub End If ' Get the XML response body. Dim responseXml As New ChilkatXml success = resp.GetBodyXml(responseXml) Dim statusCode As Long statusCode = resp.StatusCode Debug.Print "response status code: " & statusCode ' If the status code does not indicate succcess, then show the response XML, ' which probably contains error information. If (statusCode <> 200) Then Debug.Print responseXml.GetXml() Exit Sub End If Debug.Print responseXml.GetXml() ' Parse the successful SOAP response XML. ' This is a sample of the response XML, but the namespace prefixes will be different. ' We can parse the result using "*" for the namespace prefixes (see below). Dim NumberToDollarsResult As String NumberToDollarsResult = responseXml.GetChildContent("*:Body|*:NumberToDollarsResponse|*:NumberToDollarsResult")
<soapenv:Envelope xmlns:dat="http://www.dataaccess.com/webservicesserver/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"> <soapenv:Header/> <soapenv:Body> <dat:NumberToDollars> <dat:dNum>99.0</dat:dNum> </dat:NumberToDollars> </soapenv:Body> </soapenv:Envelope>
<soapenv:Envelope xmlns:dat="http://www.dataaccess.com/webservicesserver/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"> <soapenv:Header/> <soapenv:Body> <dat:NumberToDollarsResponse> <dat:NumberToDollarsResult>string</dat:NumberToDollarsResult> </dat:NumberToDollarsResponse> </soapenv:Body> </soapenv:Envelope>