在使用 tcl fcopy 复制大文件期间添加进度条

Question

我有一个基于 Tcl/Tk 的应用程序，我需要将一些大文件从 Windows 发送到虚拟机。 我正在使用 fcopy，它工作正常。 但由于文件大小可能很大（以 GB 为单位），应用程序会被阻止 1 分钟或更长时间。 由于后续操作取决于文件的副本，因此我无法将其设为非阻塞/后台副本。

所以我想显示一个进度条，让用户知道操作正在进行中，让他们猜测他们的等待时间（我不打算自己计算，用户可能会自己猜测）。 实现这一目标的方法是什么？我有一个页面，上面写着“分块复制文件并更新界面”，但未能获得更多参考。

他们有更好的选择吗？ 请指导。

Answer 1

fcopy文档中有一个示例：

proc CopyMore {in out chunk bytes {error {}}} {
    global total done
    incr total $bytes
    if {$error ne "" || [eof $in]} {
        set done $total
        close $in
        close $out
    } else {
        # Add progress bar update here
        fcopy $in $out ‐size $chunk \
                ‐command [list CopyMore $in $out $chunk]
    }
}
set in [open $file1 rb];   # Wherever this comes from
set out [open $file2 wb];  # Wherever it is going to
set chunk 1024
set total 0
fcopy $in $out ‐size $chunk \
        ‐command [list CopyMore $in $out $chunk]
vwait done

您需要做的就是在其中添加进度条的更新，到目前为止，您已经获得了复制的total字节数。

Answer 2

我向一位需要为文件复制实施进度条的同事建议了此解决方案。 我手头没有他的代码，但他告诉我使用此解决方案复制速度非常慢。

要复制大约 2 GB，之前的代码需要 11 分钟。 使用此解决方案（使用大约 20MB 的块大小）复制在 3 小时内完成。

我无法解释这种差异。 各位有同样的问题吗？

在此先感谢您的帮助。