delphi - 印地上传速度

Question

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

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;

需要定时器吗？

谢谢。

Answer 1

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