Indy上传速度

从这段代码，我该如何返回上传速度？Indy上传速度

procedure TForm1.Button1Click(Sender: TObject); 
begin 

ftp.Host := 'domain'; 
ftp.Username := 'username'; 
ftp.password := 'password'; 
ftp.Connect; 
ftp.Put('random-filename.ext'); //This is where it should grab only the latest file 
//label1.caption := 'Download Speed: %s'; 
ftp.Quit; 
ftp.Disconnect; 

end;

会计时器是必要的吗？

谢谢。

来源

2011-11-29 John Rosenberg

假设您使用的是TIdFTP组件，那么您必须使用OnWork，OnWorkBegin和OnWorkEnd事件来计算传输速率。

来源

2011-11-29 14:20:37 RRUZ

TIdFTP.OnWorkBegin事件会告诉您将要发送多少个字节，并且TIdFTP.OnWork事件会告诉您在传输过程中迄今为止发送了多少个字节。根据单个事件触发与每个事件之间传输字节差异之间的时间差，可以计算速度。

来源

2011-11-29 17:05:22

对于计时器部分：

您可以使用内置的函数和全局变量：

var 
    start, stop, elapsed: TDateTime; 
    ielapsed: Integer; 

// Start the timer 
start := Now; 
// Stop the timer 
stop := Now; 
elapsed := stop - start; 
// Convert to milliseconds 
ielapsed := round(elapsed * 60 * 60 * 24 * 1000);

由于Windows API函数GetTickCount已经以毫秒为单位，它的计算经过时间的简单方法，但仅适用于Windows 2000 +：

var 
    start, stop, elapsed: DWORD; 

start := GetTickCount; 
stop := GetTickCount; 

if (stop > start) then 
begin 
    elapsed := stop - start; 
end 
else 
begin 
    // Handle overflow 
    elapsed := MAXDWORD - start + stop; 
end;

来源

2011-11-29 20:58:36

没有TTimer类是必要的，只有印组件OnWorkBegin，OnWork和OnWorkEnd事件秒。

您可以像下面这样做，但我建议您将FTP代码放入一个线程中，并使用Synchronize方法更新用户界面以获得最佳性能。

interface 

uses 
    // ... 
    Windows; 

type 
    TForm1 = class(TForm) 
    private 
    startWriteTime : DWord; 
    byteToWrite : Int64; 

    procedure ftp_OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64); 
    procedure ftp_OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64); 
    procedure ftp_OnWorkEnd(ASender: TObject; AWorkMode: TWorkMode); 

    procedure displayWriteSpeed(byteWritten: Int64); 
end; 

implementation 

uses 
    // ... 
    SysUtils; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ftp.OnWorkBegin := ftp_OnWorkBegin; 
    ftp.OnWork := ftp_OnWork; 
    ftp.OnWorkEnd := ftp_OnWorkEnd; 
    // ... 
    ftp.Connect; 
    // ... 
end; 

procedure TForm1.ftp_OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64); 
begin 
    if AWorkMode = wmWrite then 
    begin 
    byteToWrite := AWorkCountMax; 
    startWriteTime := Windows.GetTickCount; 
    displayWriteSpeed(-1); 
    end; 
end; 

procedure TForm1.ftp_OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64); 
begin 
    if AWorkMode = wmWrite then 
    begin 
    displayWriteSpeed(AWorkCount); 
    end; 
end; 

procedure TForm1.ftp_OnWorkEnd(ASender: TObject; AWorkMode: TWorkMode); 
begin 
    if AWorkMode = wmWrite then 
    begin 
    displayWriteSpeed(byteToWrite); 
    end; 
end; 

procedure TForm1.displayWriteSpeed(byteWritten: Int64); 
var 
    elapsedMilliSeconds, elapsedSeconds : Dword; 
    speedBytesPerSeconds : Int64; 
begin 
    if byteWritten < 0 then 
    begin 
    {writeSpeedLabel.}Caption := 'upload speed: ?'; 
    Exit; 
    end; 

    elapsedMilliSeconds := Windows.GetTickCount - startWriteTime; 
    elapsedSeconds := elapsedMilliSeconds div 1000; 
    speedBytesPerSeconds := byteWritten div elapsedSeconds; 
    {writeSpeedLabel.}Caption := SysUtils.Format('upload speed: %d b/s', [speedBytesPerSeconds ]); 
end;

来源

2015-09-24 13:33:32

Indy上传速度

回答

相关问题