![]() |
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
(Delphi ActiveX) FTP Bandwidth Throttle for UploadDemonstrates the Chilkat FTP2 upload bandwidth throttling property : BandwidthThrottleUp.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var ftp: TChilkatFtp2; success: Integer; localFilename: WideString; remoteFilename: WideString; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. ftp := TChilkatFtp2.Create(Self); ftp.Hostname := 'ftp.example.com'; ftp.Username := 'login'; ftp.Password := 'password'; // To use FTP upload bandwidth throttling, set the BandwidthThrottleUp // property to a maximum desired bytes/second: // This example limits the upload to 10K per second. ftp.BandwidthThrottleUp := 10000; // Connect and login to the FTP server. success := ftp.Connect(); if (success <> 1) then begin Memo1.Lines.Add(ftp.LastErrorText); Exit; end; // Upload a file. localFilename := 'hamlet.xml'; remoteFilename := 'hamlet.xml'; success := ftp.PutFile(localFilename,remoteFilename); if (success <> 1) then begin Memo1.Lines.Add(ftp.LastErrorText); Exit; end; success := ftp.Disconnect(); Memo1.Lines.Add('File Uploaded!'); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.