HTTP Resume Download File

Demonstrates how to resume downloading of a partially downloaded file.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcLocalFilename
LOCAL lcUrl

loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
    QUIT
ENDIF

*  Resume downloading a file.
*  It is assumed that a prior download was interrupted
*  and a partial file already exists on the local filesystem.
*  To download the remainder of the file, call ResumeDownload:

lcLocalFilename = "ChilkatPerl.zip"

lcUrl = "http://www.chilkatsoft.com/download/ChilkatPerl.zip"
lnSuccess = loHttp.ResumeDownload(lcUrl,lcLocalFilename)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
ELSE
    =MESSAGEBOX("Download Complete!")
ENDIF