PowerBuilder

Manually Follow HTTP Redirects

See more HTTP Examples

Demonstrates how to manually follow redirects for an HTTP GET. PowerBuilder

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

li_Success = 0

// 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.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 = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpNoBody("GET","http://yandex.ru/",loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Resp
    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)

    Write-Debug "Redirect URL: " + loo_Http.FinalRedirectUrl

    ls_NextUrl = loo_Http.FinalRedirectUrl
    li_Success = loo_Http.HttpNoBody("GET",ls_NextUrl,loo_Resp)
    if li_Success = 0 then
        Write-Debug loo_Http.LastErrorText
        destroy loo_Http
        destroy loo_Resp
        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
        Write-Debug "Too many redirects."
        destroy loo_Http
        destroy loo_Resp
        return
    end if

loop


destroy loo_Http
destroy loo_Resp