3

此代码执行“handbrakecli”（命令行应用程序）并将输出放入字符串中：

Dim p As Process = New Process    
p.StartInfo.FileName = "handbrakecli"
p.StartInfo.Arguments = "-i [source] -o [destination]"
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
p.Start

Dim output As String = p.StandardOutput.ReadToEnd
p.WaitForExit

问题是这可能需要长达 20 分钟才能完成，在此期间不会向用户报告任何内容。完成后，他们将看到应用程序的所有输出，其中包括进度详细信息。不是很有用。

因此，我试图找到一个显示最佳方式的样本：

  1. 启动外部应用程序（隐藏）
  2. 定期监视其输出，因为它显示有关其进度的信息（因此我可以提取它并向用户呈现一个漂亮的百分比条）
  3. 确定外部应用程序何时完成（因此我无法继续执行自己的应用程序）
  4. 如有必要，终止外部应用程序并检测何时发生这种情况（这样如果用户点击“取消”，我会采取适当的步骤）

有人有推荐的代码片段吗？

4

1 回答 1

1

StandardOutput 属性属于 StreamReader 类型，它具有 ReadToEnd 以外的方法。这将是更多代码，但如果您使用 Read 方法，您可以执行其他操作，例如为用户提供取消或报告某种进度的机会。

链接到带有代码示例的读取方法：

http://msdn.microsoft.com/en-us/library/ath1fht8(v=VS.90).aspx

编辑：

Process 类还有一个 BeginOutputReadLine 方法，它是一个带回调的异步方法调用。

http://msdn.microsoft.com/en-us/library/system.diagnostics.process.beginoutputreadline(v=VS.90).aspx

于 2010-04-12T15:14:46.937 回答