(Visual FoxPro) FTP Download Binary File to a Stream

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

Note: This example requires Chilkat v9.5.0.67 or greater.

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

LOCAL loFtp
LOCAL lnSuccess
LOCAL loFac
LOCAL loStreamObj
LOCAL t
LOCAL loBd

* 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 = "www.my-ftp-server.com"
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

* We'll read the incoming data chunk-by-chunk and write to an output file.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')
lnSuccess = loFac.OpenForWrite("qa_output/penguins2.jpg")
IF (lnSuccess <> 1) THEN
    ? loFac.LastErrorText
    RELEASE loFtp
    RELEASE loFac
    CANCEL
ENDIF

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

* Create a task to do the FTP download.
t = loFtp.GetFileToStreamAsync("penguins2.jpg",loStreamObj)
IF (loFtp.LastMethodSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    RELEASE loFac
    RELEASE loStreamObj
    CANCEL
ENDIF

* Start the task in a background thread.
t.Run()

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
DO WHILE loStreamObj.EndOfStream <> 1
    * Get the next chunk of JPG bytes.
    loStreamObj.ReadBd(loBd)
    * Do something with it..
    * In this simple example, we'll just write to the file.
    loFac.FileWriteBd(loBd,0,0)
    * Clear for the next read.
    loBd.Clear()
ENDDO

loFac.FileClose()

RELEASE t

? "Success."

RELEASE loFtp
RELEASE loFac
RELEASE loStreamObj
RELEASE loBd