PureBasic

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