PureBasic

Http Follow Redirects

See more HTTP Examples

Demonstrates how to automatically follow redirects. PureBasic

IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    ; If you would like to see the HTTP session log to see how 
    ; HTTP redirects were followed.
    CkHttp::setCkSessionLogFilename(http, "c:/temp/qa_output/sessionLog.txt")

    ; Run the test using this URL.
    ; (Works while httpbin.org keeps the test endpoint available.)

    url.s = "https://httpbin.org/redirect-to?url={$redirectUrl}&status_code={$statusCode}"

    CkHttp::ckSetUrlVar(http,"redirectUrl","https://chilkatsoft.com/helloWorld.json")
    CkHttp::ckSetUrlVar(http,"statusCode","302")

    jsonResponse.s = CkHttp::ckQuickGetStr(http,url)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    Debug "Response status code: " + Str(CkHttp::ckLastStatus(http))
    Debug jsonResponse

    ; How to tell if the request was redirected, and if so,
    ; what was the final redirect URL?
    Debug "Was Redirected: " + Str(CkHttp::ckWasRedirected(http))
    Debug "Final Redirect URL: " + CkHttp::ckFinalRedirectUrl(http)

    ; Output:

    ; Response status code: 200
    ; { "hello": "world" }
    ; Was Redirected: True
    ; Final Redirect URL: https://chilkatsoft.com/helloWorld.json

    ; -----------------------------------------------
    ; Here are the contents of the sessionLog.txt

    ; ---- Sending Sat, 30 Aug 2025 11:41:37 GMT ----
    ; GET /redirect-to?url=https%3A%2F%2Fchilkatsoft.com%2FhelloWorld.json&status_code=302 HTTP/1.1
    ; Host: httpbin.org
    ; Accept: */*
    ; Accept-Encoding: gzip
    ; 
    ; 
    ; ---- Received Sat, 30 Aug 2025 11:41:37 GMT ----
    ; HTTP/1.1 302 FOUND
    ; Date: Sat, 30 Aug 2025 11:41:38 GMT
    ; Content-Type: text/html; charset=utf-8
    ; Content-Length: 0
    ; Connection: keep-alive
    ; Server: gunicorn/19.9.0
    ; Location: https://chilkatsoft.com/helloWorld.json
    ; Access-Control-Allow-Origin: *
    ; Access-Control-Allow-Credentials: true
    ; 
    ; 
    ; ---- Sending Sat, 30 Aug 2025 11:41:38 GMT ----
    ; GET /helloWorld.json HTTP/1.1
    ; Host: chilkatsoft.com
    ; Accept: */*
    ; Accept-Encoding: gzip
    ; 
    ; 
    ; ---- Received Sat, 30 Aug 2025 11:41:38 GMT ----
    ; HTTP/1.1 200 OK
    ; Content-Type: application/json
    ; Last-Modified: Sun, 20 Aug 2023 11:36:27 GMT
    ; Accept-Ranges: bytes
    ; ETag: "34c27f8e5ad3d91:0"
    ; Server: Microsoft-IIS/10.0
    ; X-Powered-By: ASP.NET
    ; Date: Sat, 30 Aug 2025 11:41:38 GMT
    ; Content-Length: 22
    ; 
    ; { "hello": "world" }


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure