PowerBuilder

Binary and ASCII FTP Transfer Modes

See more FTP Examples

The SetTypeBinary() and SetTypeAscii() method can be called to change the current transfer mode. The default transfer mode is binary. Once SetTypeAscii() or SetTypeBinary() is called, all subsequent transfers will occur in that mode. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Ftp
string ls_LocalFilename
string ls_RemoteFilename

li_Success = 0

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

loo_Ftp = create oleobject
li_rc = loo_Ftp.ConnectToNewObject("Chilkat.Ftp2")
if li_rc < 0 then
    destroy loo_Ftp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Ftp.Hostname = "ftp.something.com"
loo_Ftp.Username = "test"
loo_Ftp.Password = "test"

// Connect and login to the FTP server.
li_Success = loo_Ftp.Connect()
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Set the transfer mode to ASCII
li_Success = loo_Ftp.SetTypeAscii()
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Change to the remote directory where the file will be uploaded.
li_Success = loo_Ftp.ChangeRemoteDir("junk")
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Upload a file.
ls_LocalFilename = "hamlet.xml"
ls_RemoteFilename = "hamlet.xml"

// Turn on session logging for the upload:
loo_Ftp.KeepSessionLog = 1

li_Success = loo_Ftp.PutFile(ls_LocalFilename,ls_RemoteFilename)
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// View the session log.  You can verify visually that
// the transfer was in ascii mode.
Write-Debug loo_Ftp.SessionLog

li_Success = loo_Ftp.Disconnect()

Write-Debug "File Uploaded!"


destroy loo_Ftp