Über den Streamwriter (mit Hilfe von Readline) "Process" Text per Readline auslesen

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von haiyyu.

    Über den Streamwriter (mit Hilfe von Readline) "Process" Text per Readline auslesen

    Ich versuche vergeblich dein letzten Text der von Process (Konsolenanwedung in diesem Fall) auszulesen.

    Mein Code bisher

    VB.NET-Quellcode

    1. Dim dieZeile As String
    2. Dim reader As StreamReader = prog.StandardOutput
    3. Do While prog.HasExited = True
    4. Application.DoEvents()
    5. dieZeile = reader.ReadLine
    6. Me.Text = dieZeile
    7. Loop
    10. Dim prog As Process = New Process
    11. prog.StartInfo.FileName = Application.StartupPath & "\Converter\ffmpeg.exe"
    12. prog.StartInfo.Arguments = ("-i " & Chr(34) & "video.flv" & Chr(34) & " -ab 160000 -acodec libmp3lame " & Chr(34) & "kakakak.mp3" & Chr(34))
    13. prog.StartInfo.UseShellExecute = False
    14. prog.StartInfo.RedirectStandardOutput = True
    15. prog.StartInfo.CreateNoWindow = True
    16. prog.Start()
    17. 'prog.WaitForExit()
    18. Dim dieZeile As String
    19. Dim reader As StreamReader = prog.StandardOutput
    20. Do While prog.HasExited = True
    21. Application.DoEvents()
    22. dieZeile = reader.ReadLine
    23. Me.Text = dieZeile
    24. Loop

    wird das

    dieZeile = reader.ReadLine

    nicht erst ausgeführt nachdem das prog bereits geschlossen wurde?

    ich würde es einfach die ganze zeit abfragen und wenn das programm goschlossen wird hast du die letzte ausgabe noch drin

    VB.NET-Quellcode

    1. Do While prog.HasExited = false
    2. Application.DoEvents()
    3. dieZeile = reader.ReadLine
    4. Loop
    5. Me.Text = dieZeile

    OS: Linux Peppermint & Windows 7
    Processor: AMD Phenom II X6 1055T @ 3.5 GHz
    RAM: 8 GB Kingston ValueRAM
    GFX: NVIDIA GeForce 210

    Funktioniert's so:

    VB.NET-Quellcode

    1. While Not prog.HasExited
    2. TextBox1.Text = reader.ReadLine()
    3. TextBox1.Refresh()
    4. End While
    ?

    Was soll denn das für ein Text sein, den Du da einliest?
    Leite doch den Standard-Output von dem Process in eine TextBox um.
    Such mal nach Process.StandardOutput bzw. StandardOutput umleiten.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Vielleicht in einem extra Thread in einer While-Schleife immer die aktuelle Zeile auslesen? So könnte das ungefähr aussehen:

    VB.NET-Quellcode

    1. Public Class ProcessReader
    3. Public Program As System.Diagnostics.Process
    4. Public Event Update As EventHandler(Of UpdateEventArgs)
    6. Protected pRunning As Boolean
    7. Protected pThread As System.Threading.Thread
    9. Public Sub New(ByVal Program_ As Process)
    10. Program = Program_
    11. End Sub
    13. Public Sub Start()
    14. If Program Is Nothing Then Exit Sub
    15. pRunning = True
    16. pThread = New System.Threading.Thread(AddressOf Read)
    17. pThread.Start()
    18. End Sub
    20. Public Sub Stop()
    21. pRunning = False
    22. End Sub
    24. Public Sub Read()
    25. Dim Reader As System.IO.StreamReader = Program.StandardOutput
    26. While pRunning
    27. RaiseEvent Update(Me, New UpdateEventArgs(Reader.ReadLine()))
    28. End While
    29. End Sub
    31. Public Class UpdateEventArgs
    32. Inherits EventArgs
    34. Public Property Line As String
    36. Public Sub New(ByVal Line_ As String)
    37. Line = Line_
    38. End Sub
    40. Public Sub New()
    41. End Sub
    43. End Class
    45. End Class
    Dann kannst du das Ganze so einsetzen:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents PrcReader As ProcessReader
    5. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    6. PrcReader = New ProcessReader(IrgendeinProzess)
    7. PrcReader.Start()
    8. End Sub
    10. Private Sub PrcReader_Update(ByVal sender As Object, ByVal e As ProcessReader.UpdateEventArgs) Handles PrcReader.Update
    11. Me.Invoke(Sub()
    12. ListBox1.Items.Add(e.Line)
    13. End Sub)
    14. End Sub
    16. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.FormClosed
    17. PrcReader.Stop()
    18. End Sub
    20. End Class
    Ungestet btw. und wahrscheinlich nicht 100% sauber.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „haiyyu“ ()

    Das Typargument "WindowsApplication1.ProcessReader.UpdateEventArgs_" erbt nicht vom Einschränkungstyp "System.EventArgs" bzw. implementiert diesen nicht. C:\Users\Krischkros.Krischkros-Dev\AppData\Local\Temporary Projects\WindowsApplication1\ProcessReader.vb

    Hilfe... Dieser Fehler kommt im Editor von der Klasse!

    VB.NET-Quellcode

    1. Public Event Update As EventHandler(Of UpdateEventArgs_) '<- DAS!!!


    und

    Das Schlüsselwort ist kein gültiger Bezeichner.

    VB.NET-Quellcode

    1. Public Sub Stop()'<- DAS!!


    hilfe :D

    Änder mal den Namen von Stop auf irgendwas anderes... anscheinend ist das ein Schlüsselwort, das man nicht als Name verwenden kann.
    Zu deinem anderen Problem: Habe ich oben im Code ausgebessert.

    Danke haiyyu und Dodo

    Mein Fehler jetzt ist der -> StandardOut wurde nicht umgeleitet, oder der Prozess wurde noch nicht gestartet.

    Mein Code:

    VB.NET-Quellcode

    1. Private WithEvents PrcReader As ProcessReader
    3. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub PrcReader_Update(ByVal sender As Object, ByVal e As ProcessReader.UpdateEventArgs) Handles PrcReader.Update
    8. Me.Invoke(Sub()
    9. ListBox1.Items.Add(e.Line)
    10. End Sub)
    11. End Sub
    13. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.FormClosed
    14. PrcReader.Stop()
    15. End Sub
    17. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    18. Dim ffmpeg As New Process
    19. ffmpeg.StartInfo.FileName = Application.StartupPath & "\Converter\ffmpeg.exe"
    21. ffmpeg.StartInfo.CreateNoWindow = True
    22. ffmpeg.StartInfo.UseShellExecute = False
    23. ffmpeg.StartInfo.RedirectStandardError = True
    25. Dim input As String = "1.flv"
    26. Dim output As String = Application.StartupPath & "\1.mp3"
    27. ffmpeg.StartInfo.Arguments = ("-i 1.flv" & Chr(34) & " -ab 160000 -acodec libmp3lame 1.mp3" & Chr(34))
    29. PrcReader = New ProcessReader(ffmpeg)
    30. ffmpeg.Start()
    31. PrcReader.Start()
    32. End Sub


    Fehler tritt hier auf:

    VB.NET-Quellcode

    1. Dim Reader As System.IO.StreamReader = Program.StandardOutput

    also ->

    VB.NET-Quellcode

    1. Public Sub Read()
    2. Dim Reader As System.IO.StreamReader = Program.StandardOutput
    3. While pRunning
    4. RaiseEvent Update(Me, New UpdateEventArgs(Reader.ReadLine()))
    5. End While
    6. End Sub

    VB.NET-Quellcode

    1. ffmpeg.StartInfo.RedirectStandardOutput = True
    Wenn du schon dasselbe für StandardError da stehen hast, dann wirst du wohl wissen, dass es so auch für StandardOutput geht.
    Bisschen mitdenken. :)

Facebook
Telefonspende