HTTP Download File

Download a file via HTTP 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

*  Download the Ruby language install
*  Note: These URLs may have changed since this example was created.
lnSuccess = loHttp.Download("ftp://ftp.ruby-lang.org/pub/ruby/ruby-1.8.5.tar.gz","ruby-1.8.5.tar.gz")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
ELSE
    =MESSAGEBOX("Ruby Download Complete!")
ENDIF

*  Download the Python language install.
*  Note: These URLs may have changed since this example was created.
lnSuccess = loHttp.Download("http://www.python.org/ftp/python/2.5/python-2.5.msi","python-2.5.msi")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loHttp.LastErrorText)
ELSE
    =MESSAGEBOX("Python Download Complete!")
ENDIF