PowerBuilder

Example: Http.ResumeDownloadBd method

Demonstrates the ResumeDownloadBd method. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_Bd
integer li_StatusCode

li_Success = 0

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
loo_Http.KeepResponseBody = 1

// To demonstrate resuming a download, we've created a file on the chilkatsoft.com
// web server that contains the first 82,379 bytes of the full  279,658 bytes of the hamlet.xml file.

// We'll first download the partial file, and pretend it was a previous incomplete attempt to download the entire file.
loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Http.DownloadBd("https://www.chilkatsoft.com/testData/hamlet_partial.xml",loo_Bd)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Bd
    return
end if

// Download the remainder of hamlet.xml.
li_Success = loo_Http.ResumeDownloadBd("https://www.chilkatsoft.com/testData/hamlet.xml",loo_Bd)
li_StatusCode = loo_Http.LastStatus
if li_Success = 0 then
    if li_StatusCode = 0 then
        // Unable to either send the request or get the response.
        Write-Debug loo_Http.LastErrorText
    else
        // We got a response, but the status code was not in the 200s
        Write-Debug "Response status code: " + string(li_StatusCode)
        // Examine the response body.
        Write-Debug "Response body:"
        Write-Debug loo_Http.LastResponseBody
    end if

    Write-Debug "Download failed."

else
    Write-Debug "Download success, response status = " + string(li_StatusCode)
end if

// The hamlet.xml file should be 279,658 bytes
Write-Debug "size of hamlet.xml: " + string(loo_Bd.NumBytes)

Write-Debug "Success."


destroy loo_Http
destroy loo_Bd