B4X

FTP Upload / Download to a BinData Object

Demonstrates how to FTP upload the contents of a BinData object, and FTP downloads to the a BinData object. B4X

Dim success As Boolean = False

'  This example assumes Chilkat Ftp2 to have been previously unlocked.
'  See Unlock Ftp2 for sample code.

Dim ftp As ChilkatFtp2
ftp.Initialize("ftp")

ftp.Hostname = "www.my-ftp-server.com"
ftp.Username = "mFtpLogin"
ftp.Password = "myFtpPassword"

'  Connect to the FTP server.
success = ftp.ConnectOnly
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


'  Authenticate with the FTP server.
success = ftp.LoginAfterConnectOnly
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


Dim bdA As ChilkatBinData
bdA.Initialize
bdA.LoadFile("qa_data/jpg/penguins.jpg")

'  Upload the contents of bdA to the FTP server.
Dim remoteFilename As String = "penguins.jpg"
success = ftp.PutFileBd(bdA, remoteFilename)
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


'  Download...
Dim bdB As ChilkatBinData
bdB.Initialize
success = ftp.GetFileBd(remoteFilename, bdB)
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


'  Verify that bdA and bdB have the exact same contents.
Log("size of bdA: " & bdA.NumBytes)
If bdA.ContentsEqual(bdB) = True Then
    Log("Contents are equal. Success.")
Else
    Log("Contents are NOT equal.  Failed.")
End If


ftp.Disconnect