PureBasic

Send HTTP POST using non-UTF8 such as Windows-1250

See more HTTP Examples

Demonstrates how to specify the character encoding (charset) to be used for the body of an HTTP POST. PureBasic

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.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.

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

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

    ; Load a JSON file containing strings with Polish chars.
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(json,"qa_data/json/has_polish_chars.json")
    If success = 0
        Debug CkJsonObject::ckLastErrorText(json)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    ; Add the request params expected by the server-side:
    CkHttpRequest::ckAddParam(req,"tytul",CkJsonObject::ckStringOf(json,"tytul"))
    CkHttpRequest::ckAddParam(req,"tresc",CkJsonObject::ckStringOf(json,"tresc"))

    ; Indicate we wish to explicitly send the charset attribute in the HTTP request header.
    CkHttpRequest::setCkSendCharset(req, 1)

    ; Send the POST
    ; You can send the POST to the URL below.  It will respond with the request body in quoted-printable format.
    ; Using quoted-printable, we can easily see the binary bytes for the accented chars.

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkContentType(req, "application/x-www-form-urlencoded")

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

    success = CkHttp::ckHttpReq(http,"https://www.chilkatsoft.com/echoPost.cshtml",req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        CkJsonObject::ckDispose(json)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    Debug CkHttp::ckLastHeader(http)
    Debug CkHttpResponse::ckBodyStr(resp)

    ; Sample output:

    ; --------------------------------------------------
    ; POST /echoPost.cshtml HTTP/1.1
    ; Host: www.chilkatsoft.com
    ; Content-Type: application/x-www-form-urlencoded; charset=utf-8
    ; Content-Length: 79
    ; 
    ; <pre>tytul=3DPrzyk%C5%82ad&amp;tresc=3DPrzyk%C5%82ad
    ; %82oszenie</pre>
    ; --------------------------------------------------

    ; We can see by the %C5%82 that utf-8 was sent, because %C5%82 is the 2-byte representation of a particular Polish char.

    ; -----------------------
    ; However.. we can change the charset used for the HTTP request by specifying the request object's charset.

    CkHttpRequest::setCkSendCharset(req, 1)
    CkHttpRequest::setCkCharset(req, "windows-1250")
    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkContentType(req, "application/x-www-form-urlencoded")

    success = CkHttp::ckHttpReq(http,"https://www.chilkatsoft.com/echoPost.cshtml",req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkHttpRequest::ckDispose(req)
        CkJsonObject::ckDispose(json)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    Debug CkHttp::ckLastHeader(http)
    Debug CkHttpResponse::ckBodyStr(resp)

    ; Sample output...
    ; You can see how the bytes used for the Polish chars are now 1-byte per char (i.e. using Windows-1250) 

    ; --------------------------------------------------
    ; POST /echoPost.cshtml HTTP/1.1
    ; Host: www.chilkatsoft.com
    ; Content-Type: application/x-www-form-urlencoded; charset=windows-1250
    ; Content-Length: 70
    ; 
    ; <pre>tytul=3DPrzyk%B3ad&amp;tresc=3DPrzyk%B3ad
    ; e</pre>
    ; --------------------------------------------------


    CkHttp::ckDispose(http)
    CkHttpRequest::ckDispose(req)
    CkJsonObject::ckDispose(json)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure