VB.NET

Example: Http.ResumeDownload method

Demonstrates the ResumeDownload method. VB.NET

Dim success As Boolean = 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 = "c:/temp/qa_output/hamlet.xml"
success = http.Download("https://www.chilkatsoft.com/testData/hamlet_partial.xml",localFilePath)
If (success = False) Then
    Debug.WriteLine(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 Integer = http.LastStatus
If (success = False) Then
    If (statusCode = 0) Then
        ' Unable to either send the request or get the response.
        Debug.WriteLine(http.LastErrorText)
    Else
        ' We got a response, but the status code was not in the 200s
        Debug.WriteLine("Response status code: " & statusCode)
        ' Examine the response body.
        Debug.WriteLine("Response body:")
        Debug.WriteLine(http.LastResponseBody)
    End If

    Debug.WriteLine("Download failed.")

Else
    Debug.WriteLine("Download success, response status = " & statusCode)
End If


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

Debug.WriteLine("Success.")