Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

Read Console Process Output

I'm attempting to read the full contents of a console process (after 3 seconds) with the code below:

Dim NewProcess As New System.Diagnostics.Process()
With NewProcess.StartInfo
    .FileName = EXE_PATH
    .RedirectStandardOutput = True
    .RedirectStandardError = True
    .RedirectStandardInput = True
    .UseShellExecute = False
    .WindowStyle = ProcessWindowStyle.Normal
    .CreateNoWindow = False 
End With

NewProcess.Start()

System.Threading.Thread.Sleep(3000)

MsgBox(NewProcess.StandardOutput.ReadToEnd)

However, the application seems to pause when attempting to 'ReadToEnd', I think this is because the console process is a continuous output and is never going to actually end. 'ReadLine' works fine, but only gets the first line, but I need the entire contents of the console at that stage.

How can I solve this problem?

like image 446
user1293575 Avatar asked Apr 03 '12 15:04

user1293575


2 Answers

I would try using the Process.OutputDataReceived Event to read the output asyncronously.

See: http://msdn.microsoft.com/en-us/library/system.diagnostics.process.outputdatareceived.aspx#Y242

Private Shared processOutput As StringBuilder = Nothing

Public Shared Sub StartSomeProcess()
processOutput = new StringBuilder()
Dim NewProcess As New System.Diagnostics.Process()
With NewProcess.StartInfo
    .FileName = EXE_PATH
    .RedirectStandardOutput = True
    .RedirectStandardError = True
    .RedirectStandardInput = True
    .UseShellExecute = False
    .WindowStyle = ProcessWindowStyle.Normal
    .CreateNoWindow = False 
End With

' Set our event handler to asynchronously read the sort output.
AddHandler NewProcess.OutputDataReceived, AddressOf OutputHandler
NewProcess.Start()
NewProcess.BeginOutputReadLine()
NewProcess.WaitForExit()
MsgBox(processOutput.ToString())
End Sub

Private Shared Sub OutputHandler(sendingProcess As Object, outLine As DataReceivedEventArgs)    
         ' Collect the sort command output.
         If Not String.IsNullOrEmpty(outLine.Data) Then    
            ' Add the text to the collected output.
            processOutput.AppendLine(outLine.Data)
         End If
      End Sub 
like image 92
brendan Avatar answered Nov 04 '22 11:11

brendan


'For capturing the output and error

    AddHandler NewProcess.OutputDataReceived, AddressOf OutputHandler
    AddHandler NewProcess.ErrorDataReceived, AddressOf OutputHandler

    NewProcess.Start()
    NewProcess.BeginOutputReadLine()
    NewProcess.BeginErrorReadLine()
like image 41
Loki Avatar answered Nov 04 '22 13:11

Loki