Konsole "live" auslesen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von OnkelR.

    Konsole "live" auslesen

    Hallo,

    ich packe mit der 7z.exe mit meinem Programm (große) Archive...
    Wenn man den Befehl direkt in der Konsole ausführt, wird während des Packens der Fortschritt in Prozent angezeigt.
    Den Konsoleninhalt muss ich jetzt irgendwie auslesen um den Fortschritt rauszufiltern. Wichtig ist, dass das Konsolenfenster dabei nicht sichtbar ist.
    Bisher benutze ich den Code von hier. Mein Code sieht so aus:

    VB.NET-Quellcode

    1. Private Sub bgw_zip_DoWork(.......)
    2. 'Pfad zur 7z.exe
    3. SevenZip.StartInfo.FileName = AppDomain.CurrentDomain.BaseDirectory & "7z.exe"
    4. 'Parameter für die 7z-Konsole
    5. SevenZip.StartInfo.Arguments = parameter
    8. ' kein Window erzeugen
    9. SevenZip.StartInfo.CreateNoWindow = True
    10. ' UseShellExecute auf falsch setzen
    11. SevenZip.StartInfo.UseShellExecute = False
    12. ' StandardOutput von Console umleiten
    13. SevenZip.StartInfo.RedirectStandardOutput = True
    14. ' Eventhandler für Redirection definieren
    15. AddHandler SevenZip.OutputDataReceived, AddressOf WriteProcessOutput
    16. ' Prozess starten
    17. SevenZip.Start()
    18. ' Asynchrones Lesen starten
    19. SevenZip.BeginOutputReadLine()
    22. SevenZip.Start()
    25. 'Wartet bis 7-Zip fertig ist (=automat. geschlossen wurde)
    26. SevenZip.WaitForExit()
    28. End Sub
    31. ' EventHandler Routine für umgeleiteten Output
    32. Private Sub WriteProcessOutput(.....)
    33. ' Daten kommen nicht auf GUI Thread -> per anonymer Methode Invoken
    34. If outLine.Data IsNot Nothing Then
    35. TextBox1.Dispatcher.Invoke(Sub() TextBox1.AppendText(outLine.Data & Environment.NewLine))
    36. End If
    37. End Sub

    Das Funktioniert zwar, aber der Konsoleninhalt wird erst ausgegeben, wenn die Konsolenanwendung fertig ist. Ich möchte die Konsole aber "live" auslesen, während sie noch arbeitet.
    Kennt da jemand eine Lösung?

    Vielen Dank ;)

    VB.NET-Quellcode

    1. Private Delegate Sub AddL(Byval s As String)
    2. Private Output As StreamReader
    4. Private Sub DoWork_blablabla
    6. SevenZip.StartInfo.CreateNoWindow = True
    7. SevenZip.StartInfo.UseShellExecute = False
    8. SevenZip.StartInfo.RedirectStandardOutput = True
    9. SevenZip.Start()
    10. SevenZip.BeginOutputReadLine()
    11. Output = SevenZip.StandardOutput
    12. Dim t As New Thread(AddressOf Read)
    13. t.IsBackground = True
    14. t.Start()
    16. End Sub
    18. Private Sub Read()
    19. Do
    20. Dim line As String = Output.ReadLine
    21. If line Is Nothing Then Exit Do
    22. Me.BeginInvoke(New AddL(AddressOf AddLine), line)
    23. Loop
    24. End Sub
    26. Private Sub AddLine(Byval s As String)
    27. TextBox1.AppendText(s & Environment.NewLine)
    28. End Sub
    30. 'Kurz ausm Kopf geschrieben, ungetestet.

    Der Code is nicht von mir!
    Ich hab den mal so ähnlich am laufen gehabt, finde aber das Projekt nicht mehr.

    Hab den Windows Form Designer generated code mal drin gelassen, vielleicht hilfts.

    Spoiler anzeigen


    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    3. Option Compare Binary
    5. Imports Microsoft.VisualBasic
    6. Imports System.Diagnostics
    7. Imports System.Threading
    8. Imports System.Windows.Forms
    10. ' <remarks>
    11. ' Hauptformular der Anwendung.
    12. ' </remarks>
    13. Public Class MainForm
    14. Inherits System.Windows.Forms.Form
    16. Private m_Process As Process
    17. Private m_OutputThread As Thread
    18. Private m_ErrorThread As Thread
    19. Private m_strTextToAdd As String
    21. #Region " Windows Form Designer generated code "
    22. Public Sub New()
    23. MyBase.New()
    24. InitializeComponent()
    25. End Sub
    27. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    28. If disposing Then
    29. If Not (components Is Nothing) Then
    30. components.Dispose()
    31. End If
    32. End If
    33. MyBase.Dispose(disposing)
    34. End Sub
    36. Private components As System.ComponentModel.IContainer
    38. Friend WithEvents txtCommandInput As System.Windows.Forms.TextBox
    39. Friend WithEvents txtConsole As System.Windows.Forms.TextBox
    40. Friend WithEvents btnSend As System.Windows.Forms.Button
    42. <System.Diagnostics.DebuggerStepThrough()> _
    43. Private Sub InitializeComponent()
    44. Me.txtCommandInput = New System.Windows.Forms.TextBox()
    45. Me.btnSend = New System.Windows.Forms.Button()
    46. Me.txtConsole = New System.Windows.Forms.TextBox()
    47. Me.SuspendLayout()
    48. '
    49. 'txtCommandInput
    50. '
    51. Me.txtCommandInput.Anchor = ((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
    52. Or System.Windows.Forms.AnchorStyles.Right)
    53. Me.txtCommandInput.Location = New System.Drawing.Point(16, 352)
    54. Me.txtCommandInput.Name = "txtCommandInput"
    55. Me.txtCommandInput.Size = New System.Drawing.Size(462, 20)
    56. Me.txtCommandInput.TabIndex = 1
    57. Me.txtCommandInput.Text = ""
    58. '
    59. 'btnSend
    60. '
    61. Me.btnSend.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
    62. Me.btnSend.FlatStyle = System.Windows.Forms.FlatStyle.System
    63. Me.btnSend.Location = New System.Drawing.Point(486, 350)
    64. Me.btnSend.Name = "btnSend"
    65. Me.btnSend.Size = New System.Drawing.Size(64, 24)
    66. Me.btnSend.TabIndex = 2
    67. Me.btnSend.Text = "&Senden"
    68. '
    69. 'txtConsole
    70. '
    71. Me.txtConsole.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
    72. Or System.Windows.Forms.AnchorStyles.Left) _
    73. Or System.Windows.Forms.AnchorStyles.Right)
    74. Me.txtConsole.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    75. Me.txtConsole.Location = New System.Drawing.Point(16, 16)
    76. Me.txtConsole.Multiline = True
    77. Me.txtConsole.Name = "txtConsole"
    78. Me.txtConsole.ReadOnly = True
    79. Me.txtConsole.ScrollBars = System.Windows.Forms.ScrollBars.Both
    80. Me.txtConsole.Size = New System.Drawing.Size(534, 326)
    81. Me.txtConsole.TabIndex = 3
    82. Me.txtConsole.Text = ""
    83. '
    84. 'MainForm
    85. '
    86. Me.AcceptButton = Me.btnSend
    87. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    88. Me.ClientSize = New System.Drawing.Size(568, 390)
    89. Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtConsole, Me.btnSend, Me.txtCommandInput})
    90. Me.MinimumSize = New System.Drawing.Size(576, 424)
    91. Me.Name = "MainForm"
    92. Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    93. Me.Text = "RedirectConsole"
    94. Me.ResumeLayout(False)
    96. End Sub
    97. #End Region
    99. ' <summary>
    100. ' Schreibt den im Parameter <paramref name="strText"/>
    101. ' angebenen Text auf den Ausgabestrom.
    102. ' </summary>
    103. ' <param name="strText">Text, der auf den Ausgabestrom
    104. ' geschrieben werden soll.</param>
    105. Private Sub StreamInput(ByVal strText As String)
    106. m_Process.StandardInput.WriteLine(strText)
    107. m_Process.StandardInput.Flush()
    108. End Sub
    110. ' <summary>
    111. ' Liest vom Fehlerstream und gibt die
    112. ' gelesenen Informationen aus.
    113. ' </summary>
    114. Private Sub StreamError()
    115. Dim strLine As String = _
    116. m_Process.StandardError.ReadLine()
    117. Try
    118. Do While strLine.Length >= 0
    119. strLine = m_Process.StandardError.ReadLine()
    120. If strLine.Length <> 0 Then
    121. AddText(strLine)
    122. End If
    123. Loop
    124. Catch
    125. AddText("cmd wurde beendet!")
    126. End Try
    127. End Sub
    129. ' <summary>
    130. ' Liest vom Ausgabestream und gibt
    131. ' die gelesenen Informationen aus.
    132. ' </summary>
    133. Private Sub StreamOutput()
    134. Dim strLine As String = _
    135. m_Process.StandardOutput.ReadLine()
    136. Try
    137. Do While strLine.Length >= 0
    138. If strLine.Length <> 0 Then
    139. AddText(strLine)
    140. End If
    141. strLine = m_Process.StandardOutput.ReadLine()
    142. Loop
    143. Catch
    144. AddText("cmd wurde beendet!")
    145. End Try
    146. End Sub
    148. ' <summary>
    149. ' Fügt den im Parameter <paramref name="strText"/>
    150. ' übergebenen String einer TextBox an.
    151. ' </summary>
    152. ' <param name="strText">Text, der der TextBox
    153. ' hinzugefügt werden soll.</param>
    154. Private Sub AddText(ByVal strText As String)
    155. m_strTextToAdd = strText
    156. Me.Invoke(CType(AddressOf Me.AddTextToTextBox, MethodInvoker))
    157. End Sub
    159. ' <summary>
    160. ' Wird über Invoking aufgerufen, um einen Text hinzuzufügen.
    161. ' <summary>
    162. Private Sub AddTextToTextBox()
    163. txtConsole.AppendText(String.Concat(m_strTextToAdd, _
    164. ControlChars.NewLine))
    165. txtConsole.SelectionStart = txtConsole.Text.Length
    166. End Sub
    168. Private Sub MainForm_Load( _
    169. ByVal sender As System.Object, _
    170. ByVal e As System.EventArgs) _
    171. Handles MyBase.Load
    173. ' Um das Programm zu benutzen, um einen
    174. ' Shell-Befehl auf der Konsole auszuführen
    175. ' (z.B. netstat oder ping) kann man anstelle
    176. ' von "cmd" bei Arguments einfach den
    177. ' entsprechenden Befehl (z.B. "ping") einfügen
    178. ' und in der Eigenschaft Arguments
    179. ' die entsprechenden Attribute
    180. ' (beispielsweise bei ping die IP-Adresse) angeben.
    181. m_Process = New Process()
    182. With m_Process.StartInfo
    183. .FileName = "cmd"
    184. .Arguments = ""
    185. .UseShellExecute = False
    186. .CreateNoWindow = True
    187. .RedirectStandardOutput = True
    188. .RedirectStandardError = True
    189. .RedirectStandardInput = True
    190. End With
    191. m_Process.Start()
    193. ' Ändern der Streams, sodass wir bei
    194. ' Änderungen etwas mitbekommen.
    195. Dim ts1 As ThreadStart = New ThreadStart(AddressOf StreamOutput)
    196. m_OutputThread = New Thread(ts1)
    197. m_OutputThread.Start()
    198. Dim ts2 As ThreadStart = New ThreadStart(AddressOf StreamError)
    199. m_ErrorThread = New Thread(ts2)
    200. m_ErrorThread.Start()
    201. End Sub
    203. Private Sub btnSend_Click( _
    204. ByVal sender As System.Object, _
    205. ByVal e As System.EventArgs) _
    206. Handles btnSend.Click
    207. StreamInput(txtCommandInput.Text)
    208. txtCommandInput.Clear()
    209. End Sub
    211. Private Sub MainForm_Closing( _
    212. ByVal sender As Object, _
    213. ByVal e As System.ComponentModel.CancelEventArgs) _
    214. Handles MyBase.Closing
    215. m_OutputThread.Abort()
    216. m_ErrorThread.Abort()
    217. End Sub
    218. End Class




    mfg OnkelR