Question

此代码执行“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分钟才能完成，在此期间不会向用户报告任何内容。一旦完成，他们将看到应用程序的所有输出，其中包括进度详细信息。不太有用。

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

启动外部应用程序（隐藏）
定期监视其输出，因为它显示有关它的进度的信息（所以我可以提取它并向用户提供一个很好的百分比栏）
确定外部应用程序何时完成（因此我无法继续执行自己的应用程序）
如有必要，请杀死外部应用程序并检测何时发生这种情况（如果用户点击“取消”，我会采取相应的步骤）

有没有人有任何推荐的代码段？

Answer 1

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

使用代码示例链接到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

在vb.net中重定向并解析长时间运行的进程的实时stdout

1 个答案: