Xbase++

FTP Download Binary File to a Stream

See more FTP Examples

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

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

Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL oFac
LOCAL oStreamObj
LOCAL t
LOCAL oBd

nSuccess := 0

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

oFtp := CreateObject("Chilkat.Ftp2")

oFtp:Hostname := "www.my-ftp-server.com"
oFtp:Username := "mFtpLogin"
oFtp:Password := "myFtpPassword"
oFtp:AuthTls := 1
oFtp:Passive := 1

//  Connect and login to the FTP server using TLS.
nSuccess := oFtp:Connect()
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  We'll read the incoming data chunk-by-chunk and write to an output file.
oFac := CreateObject("Chilkat.FileAccess")
nSuccess := oFac:OpenForWrite("qa_output/penguins2.jpg")
IF (nSuccess != 1)
    ? oFac:LastErrorText
    oFtp:destroy()
    oFac:destroy()
    RETURN
ENDIF

oStreamObj := CreateObject("Chilkat.Stream")

//  Create a task to do the FTP download.
t := oFtp:GetFileToStreamAsync("penguins2.jpg", oStreamObj)
IF (oFtp:LastMethodSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    oFac:destroy()
    oStreamObj:destroy()
    RETURN
ENDIF

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

oBd := CreateObject("Chilkat.BinData")
DO WHILE oStreamObj:EndOfStream != 1
    //  Get the next chunk of JPG bytes.
    oStreamObj:ReadBd(oBd)
    //  Do something with it..
    //  In this simple example, we'll just write to the file.
    oFac:FileWriteBd(oBd, 0, 0)
    //  Clear for the next read.
    oBd:Clear()
ENDDO

oFac:FileClose()

t:destroy()

? "Success."

oFtp:destroy()
oFac:destroy()
oStreamObj:destroy()
oBd:destroy()