Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET) FTP Download with Progress Event CallbacksFTP download with progress event callbacks.
' PercentDone callback method. Private Sub ftp_OnPercentDone(sender As Object, args As Chilkat.PercentDoneEventArgs) Handles ftp.OnPercentDone Dim percentDone As Integer = args.PercentDone Debug.WriteLine("Percent Done: " & percentDone) End Sub ' ProgressInfo callback method. Private Sub ftp_OnProgressInfo(sender As Object, args As Chilkat.ProgressInfoEventArgs) Handles ftp.OnProgressInfo Dim name As String = args.Name Dim value As String = args.Value Debug.WriteLine(name & ": " & value) End Sub private Sub ChilkatExample() Dim WithEvents ftp As New Chilkat.Ftp2 ' Any string unlocks the component for the 1st 30-days. Dim success As Boolean = ftp.UnlockComponent("Anything for 30-day trial") If (success <> True) Then Debug.WriteLine(ftp.LastErrorText) Exit Sub End If ftp.Hostname = "ftp.someFtpServer.com" ftp.Username = "myLogin" ftp.Password = "myPassword" ' Connect and login to the FTP server. success = ftp.ConnectOnly() If (success <> True) Then Debug.WriteLine(ftp.LastErrorText) Exit Sub End If success = ftp.LoginAfterConnectOnly() If (success <> True) Then Debug.WriteLine(ftp.LastErrorText) Exit Sub End If ' Change to the remote directory where the file is located. ' This step is only necessary if the file is not in the home directory ' of the FTP account. success = ftp.ChangeRemoteDir("junk") If (success <> True) Then Debug.WriteLine(ftp.LastErrorText) Exit Sub End If Dim localFilename As String = "c:/temp/hamlet.xml" Dim remoteFilename As String = "hamlet.xml" ' Ensure that we get PercentDone callbacks. ftp.AutoGetSizeForProgress = True ' Download the file. success = ftp.GetFile(remoteFilename,localFilename) If (success <> True) Then Debug.WriteLine(ftp.LastErrorText) Exit Sub End If success = ftp.Disconnect() Debug.WriteLine("File Downloaded!") End Sub |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.