如何在运行时使用vb.net 2012将控制台应用程序的输出重定向到Windows窗体上的Textbox控件

Question

球队，

我有一个第三方应用程序，它实际上是一个电话消息传递服务器，并在所有连接的客户端和其他服务器之间交换消息。 该消息传递服务器可以连续运行几天甚至不停飞蛾。 这完全是一个控制台应用程序，没有任何GUI。 甚至为了管理该服务器的内部操作，还有另一个工具是基于控制台的应用程序。 我想准备一个GUI来启动，停止和重新启动VB.Net 2012中的服务器。

1. 创建此服务器的流程实例

2. 使用适当的参数启动服务器并使其运行。 以下是我的应用程序中用于启动服务器的一些示例代码，

   私有子Server_Start_Click（发送者作为对象，e作为EventArgs）处理Server_Start.Click昏暗参数，server_admin_path作为字符串server_admin_path =“ D：\\ Voice_App \\ DataMessage \\ MessageServer.exe”参数=“ -properties”＆“”“”＆“ D ：\\ Voice_App \\ Config \\ message.prop”

    Dim proc = New Process() proc.StartInfo.FileName = server_admin_path proc.StartInfo.Arguments = parameter ' set up output redirection proc.StartInfo.RedirectStandardOutput = True proc.StartInfo.RedirectStandardError = True proc.EnableRaisingEvents = True Application.DoEvents() proc.StartInfo.CreateNoWindow = False proc.StartInfo.UseShellExecute = False ' see below for output handler AddHandler proc.ErrorDataReceived, AddressOf proc_OutputDataReceived AddHandler proc.OutputDataReceived, AddressOf proc_OutputDataReceived proc.Start() proc.BeginErrorReadLine() proc.BeginOutputReadLine() 'proc.WaitForExit() Server_Logs.Focus() 

   结束子

此代码可以很好地启动消息服务器。 消息服务器现在已启动，并且在特定时间间隔（例如30秒）后，正在控制台上生成日志跟踪，此过程将继续进行，直到管理工具未停止消息服务器为止。 因此，现在我想要的是捕获服务器在其控制台上产生的每一行，并将该行粘贴到Windows窗体上的文本框中。

我得到了下面的代码，该代码使我知道每行以及何时生成的每一行，

   Public Sub proc_OutputDataReceived(ByVal sender As Object, ByVal e As                     DataReceivedEventArgs)
    On Error Resume Next
    ' output will be in string e.Data
    ' modify TextBox.Text here
    'Server_Logs.Text = e.Data  ` Does not display anything in textbox
    MsgBox(e.Data) 'It works but I want output in text box field
End Sub

PS =我的应用程序将处理更多这样的服务器，我不希望用户在其任务栏上将每个消息服务器实例作为控制台窗口打开，并且他们正在滚动长的日志跟踪。 我在这里搜索了很多线程，但在上述情况下没有任何帮助。 自从很长一段时间以来我一直在坚持这一点，现在任何时候都可以为我服务！

Answer 1

看起来您正在尝试从与表单所在的线程不同的线程进行调用。 从Process类引发的事件将不会来自同一线程。

Delegate Sub UpdateTextBoxDelg(text As String)
Public myDelegate As UpdateTextBoxDelg = New UpdateTextBoxDelg(AddressOf UpdateTextBox)

Public Sub UpdateTextBox(text As String)
    Textbox.Text = text
End Sub

Public Sub proc_OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs)

    If Me.InvokeRequired = True Then
        Me.Invoke(myDelegate, e.Data)
    Else
        UpdateTextBox(e.Data)
    End If

End Sub