(DataFlex) Download Text File into String Variable

Download a text file directly into a string variable.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoFtp
    Boolean iSuccess
    String sFileContents
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatFtp2)) To hoFtp
    If (Not(IsComObjectCreated(hoFtp))) Begin
        Send CreateComObject of hoFtp
    End

    Set ComHostname Of hoFtp To "ftp.someFtpServer.com"
    Set ComUsername Of hoFtp To "myFtpUserAccount"
    Set ComPassword Of hoFtp To "myFtpPassword"

    // Set other possible settings...
    // See http://www.cknotes.com/determining-ftp2-connection-settings/ 
    // for more information about FTP connection settings.
    Set ComPassive Of hoFtp To True
    Set ComAuthTls Of hoFtp To True

    // Connect and login to the FTP server.
    Get ComConnect Of hoFtp To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Change to the remote directory where the existing file is located.
    Get ComChangeRemoteDir Of hoFtp "junk" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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)
    Get ComGetRemoteFileTextData Of hoFtp "ansiText.txt" To sFileContents
    Get ComLastMethodSuccess Of hoFtp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End
    Else Begin
        Showln sFileContents
    End

    // 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.

    Get ComGetRemoteFileTextC Of hoFtp "utf8Text.txt" "utf-8" To sFileContents
    Get ComLastMethodSuccess Of hoFtp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End
    Else Begin
        Showln sFileContents
    End

    Get ComDisconnect Of hoFtp To iSuccess


End_Procedure