(Visual FoxPro) FTP Download Text File to a Stream

Demonstrates how to FTP download a text 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 loStreamObj
LOCAL t
LOCAL lcLine

* 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

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

* Indicate the charset of the incoming data.
loStreamObj.StringCharset = "utf-8"

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

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

* Read the incoming text data using any of the streamObj Read methods.
* This example will read line-by-line.

DO WHILE loStreamObj.EndOfStream <> 1
    lcLine = loStreamObj.ReadToCRLF()
    IF (loStreamObj.LastMethodSuccess = 1) THEN
        ? lcLine
    ENDIF

ENDDO
RELEASE t

? "Success."

RELEASE loFtp
RELEASE loStreamObj