Visual FoxPro

Download Text File into String Variable

See more FTP Examples

Download a text file directly into a string variable. Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL lcFileContents

lnSuccess = 0

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

loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftp.someFtpServer.com"
loFtp.Username = "myFtpUserAccount"
loFtp.Password = "myFtpPassword"

* Set other possible settings...
* See http://www.cknotes.com/determining-ftp2-connection-settings/ 
* for more information about FTP connection settings.
loFtp.Passive = 1
loFtp.AuthTls = 1

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

* Change to the remote directory where the existing file is located.
lnSuccess = loFtp.ChangeRemoteDir("junk")
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

* Download the contents of the remote file into a string variable.

* The GetRemoteFileTextData method assumes the remote file contains ANSI chars.
* To download text files containing non-ANSI text, such as utf-8, call GetRemoteFileTextC
* instead. (see below)
lcFileContents = loFtp.GetRemoteFileTextData("ansiText.txt")
IF (loFtp.LastMethodSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ELSE
    ? lcFileContents
ENDIF

* To download a remote text file containing utf-8 chars, 
* call GetRemoteFileTextC and pass "utf-8" for the 2nd arg.  This tells
* Chilkat to interpret the incoming bytes according to the utf-8 character encoding.

lcFileContents = loFtp.GetRemoteFileTextC("utf8Text.txt","utf-8")
IF (loFtp.LastMethodSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ELSE
    ? lcFileContents
ENDIF

lnSuccess = loFtp.Disconnect()

RELEASE loFtp