PowerBuilder

Example: Http.ResumeDownload method

Demonstrates the ResumeDownload method. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
string ls_LocalFilePath
integer li_StatusCode
oleobject loo_Fac

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.
ls_LocalFilePath = "c:/temp/qa_output/hamlet.xml"
li_Success = loo_Http.Download("https://www.chilkatsoft.com/testData/hamlet_partial.xml",ls_LocalFilePath)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

// Download the remainder of hamlet.xml.
li_Success = loo_Http.ResumeDownload("https://www.chilkatsoft.com/testData/hamlet.xml",ls_LocalFilePath)
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
loo_Fac = create oleobject
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")

Write-Debug "size of hamlet.xml: " + string(loo_Fac.FileSize(ls_LocalFilePath))

Write-Debug "Success."


destroy loo_Http
destroy loo_Fac