(AutoIt) 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.

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

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

$oFtp = ObjCreate("Chilkat.Ftp2")

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

; Connect to the FTP server.
Local $bSuccess = $oFtp.ConnectOnly()
If ($bSuccess <> True) Then
    ConsoleWrite($oFtp.LastErrorText & @CRLF)
    Exit
EndIf

; Authenticate with the FTP server.
$bSuccess = $oFtp.LoginAfterConnectOnly()
If ($bSuccess <> True) Then
    ConsoleWrite($oFtp.LastErrorText & @CRLF)
    Exit
EndIf

$oBdA = ObjCreate("Chilkat.BinData")
$oBdA.LoadFile("qa_data/jpg/penguins.jpg")

; Upload the contents of bdA to the FTP server.
Local $sRemoteFilename = "penguins.jpg"
$bSuccess = $oFtp.PutFileBd($oBdA,$sRemoteFilename)
If ($bSuccess <> True) Then
    ConsoleWrite($oFtp.LastErrorText & @CRLF)
    Exit
EndIf

; Download...
$oBdB = ObjCreate("Chilkat.BinData")
$bSuccess = $oFtp.GetFileBd($sRemoteFilename,$oBdB)
If ($bSuccess <> True) Then
    ConsoleWrite($oFtp.LastErrorText & @CRLF)
    Exit
EndIf

; Verify that bdA and bdB have the exact same contents.
ConsoleWrite("size of bdA: " & $oBdA.NumBytes & @CRLF)
If ($oBdA.ContentsEqual($oBdB) = True) Then
    ConsoleWrite("Contents are equal. Success." & @CRLF)
Else
    ConsoleWrite("Contents are NOT equal.  Failed." & @CRLF)
EndIf

$oFtp.Disconnect()