(Visual FoxPro) HTTP Download any Type of File (binary or text)

The Download method may be called to download any type of file. It may be a binary file such as a .zip, .pdf, etc., or it may be text (.xml, .txt, etc.). There is no distinction. The Download method downloads the file from the web server and streams it to a file byte-for-byte exactly as received. Any web page may be downloaded in the same fashion. Passing a URL for a page that would normally be viewed in a browser would simply download to a file the HTML delivered by the web server.

SSL/TLS connections are fully supported by simply specifying a URL that begins with "https://".

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcLocalFilePath

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
    ? loHttp.LastErrorText
    QUIT
ENDIF

*  Download a .zip
lcLocalFilePath = "/temp/hamlet.zip"
lnSuccess = loHttp.Download("http://www.chilkatsoft.com/hamlet.zip",lcLocalFilePath)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

*  Download an XML file:
lcLocalFilePath = "/temp/hamlet.xml"
lnSuccess = loHttp.Download("http://www.chilkatsoft.com/hamlet.xml",lcLocalFilePath)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

? "OK!"