(Lianja) Manually Follow HTTP Redirects

Demonstrates how to manually follow redirects for an HTTP GET.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loHttp = createobject("CkHttp")

// The FollowRedirects property controls whether redirects
// are automatically followed.  The default behavior is to
// automatically follow redirects.

// Explicitly set FollowRedirects so that redirects are NOT automatically taken:
loHttp.FollowRedirects = .F.

loResp = loHttp.QuickGetObj("http://yandex.ru/")
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    return
endif

lnStatus = loResp.StatusCode
? "HTTP Response Status: " + str(lnStatus)

// The FinalRedirectUrl property will contain the redirect URL
// If FollowRedirects was equal to .T., then all of the 
// intermediate redirects (if any) would be followed until
// there were no more redirects.  However, because 
// FollowRedirects is not .T., FinalRedirectUrl contains
// the next redirect URL.

lnLoopCount = 0

do while (lnStatus = 302)

    // IMPORTANT: This example requires Chilkat v9.5.0.49 or greater because
    // the FinalRedirectUrl in prior versions is only set when redirects
    // are automatically followed.   Starting in v9.5.0.49, the FinalRedirectUrl is
    // set to the next redirect URL when a 301/302 response is received, regardless
    // of the value of the FollowRedirects property.
    ? "Redirect URL: " + loHttp.FinalRedirectUrl

    release loResp

    lcNextUrl = loHttp.FinalRedirectUrl
    loResp = loHttp.QuickGetObj(lcNextUrl)
    if (loHttp.LastMethodSuccess = .F.) then
        ? loHttp.LastErrorText
        release loHttp
        return
    endif

    lnStatus = loResp.StatusCode
    ? "HTTP Response Status: " + str(lnStatus)

    // For safety, prevent infinite loops by
    // keeping a loopCount and only allows following a max 
    // of 10 redirects:
    lnLoopCount = lnLoopCount + 1
    if (lnLoopCount > 10) then
        release loResp
        ? "Too many redirects."
        release loHttp
        return
    endif

    release loResp

enddo


release loHttp