PureBasic

Demonstrate HttpRequest.RemoveAllParams

Demonstrates the effect of calling HttpRequest.RemoveAllParams. PureBasic

IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

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

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkPath(req, "/test123")
    CkHttpRequest::setCkContentType(req, "application/x-www-form-urlencoded")
    CkHttpRequest::ckAddParam(req,"paramA","AAA")
    CkHttpRequest::ckAddParam(req,"paramB","BBB")
    CkHttpRequest::ckAddParam(req,"paramC","CCC")

    Debug CkHttpRequest::ckGenerateRequestText(req)
    Debug "---------------"

    ; Generates: 

    ; 	POST /test123 HTTP/1.1
    ; 	Content-Type: application/x-www-form-urlencoded
    ; 	Host: domain
    ; 	Content-Length: 32
    ; 
    ; 	paramA=AAA&paramB=BBB&paramC=CCC
    ; 

    ; If we call RemoveAllParams, and then add some additional params,
    ; then the original params are gone, and only the new params exist.
    CkHttpRequest::ckRemoveAllParams(req)
    CkHttpRequest::ckAddParam(req,"paramD","DDD")
    CkHttpRequest::ckAddParam(req,"paramE","EEE")
    CkHttpRequest::ckAddParam(req,"paramF","FFF")
    Debug CkHttpRequest::ckGenerateRequestText(req)
    Debug "---------------"

    ; Generates:

    ; 	POST /test123 HTTP/1.1
    ; 	Content-Type: application/x-www-form-urlencoded
    ; 	Host: domain
    ; 	Content-Length: 32
    ; 
    ; 	paramD=DDD&paramE=EEE&paramF=FFF


    CkHttpRequest::ckDispose(req)


    ProcedureReturn
EndProcedure