(Visual FoxPro) FTP Download File to a Stream

Demonstrates how to FTP download a file to a Chilkat stream.

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

LOCAL loFtp
LOCAL lnSuccess
LOCAL loStreamObj

* This example assumes the Chilkat FTP2 API to have been previously unlocked.
* See FTP2 Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ftp2')
loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "my-ftp-server.com"
loFtp.Port = 21
loFtp.Username = "mFtpLogin"
loFtp.Password = "myFtpPassword"
loFtp.AuthTls = 1
loFtp.Passive = 1

* Connect and login to the FTP server using TLS.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

* Move to the sub-directory (from the FTP user's home directory) where the file is located.
lnSuccess = loFtp.ChangeRemoteDir("temp")
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

* Stream to this local file:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Stream')
loStreamObj = CreateObject('Chilkat.Stream')
loStreamObj.SinkFile = "c:/temp/qa_output/penguins2.jpg"

lnSuccess = loFtp.GetFileToStream("penguins2.jpg",loStreamObj)
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    RELEASE loStreamObj
    CANCEL
ENDIF

loFtp.Disconnect()

? "Success."

RELEASE loFtp
RELEASE loStreamObj