Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual FoxPro) FTP Bandwidth Throttle for DownloadsDemonstrates the Chilkat FTP2 download bandwidth throttling property : BandwidthThrottleDown.
LOCAL loFtp LOCAL lnSuccess LOCAL lcLocalFilename LOCAL lcRemoteFilename * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ftp2') loFtp = CreateObject('Chilkat.Ftp2') loFtp.Hostname = "ftp.example.com" loFtp.Username = "login" loFtp.Password = "password" * To use FTP bandwidth throttling, set the BandwidthThrottleDown * property to a maximum desired bytes/second: * This example limits the download to 50K per second. loFtp.BandwidthThrottleDown = 50000 * The default data transfer mode is "Active" as opposed to "Passive". * Connect and login to the FTP server. lnSuccess = loFtp.Connect() IF (lnSuccess <> 1) THEN ? loFtp.LastErrorText RELEASE loFtp CANCEL ENDIF * Change to the remote directory where the file is located. * This step is only necessary if the file is not in the root directory * for the FTP account. lnSuccess = loFtp.ChangeRemoteDir("junk") IF (lnSuccess <> 1) THEN ? loFtp.LastErrorText RELEASE loFtp CANCEL ENDIF * Download a file. lcLocalFilename = "hamlet.xml" lcRemoteFilename = "hamlet.xml" lnSuccess = loFtp.GetFile(lcRemoteFilename,lcLocalFilename) IF (lnSuccess <> 1) THEN ? loFtp.LastErrorText RELEASE loFtp CANCEL ENDIF lnSuccess = loFtp.Disconnect() ? "File Downloaded!" RELEASE loFtp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.