Upload Bytes to an FTP Server (BinData)

See more FTP Examples

Demonstrates the Chilkat Ftp2.PutFileBd method, which uploads the bytes in a BinData to a remote path. The first argument is the BinData and the second is the remote file path. No encoding conversion is performed.

Note: The local paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

integer li_rc
integer li_Success
oleobject loo_Ftp
oleobject loo_Bd

li_Success = 0

//  Demonstrates the Ftp2.PutFileBd method, which uploads the bytes in a BinData to a remote path.
//  The 1st argument is the BinData and the 2nd is the remote file path.  No encoding conversion is
//  performed.

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.example.com"
loo_Ftp.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.
loo_Ftp.Password = "myPassword"

li_Success = loo_Ftp.Connect()
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

//  Put the bytes to upload into a BinData.  (Here they are loaded from a local file, but the
//  bytes could come from anywhere.)
loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Bd.LoadFile("qa_data/image.png")
if li_Success = 0 then
    Write-Debug loo_Bd.LastErrorText
    destroy loo_Ftp
    destroy loo_Bd
    return
end if

li_Success = loo_Ftp.PutFileBd(loo_Bd,"public_html/image.png")
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    destroy loo_Bd
    return
end if

Write-Debug "Uploaded " + string(loo_Bd.NumBytes) + " bytes."

li_Success = loo_Ftp.Disconnect()
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    destroy loo_Bd
    return
end if



destroy loo_Ftp
destroy loo_Bd