B4X

FTP Upload with Progress Event Callbacks

See more FTP Examples

FTP upload with progress event callbacks. B4X

Sub ftp_PercentDone (percentDone As Int) As Boolean
    Log("Percent Done: " & percentDone)
    Return False   ' Return True to abort
End Sub

Sub ftp_ProgressInfo (name As String, value As String)
    Log(name & ": " & value)
End Sub

Sub ChilkatExample

    Dim success As Boolean = False

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





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

    ftp.Hostname = "ftp.someFtpServer.com"
    ftp.Username = "my_ftp_username"
    ftp.Password = "my_ftp_password"

    '  Connect and login to the FTP server.
    success = ftp.Connect
    If success = False Then
        Log(ftp.LastErrorText)
        Return
    End If


    '  Change to the remote directory where the file will be uploaded.
    success = ftp.ChangeRemoteDir("junk")
    If success = False Then
        Log(ftp.LastErrorText)
        Return
    End If


    '  Upload a file.
    Dim localPath As String = "c:/temp/hamlet.xml"
    Dim remoteFilename As String = "hamlet.xml"

    success = ftp.PutFile(localPath, remoteFilename)
    If success = False Then
        Log(ftp.LastErrorText)
        Return
    End If


    success = ftp.Disconnect

    Log("File Uploaded!")

End Sub