Visual FoxPro

Http Follow Redirects

See more HTTP Examples

Demonstrates how to automatically follow redirects. Visual FoxPro

LOCAL loHttp
LOCAL lcUrl
LOCAL lcJsonResponse

loHttp = CreateObject('Chilkat.Http')

*  If you would like to see the HTTP session log to see how 
*  HTTP redirects were followed.
loHttp.SessionLogFilename = "c:/temp/qa_output/sessionLog.txt"

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

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

loHttp.SetUrlVar("redirectUrl","https://chilkatsoft.com/helloWorld.json")
loHttp.SetUrlVar("statusCode","302")

lcJsonResponse = loHttp.QuickGetStr(lcUrl)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? "Response status code: " + STR(loHttp.LastStatus)
? lcJsonResponse

*  How to tell if the request was redirected, and if so,
*  what was the final redirect URL?
? "Was Redirected: " + STR(loHttp.WasRedirected)
? "Final Redirect URL: " + loHttp.FinalRedirectUrl

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

RELEASE loHttp