(PureBasic) Initialize an HTTP Request from a URL

Demonstrates how to initialize an HTTP request object from a URL.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

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

    ; Loads the HTTP request object from a URL
    CkHttpRequest::ckSetFromUrl(req,"https://www.youtube.com/watch?v=fAZdTchQePc&t=45s")

    ; The verb will be "GET"
    Debug "verb = " + CkHttpRequest::ckHttpVerb(req)
    ; The path will be "/watch"
    Debug "path = " + CkHttpRequest::ckPath(req)

    ; The output of this loop will be
    ; 0) v: fAZdTchQePc
    ; 1) t: 45s
    i.i
    numParams.i = CkHttpRequest::ckNumParams(req)
    For i = 0 To numParams - 1
        Debug Str(i) + ") " + CkHttpRequest::ckGetParamName(req,i) + ": " + CkHttpRequest::ckGetParamValue(req,i)
    Next

    ; View the request that would be sent if HttpSReq is called.
    ; The HTTP request will be a GET that looks like this:
    ; 
    ;     GET /watch?v=fAZdTchQePc&t=45s HTTP/1.1
    ;     Host: domain
    ; 
    ; Note: The HOST header will automatically get filled in with the actual domain when HttpSReq is called.

    Debug CkHttpRequest::ckGenerateRequestText(req)

    ; We can add additional params
    CkHttpRequest::ckAddParam(req,"artist","Richard Bona")
    CkHttpRequest::ckAddParam(req,"musicType","Jazz")
    CkHttpRequest::ckAddParam(req,"festival","Estival Jazz Lugano")
    CkHttpRequest::ckAddParam(req,"year","2008")

    ; Now examine the request that would be sent
    ; 
    ;     GET /watch?v=fAZdTchQePc&t=45s&artist=Richard%20Bona&musicType=Jazz&festival=Estival%20Jazz%20Lugano&year=2008 HTTP/1.1
    ;     Host: domain
    ; 
    Debug CkHttpRequest::ckGenerateRequestText(req)

    ; We can remove a parameter:
    CkHttpRequest::ckRemoveParam(req,"t")
    Debug CkHttpRequest::ckGenerateRequestText(req)

    ; What happens if we change the request from a GET to a POST?
    CkHttpRequest::setCkHttpVerb(req, "POST")
    ; The request will now look like this:
    ; 
    ;    POST /watch HTTP/1.1
    ;    Host: domain
    ;    Content-Length: 93
    ;    
    ;    v=fAZdTchQePc&artist=Richard%20Bona&musicType=Jazz&festival=Estival%20Jazz%20Lugano&year=2008
    ; 
    Debug CkHttpRequest::ckGenerateRequestText(req)

    ; What happens if we make it a multipart/form-data?
    CkHttpRequest::setCkContentType(req, "multipart/form-data")
    ; Now the POST looks like this:
    ;    
    ;    POST /watch HTTP/1.1
    ;    Content-Type: multipart/form-data; boundary=------------020906020106050705030807
    ;    Host: domain
    ;    Content-Length: 545
    ;    
    ;    --------------020906020106050705030807
    ;    Content-Disposition: form-data; name="v"
    ;    
    ;    fAZdTchQePc
    ;    --------------020906020106050705030807
    ;    Content-Disposition: form-data; name="artist"
    ;    
    ;    Richard Bona
    ;    --------------020906020106050705030807
    ;    Content-Disposition: form-data; name="musicType"
    ;    
    ;    Jazz
    ;    --------------020906020106050705030807
    ;    Content-Disposition: form-data; name="festival"
    ;    
    ;    Estival Jazz Lugano
    ;    --------------020906020106050705030807
    ;    Content-Disposition: form-data; name="year"
    ;    
    ;    2008
    ;    --------------020906020106050705030807--

    Debug CkHttpRequest::ckGenerateRequestText(req)


    CkHttpRequest::ckDispose(req)


    ProcedureReturn
EndProcedure