Xojo Plugin

Example: Http.ResumeDownload method

Demonstrates the ResumeDownload method. Xojo Plugin

Dim success As Boolean
success = False

Dim http As New Chilkat.Http
http.KeepResponseBody = True

// 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.
Dim localFilePath As String
localFilePath = "c:/temp/qa_output/hamlet.xml"
success = http.Download("https://www.chilkatsoft.com/testData/hamlet_partial.xml",localFilePath)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// Download the remainder of hamlet.xml.
success = http.ResumeDownload("https://www.chilkatsoft.com/testData/hamlet.xml",localFilePath)
Dim statusCode As Int32
statusCode = http.LastStatus
If (success = False) Then
    If (statusCode = 0) Then
        // Unable to either send the request or get the response.
        System.DebugLog(http.LastErrorText)
    Else
        // We got a response, but the status code was not in the 200s
        System.DebugLog("Response status code: " + Str(statusCode))
        // Examine the response body.
        System.DebugLog("Response body:")
        System.DebugLog(http.LastResponseBody)
    End If

    System.DebugLog("Download failed.")

Else
    System.DebugLog("Download success, response status = " + Str(statusCode))
End If

// The hamlet.xml file should be 279,658 bytes
Dim fac As New Chilkat.FileAccess
System.DebugLog("size of hamlet.xml: " + Str(fac.FileSize(localFilePath)))

System.DebugLog("Success.")