(VBScript) Example: Http.ResumeDownload method

Demonstrates the ResumeDownload method.

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set http = CreateObject("Chilkat.Http")
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.
localFilePath = "c:/temp/qa_output/hamlet.xml"
success = http.Download("https://www.chilkatsoft.com/testData/hamlet_partial.xml",localFilePath)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

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

    outFile.WriteLine("Download failed.")

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

' The hamlet.xml file should be 279,658 bytes
set fac = CreateObject("Chilkat.FileAccess")
outFile.WriteLine("size of hamlet.xml: " & fac.FileSize(localFilePath))

outFile.WriteLine("Success.")

outFile.Close