(PowerBuilder) Manually Follow HTTP Redirects

Demonstrates how to manually follow redirects for an HTTP GET.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Http
oleobject loo_Resp
integer li_Status
integer li_LoopCount
string ls_NextUrl

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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:
loo_Http.FollowRedirects = 0

loo_Resp = loo_Http.QuickGetObj("http://yandex.ru/")
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

li_Status = loo_Resp.StatusCode
Write-Debug "HTTP Response Status: " + string(li_Status)

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

li_LoopCount = 0

do while (li_Status = 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.
    Write-Debug "Redirect URL: " + loo_Http.FinalRedirectUrl

    destroy loo_Resp

    ls_NextUrl = loo_Http.FinalRedirectUrl
    loo_Resp = loo_Http.QuickGetObj(ls_NextUrl)
    if loo_Http.LastMethodSuccess = 0 then
        Write-Debug loo_Http.LastErrorText
        destroy loo_Http
        return
    end if

    li_Status = loo_Resp.StatusCode
    Write-Debug "HTTP Response Status: " + string(li_Status)

    // For safety, prevent infinite loops by
    // keeping a loopCount and only allows following a max 
    // of 10 redirects:
    li_LoopCount = li_LoopCount + 1
    if li_LoopCount > 10 then
        destroy loo_Resp
        Write-Debug "Too many redirects."
        destroy loo_Http
        return
    end if

    destroy loo_Resp

loop


destroy loo_Http