PureBasic Requires Chilkat v11.0.0+

HTTP SOAP 1.1 Request and Response using POST

See more HTTP Examples

Demonstrates 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 PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkXml.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

    success.i = 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.
    ;  --------------------------------------------------------------------------------

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ;  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>

    soapXml.i = CkXml::ckCreate()
    If soapXml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::setCkTag(soapXml, "soapenv:Envelope")
    CkXml::ckAddAttribute(soapXml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
    CkXml::ckAddAttribute(soapXml,"xmlns:smar","http://smartbear.com")
    CkXml::ckUpdateChildContent(soapXml,"soapenv:Header","")
    CkXml::ckUpdateChildContent(soapXml,"soapenv:Body|smar:HelloWorld","")

    Debug CkXml::ckGetXml(soapXml)

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkSendCharset(req, 0)
    CkHttpRequest::ckAddHeader(req,"Content-Type","text/xml; charset=utf-8")
    CkHttpRequest::ckAddHeader(req,"SOAPAction","http://smartbear.com/HelloWorld")
    CkHttpRequest::setCkPath(req, "/samples/testcomplete10/webservices/Service.asmx")
    success = CkHttpRequest::ckLoadBodyFromString(req,CkXml::ckGetXml(soapXml),"utf-8")

    CkHttp::setCkFollowRedirects(http, 1)

    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpSReq(http,"secure.smartbearsoftware.com",443,1,req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkXml::ckDispose(soapXml)
        CkHttpRequest::ckDispose(req)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    xmlResponse.i = CkXml::ckCreate()
    If xmlResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkXml::ckLoadXml(xmlResponse,CkHttpResponse::ckBodyStr(resp))
    Debug CkXml::ckGetXml(xmlResponse)

    ;  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>


    CkHttp::ckDispose(http)
    CkXml::ckDispose(soapXml)
    CkHttpRequest::ckDispose(req)
    CkHttpResponse::ckDispose(resp)
    CkXml::ckDispose(xmlResponse)


    ProcedureReturn
EndProcedure