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 回答