(Visual Basic 6.0) Example: Http.ResumeDownload method

Demonstrates the ResumeDownload method.

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

Dim success As Long
success = 0

Dim http As New ChilkatHttp
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.
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 = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

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

    Debug.Print "Download failed."

Else
    Debug.Print "Download success, response status = " & statusCode
End If

' The hamlet.xml file should be 279,658 bytes
Dim fac As New CkFileAccess
Debug.Print "size of hamlet.xml: " & fac.FileSize(localFilePath)

Debug.Print "Success."