Visual Basic 6.0

Example: Http.ResumeDownloadBd method

Demonstrates the ResumeDownloadBd method. Visual Basic 6.0

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 bd As New ChilkatBinData
success = http.DownloadBd("https://www.chilkatsoft.com/testData/hamlet_partial.xml",bd)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' Download the remainder of hamlet.xml.
success = http.ResumeDownloadBd("https://www.chilkatsoft.com/testData/hamlet.xml",bd)
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
Debug.Print "size of hamlet.xml: " & bd.NumBytes

Debug.Print "Success."