PureBasic

Send XMLHttpRequest and Get Response

See more HTTP Examples

Demonstrates how to send an HTTP XML request and retrieve the response. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

    success.i = 0

    ; This example assumes the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    ; The XML sent in the body of the request is application
    ; specified -- it should contain whatever the server-side
    ; application is expecting..
    xmlStr.s = "<?xml version=" + Chr(34) + "1.0" + Chr(34) + " encoding=" + Chr(34) + "UTF-8" + Chr(34) + "?><appXml><something>123</something></appXml>"

    urlEndpoint.s = "http://www.chilkatsoft.com/xmlEcho.asp"
    xmlCharset.s = "utf-8"

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

    success = CkHttp::ckHttpStr(http,"POST",urlEndpoint,xmlStr,xmlCharset,"application/xml",resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    ; The raw HTTP request sent by the above call is:

    ; POST /xmlEcho.asp HTTP/1.1
    ; Content-Type: text/xml
    ; Host: www.chilkatsoft.com
    ; Accept: */*
    ; Accept-Charset: ISO-8859-1,utf-8;q=0.7,*; q=0.7
    ; Accept-Language: en-us,en;q=0.5
    ; Accept-Encoding: gzip
    ; Content-Length: 81
    ; 
    ; <?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>

    ; Examine the Body of the HTTP response
    ; This would be the XML response sent by the server.
    Debug CkHttpResponse::ckBodyStr(resp)


    CkHttp::ckDispose(http)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure