PureBasic

CRLF Mode

See more FTP Examples

The CrlfMode property applies when downloading files in ASCII mode. If CrlfMode is set to 0 (the default), then the ASCII transfer happens normally without alteration. A value of 1 converts all line endings to CR+ LF. A value of 2 converts all line endings to LF-only. A value of 3 converts all line endings to CR-only. PureBasic

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

    success.i = 0

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

    ftp.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.chilkatsoft.com")
    CkFtp2::setCkUsername(ftp, "MyLogin")
    CkFtp2::setCkPassword(ftp, "MyPassword")

    ; Connect and login to the FTP server.
    success = CkFtp2::ckConnect(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Set the transfer mode to ASCII
    success = CkFtp2::ckSetTypeAscii(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Set the CrlfMode to ensure that line endings are CR+LF:
    CkFtp2::setCkCrlfMode(ftp, 1)

    ; CrlfMode line ending settings:
    ; 0 = do ASCII transfer without alteration.
    ; 1 = CR+LF
    ; 2 = LF-only
    ; 3 = CR-only

    ; Change to the remote directory where the file will be uploaded.
    success = CkFtp2::ckChangeRemoteDir(ftp,"junk")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    localFilename.s = "hamlet.xml"
    remoteFilename.s = "hamlet.xml"

    ; Turn on session logging for the upload:
    CkFtp2::setCkKeepSessionLog(ftp, 1)

    ; Download a file.
    success = CkFtp2::ckGetFile(ftp,remoteFilename,localFilename)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; View the session log.  You can verify visually that
    ; the transfer was in ascii mode.
    Debug CkFtp2::ckSessionLog(ftp)

    success = CkFtp2::ckDisconnect(ftp)

    Debug "File Downloaded!"


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure