Visual FoxPro

Download an FTP File into a BinData

Demonstrates the Chilkat Ftp2.GetFileBd method, which downloads a remote file and appends its bytes to a BinData. The first argument is the remote file path and the second is the BinData. No decoding or line-ending conversion is performed.

Background: Downloading into memory avoids a temporary local file when you intend to hash, parse, or forward the bytes immediately. Because it appends, existing bytes in the BinData are preserved — handy for concatenating several remote files, but clear it first when you want only this one. Since no conversion is applied, this is the safe way to pull content regardless of the current transfer type — which defaults to binary (SetTypeBinary), the recommended setting for essentially every file, text included. The SetTypeAscii mode applies legacy CRLF translation and is rarely needed.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL loBd

lnSuccess = 0

*  Demonstrates the Ftp2.GetFileBd method, which downloads a remote file and appends its bytes to
*  a BinData.  The 1st argument is the remote file path and the 2nd is the BinData.  No decoding
*  or line-ending conversion is performed.

loFtp = CreateObject('Chilkat.Ftp2')

loFtp.Hostname = "ftp.example.com"
loFtp.Username = "myFtpLogin"

*  Normally you would not hard-code the password in source.  You should instead obtain it
*  from an interactive prompt, environment variable, or a secrets vault.
loFtp.Password = "myPassword"

lnSuccess = loFtp.Connect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

*  The BinData is not cleared automatically, so clear it first for replacement behavior.
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loFtp.GetFileBd("public_html/image.png",loBd)
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    RELEASE loBd
    CANCEL
ENDIF

? "Downloaded " + STR(loBd.NumBytes) + " bytes into memory."

lnSuccess = loFtp.Disconnect()
IF (lnSuccess = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    RELEASE loBd
    CANCEL
ENDIF

RELEASE loFtp
RELEASE loBd