vb6 - 在 FTP vb6 中等待下载完成

Question

我在名为“inetFTP”的表单上有一个 Internet 传输控制。我打电话后

inetFTP.Execute , "Get " & "test.zip" & " " & "C:/test.zip"

我想暂停代码执行，直到下载完成，所以之后不会有任何其他代码在文件上运行，可能会遇到问题。有没有办法做到这一点？

Answer 1

通常，您会使用控件的StateChanged事件并至少监视icError和icResponseCompleted状态。

但在实际程序中，通常需要将它与 Timer 控件、经过时间计数器和取消标志一起使用。您需要确保不会错过任何状态更改（如果它们快速连续发生，有些似乎不会触发事件）、处理超时、取消长时间运行的操作等。

我怀疑控件中有一些长期存在的错误从未被解决，这就是为什么StateChanged不像人们希望的那样可靠。其中一些可能与面向会话的 FTP 协议中的固有怪癖或竞争条件有关。HTTP 操作似乎更具确定性。

从那里您需要更改您的程序流程以正确适合 Windows 程序的模型。

可以启动长时间运行的异步操作，但在大多数情况下，只有更多“值得做的事情”，直到您收到完成信号（或中止等）。

因此，您这样做，Execute然后退出您正在运行的事件处理程序。一旦发出完成信号，您就可以在该完成事件处理程序中恢复处理。

VB6 不是 QBasic，Windows 也不是 DOS。

Answer 2

您可以使用计时器（VBA.DateTime.Timer），见下文：

Dim PauseTime As Single, start As Single

PauseTime = 2  ' pause the execution of code for two (2) seconds:
start = Timer

Do While Timer < start + PauseTime
    DoEvents
Loop

Answer 3

我找到了答案。我应该插入

Do While inetFTP.StillExecuting
    DoEvents
Loop

这个循环直到 Internet 传输控制完成它的工作。