Lianja

FTP Download File to a Stream

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

llSuccess = .F.

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

loFtp = createobject("CkFtp2")

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

// Connect and login to the FTP server using TLS.
llSuccess = loFtp.Connect()
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Move to the sub-directory (from the FTP user's home directory) where the file is located.
llSuccess = loFtp.ChangeRemoteDir("temp")
if (llSuccess = .F.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Stream to this local file:
loStreamObj = createobject("CkStream")
loStreamObj.SinkFile = "c:/temp/qa_output/penguins2.jpg"

llSuccess = loFtp.GetFileToStream("penguins2.jpg",loStreamObj)
if (llSuccess = .F.) then
    ? loFtp.LastErrorText
    release loFtp
    release loStreamObj
    return
endif

loFtp.Disconnect()

? "Success."


release loFtp
release loStreamObj