DataFlex

Http Follow Redirects

See more HTTP Examples

Demonstrates how to automatically follow redirects. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sUrl
    Boolean iSuccess
    String sJsonResponse
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // If you would like to see the HTTP session log to see how 
    // HTTP redirects were followed.
    Set ComSessionLogFilename Of hoHttp To "c:/temp/qa_output/sessionLog.txt"

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

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

    Get ComSetUrlVar Of hoHttp "redirectUrl" "https://chilkatsoft.com/helloWorld.json" To iSuccess
    Get ComSetUrlVar Of hoHttp "statusCode" "302" To iSuccess

    Get ComQuickGetStr Of hoHttp sUrl To sJsonResponse
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComLastStatus Of hoHttp To iTemp1
    Showln "Response status code: " iTemp1
    Showln sJsonResponse

    // How to tell if the request was redirected, and if so,
    // what was the final redirect URL?
    Get ComWasRedirected Of hoHttp To bTemp1
    Showln "Was Redirected: " bTemp1
    Get ComFinalRedirectUrl Of hoHttp To sTemp1
    Showln "Final Redirect URL: " sTemp1

    // 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" }


End_Procedure