CMD live auslesen, geht nicht

TheGameSiders · 12. Mai 2014, 11:10

Hey.

Ich habe ein kleines Problem mit einem CMD-Fenster welches ich live in einer Textbox ausgeben möchte.
Doch entweder wird nur ein Text ausgegeben, wenn der Prozess beendet wurde, oder es hängt sich ganz auf, oder aber es liest garnicht aus (Hier der Code):

VB.NET-Quellcode

Shrinker = New Process
Shrinker.StartInfo.FileName = My.Computer.FileSystem.CurrentDirectory & "\Shrinker.exe"
Shrinker.StartInfo.Arguments = ""
Shrinker.StartInfo.CreateNoWindow = True
Shrinker.StartInfo.RedirectStandardOutput = True
Shrinker.StartInfo.UseShellExecute = False
AddHandler Shrinker.OutputDataReceived, AddressOf WriteProcessOutput
Shrinker.Start()
Shrinker.BeginOutputReadLine()
Private Sub WriteProcessOutput(ByVal sendingProcess As Object, ByVal outLine As DataReceivedEventArgs)
If outLine.Data IsNot Nothing Then
Me.Invoke(Sub() TextBox1.AppendText(outLine.Data & Environment.NewLine))
End If
End Sub

Das liest garnicht aus, hängt sich aber nicht auf.
Hier der Code, der sich einfach aufhängt:

VB.NET-Quellcode

Dim result as String
Shrinker = New Process
Shrinker.StartInfo.FileName = My.Computer.FileSystem.CurrentDirectory & "\Shrinker.exe"
Shrinker.StartInfo.Arguments = ""
Shrinker.StartInfo.CreateNoWindow = True
Shrinker.StartInfo.RedirectStandardOutput = True
Shrinker.StartInfo.UseShellExecute = False
Shrinker.Start()
result = Shrinker.StandardOutput.ReadToEnd

Was ist da falsch?
Danke

Mfg.

fichz · 12. Mai 2014, 11:19

Du startest hier eine "Shrinker.exe" und kein "cmd".
Den Output bekommst halt nur das, was diese "Shrinker.exe" ausgibt.

lg

Higlav · 12. Mai 2014, 11:21

So lange das Programm läuft, gibt dir der Output nichts aus, wenn du ihn anweist, er solle bis zum Schluss lesen, da das Schluss noch nicht gekommen ist.
Welche FW-Version nutzt du?

TheGameSiders · 12. Mai 2014, 11:26

Hey.
Wie kann ich es dann wärenddessen lesen?
Benutze FW 2.0.

Higlav · 12. Mai 2014, 11:28

Parallel in einer Schleife per StrRdr.ReadLine() auslesen und verarbeiten, bis StrRdr.EndOfStream.

sonne75 · 12. Mai 2014, 11:30

Wie ich verstanden habe, liest er mit dem ersten Code schon asynchron währenddessen...

msdn.microsoft.com/de-de/libra…tareceived(v=vs.110).aspx

Higlav · 12. Mai 2014, 11:32

Jap und anscheinend gibt der Prozess nichts in den OutStream aus, weil der Delegat ja gar nie ausgeführt wird.
Es kann natürlich auch sein, dass er unbeabsichtigt den Prozess beendet.

TheGameSiders · 12. Mai 2014, 11:48

Habs schon geschafft

Danke.
Mfg.

sonne75 · 12. Mai 2014, 11:52

Und wie? Was war das Problem? Uns interessiert es doch auch.

Higlav · 12. Mai 2014, 12:04

Dies' Wahrheit wird ewig verschlossen sein
uns, die wir uns hierauf
nicht einen klaren Reim
machen können auf des Lösungswegs Verlauf

Jep - Faust zu lesen färbt ab...

sonne75 · 12. Mai 2014, 12:34

@Higlav

Die Stelle des Hofdichters wäre für dich reserviert

Higlav · 12. Mai 2014, 12:37

@sonne75 Jäh... Mal sehen...

Des Paradieses Hofdichter zu sein
darauf mach' ich mir kein' Reim
(Ok, das war Sch*****)

BTT: @TheGameSiders Wie sieht's jetzt aus? Wo lag der Fehler?

sonne75 · 12. Mai 2014, 12:39

Higlav schrieb:

Des Paradieses Hofdichter zu sein

Ist das Schicksal, fürcht' ich, nicht mein.

TheGameSiders · 12. Mai 2014, 12:40

VB.NET-Quellcode

Private WithEvents Shrinker As Process
Shrinker = New Process
Shrinker.StartInfo.FileName = My.Computer.FileSystem.CurrentDirectory & "\Shrinker.exe"
Shrinker.StartInfo.RedirectStandardError = True
Shrinker.StartInfo.RedirectStandardInput = True
Shrinker.StartInfo.RedirectStandardOutput = True
Shrinker.StartInfo.CreateNoWindow = True
Shrinker.StartInfo.UseShellExecute = False
Shrinker.Start()
Shrinker.BeginErrorReadLine()
Shrinker.BeginOutputReadLine()
Private Delegate Sub WriteA(ByVal Text As String)
Private Sub p_OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles Shrinker.OutputDataReceived
Me.Invoke(New WriteA(AddressOf Write), e.Data & Environment.NewLine)
End Sub
Private Sub p_ErrorDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles Shrinker.ErrorDataReceived
Me.Invoke(New WriteA(AddressOf Write), e.Data & Environment.NewLine)
End Sub
Private Sub Write(ByVal Line As String)
TextBox1.Text &= Line
End Sub

Stand auch so im Forum

slice · 12. Mai 2014, 12:42

Hint:
Manche Anwendungen schreiben auch gerne in den StandardError Stream anstelle des StandardOutput

Edit: zulangsam

sonne75 · 12. Mai 2014, 12:42

Und was soll der Unterschied sein, außer, dass du es umständlich über Delegaten löst?

Und warum muss man eigentlich invoken? Ich habe gegoogelt, aber nicht gefunden, dass es im Nebenthread laufen soll. ??

@slice
Gut zu wissen, ich muss genau das Gleiche machen, kann es leider noch nicht testen, aber da kann auch Error zurückkommen...

CMD live auslesen, geht nicht

CMD live auslesen, geht nicht

VB.NET-Quellcode

VB.NET-Quellcode

Higlav schrieb:

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben