HTTPS Download File of any Type

Download a file via HTTPS to disk. The file is downloaded in streaming mode directly to the filesystem. Any size file can be downloaded. The memory footprint is constant and small.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess

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

*  If the URL requires authentication to access, then set
*  a login and password.
*  Note: Authentication has nothing to do with the fact that SSL is used.
*  Both SSL and non-SSL URLs may require authentication.
*  Login/password authentication is only required if the webmaster
*  explicitly protects the resource from public access.
loHttp.Login = "myLogin"
loHttp.Password = "myPassword"

*  ----------------------------------------------------
*  You'll obviously need to change the URL before running this...
*  ----------------------------------------------------
*  Download a file from a web server over SSL (HTTPS)
*  You only need to provide the "https" in the URL to use SSL:
lnSuccess = loHttp.Download("https://www.my-website.com/something.zip","something.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
ELSE
    =MESSAGEBOX("Download Complete!")
ENDIF