Problem bei Kommandozeile Auslesen

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Problem bei Kommandozeile Auslesen

    Hallo liebe Leute,

    ich verzweifle gerade dabei, eine laufende Kommandozeile von FFMPEG auszulesen.
    Eigentlich sollte der Code so funktionieren, ich bekomme jedoch immer die Fehlermeldung:
    "Es wurde bereits ein asynchroner Lesevorgang für diesen Stream gestartet"

    Hier der Code:

    VB.NET-Quellcode

    1. Delegate Sub UpdateTextBoxTextDelegate(text As String)
    3. Dim myProcess As New Process()
    5. Private Sub Startfile()
    6. ListBox1.SetSelected(line, True)
    7. Dim video As String
    8. video = ordner & "\" & ListBox1.Items.Item(line).ToString
    9. pfad = video
    10. Dim reader As System.IO.DirectoryInfo
    11. reader = My.Computer.FileSystem.GetDirectoryInfo(pfad)
    12. game = reader.Parent.Name
    13. twitchgame = game
    14. Dim MyTitle As String = GetTitle(pfad)
    15. titel = MyTitle
    16. Try
    17. AddHandler myProcess.OutputDataReceived, AddressOf ProcessOutputDataReceived
    18. myProcess.StartInfo.FileName = ffmpeg
    19. Dim Parameter As String = "-i " & Chr(34) & pfad & Chr(34) & " -c:v libx264 -f mp4 " & Output
    20. myProcess.StartInfo.Arguments = Parameter
    21. myProcess.StartInfo.UseShellExecute = False
    22. myProcess.StartInfo.RedirectStandardOutput = True
    23. myProcess.StartInfo.CreateNoWindow = True
    24. myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    25. myProcess.Start()
    26. myProcess.BeginOutputReadLine()
    27. Catch er As Exception
    28. MessageBox.Show(er.Message)
    29. End Try
    30. Button1.Enabled = False
    31. Button2.Enabled = True
    32. Timer2.Enabled = True
    33. End Sub
    35. Private Sub UpdateTextBoxText(text As String)
    36. #If DEBUG Then
    37. Debug.WriteLine(text)
    38. #End If
    39. Me.TextBox3.AppendText(text + Environment.NewLine)
    40. End Sub
    42. Private Sub ProcessOutputDataReceived(sender As Object, e As _
    43. DataReceivedEventArgs)
    44. If Not String.IsNullOrEmpty(e.Data) Then
    45. Me.Invoke(New UpdateTextBoxTextDelegate(AddressOf UpdateTextBoxText), New _
    46. Object() {e.Data})
    47. End If
    48. End Sub


    Ich glaub ich seh den Wald vor lauter Bäumen nicht 8|

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

    Scarala schrieb:

    ich bekomme jedoch immer die Fehlermeldung
    in welcher Zeile?
    #If DEBUG / #End If kannst Du ersatzlos streichen, das übernimmt Debug... für Dich.
    Kannst Du Dein Snippet so weit abspecken, dass auf keinerlei Controls zugegriffen wird und der Fehler immer noch kommt (das lässt sich leichter nachvollziehen)?
    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!

    Ich habe jetzt die Sub Startfile() gekürzt:

    VB.NET-Quellcode

    1. Private Sub Startfile()
    2. Try
    3. AddHandler myProcess.OutputDataReceived, AddressOf ProcessOutputDataReceived
    4. myProcess.StartInfo.FileName = "C:\Users\boenk-\Desktop\ffmpeg\bin\ffmpeg.exe"
    5. Dim Parameter As String = "-i C:\Users\boenk-\Desktop\ffmpeg\bin\Wildlife.wmv -c:v libx264 -f mp4 C:\Users\boenk-\Desktop\ffmpeg\bin\render.mp4"
    6. myProcess.StartInfo.Arguments = Parameter
    7. myProcess.StartInfo.UseShellExecute = False
    8. myProcess.StartInfo.RedirectStandardOutput = True
    9. myProcess.StartInfo.CreateNoWindow = True
    10. myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    11. myProcess.Start()
    12. myProcess.BeginOutputReadLine()
    13. Catch er As Exception
    14. MessageBox.Show(er.Message)
    15. End Try
    16. End Sub


    Jetzt kommt keine Fehlermeldung, jedoch wird in der Textbox auch kein Text ausgegeben.

    Mit dem Code vom 1. Posting kommt der Fehler in Zeile 26.

    VB.NET-Quellcode

    1. myProcess.BeginOutputReadLine()


    EDIT: Mir fällt gerade auf, die Fehlermeldung kommt erst bei der 2. abgespielten Datei in der Playlist des Programms. Nichts desto trotz erfolgt keine Ausgabe in die Textbox.

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

    Komisch, genau wie in der MSDN beschrieben.
    Füge mal nach der Zeile

    Scarala schrieb:

    VB.NET-Quellcode

    1. myProcess.Start()
    dies ein:

    VB.NET-Quellcode

    1. myProcess.WaitForInputIdle(500)
    Der wartet (max. 500 ms) bis der Prozess ordentlich läuft.
    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!

    Scarala schrieb:

    keine grafische Schnittstelle
    Klar.
    Wenn der Prozess keine GUI hat, kannst Du so nicht mit ihm kommunizieren.
    Möglicherweise kannst Du gar nicht mit ihm kommunizieren.
    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!

    So, ich bin schon etwas weitergekommen.

    Die Ausgabe der Kommandozeile funktioniert bei der ersten Datei aus der Playlist mit folgendem Code:

    VB.NET-Quellcode

    1. Private WithEvents myProcess As Process = New Process
    2. Private Delegate Sub WriteA(ByVal Text As String)
    4. Private Sub Startfile()
    5. ListBox1.SetSelected(line, True)
    6. Dim video As String
    7. video = ordner & "\" & ListBox1.Items.Item(line).ToString
    8. pfad = video
    9. myProcess.StartInfo.FileName = ffmpeg
    10. Dim Parameter As String = "-re -i " & Chr(34) & pfad & Chr(34) & " -c:v libx264 -f mp4 " & Output
    11. End If
    12. myProcess.StartInfo.Arguments = Parameter
    13. myProcess.StartInfo.UseShellExecute = False
    14. myProcess.StartInfo.RedirectStandardOutput = True
    15. myProcess.StartInfo.RedirectStandardError = True
    16. myProcess.StartInfo.CreateNoWindow = True
    17. myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    18. myProcess.Start()
    19. myProcess.BeginErrorReadLine()
    20. myProcess.BeginOutputReadLine()
    21. Button1.Enabled = False
    22. Button2.Enabled = True
    23. Timer2.Enabled = True
    24. End Sub
    26. Private Sub p_OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles myProcess.OutputDataReceived
    27. Me.Invoke(New WriteA(AddressOf Write), e.Data & Environment.NewLine)
    28. End Sub
    29. Private Sub p_ErrorDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles myProcess.ErrorDataReceived
    30. Me.Invoke(New WriteA(AddressOf Write), e.Data & Environment.NewLine)
    31. End Sub
    32. Private Sub Write(ByVal Line As String)
    33. If Not Line.Contains("=") Then
    34. TextBox4.Text &= Line
    35. End If
    36. If Line.Contains("=") Then
    37. If Line.Substring(0, Line.IndexOf("=")) = "frame" Then
    38. TextBox3.Text = Line
    39. End If
    40. End If
    41. If Line.Contains("Error") Then
    42. Button2.PerformClick()
    43. MsgBox("Verbinden fehlgeschlagen!" & vbNewLine & "Fehler in FFMPEG-Einstellungen!")
    44. End If
    45. If Line.Contains("failed to connect socket") Then
    46. Button2.PerformClick()
    47. MsgBox("Verbinden fehlgeschlagen!" & vbNewLine & "Zielserver nicht erreichbar!")
    48. End If
    49. End Sub


    Dabei habe ich festgestellt, das FFMPEG die Kommandozeile über ErrorData und nicht über OutputData rausgibt.

    Jedoch kommt immer noch, sobald er die 2. Datei rendern will die Meldung:

    Quellcode

    1. Es wurde bereits ein asynchroner Lesevorgang für diesen Stream gestartet

    bei dem Befehl

    VB.NET-Quellcode

    1. myProcess.BeginErrorReadLine()

    Scheint als würde der Befehl "myProcess.BeginErrorReadLine()" beim automatischen Beenden von FFMPEg, wenn es fertig ist mit Rendern, nicht automatisch geschlossen.
    habe es auch schon mit einem Timer versucht:

    VB.NET-Quellcode

    1. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    2. If myProcess.HasExited = True Then
    3. TextBox3.Clear()
    4. myProcess.close()
    5. End If
    6. End Sub

    Der fehler besteht weiterhin...

    Wenn ich "myProcess.BeginErrorReadLine()" Nur einmalig bei der ersten Datei starte Rendert er alle Dateien wie er soll durch, zeigt mir jedoch nur die Kommandozeile der ersten Datei, danach bleiben die TextBoxen leer.

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

    Scarala schrieb:

    nur die Kommandozeile der ersten Datei
    Und wenn Du den Prozess für jede Datei neu startest?
    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!

    Das ist ja hier der fall... wenn die erste Datei fertig gerendert ist schließt sich die Kommandozeile von ffmpeg automatisch. Dann schließe ich mit myProcess.close() den Prozess und dann wird die Sub Startfile neu aufgerufen mit der nächsten Datei.

    Ich konnte das Problem lösen.

    VB.NET-Quellcode

    1. ​Private WithEvents myProcess As Process
    2. Private Delegate Sub WriteA(ByVal Text As String)
    4. Private Sub Startfile()
    5. ListBox1.SetSelected(line, True)
    6. Dim video As String
    7. video = ordner & "\" & ListBox1.Items.Item(line).ToString
    8. pfad = video
    9. myProcess = new Process
    10. myProcess.StartInfo.FileName = ffmpeg
    11. Dim Parameter As String = "-re -i " & Chr(34) & pfad & Chr(34) & " -c:v libx264 -f mp4 " & Output
    12. End If
    13. myProcess.StartInfo.Arguments = Parameter
    14. myProcess.StartInfo.UseShellExecute = False
    15. myProcess.StartInfo.RedirectStandardOutput = True
    16. myProcess.StartInfo.RedirectStandardError = True
    17. myProcess.StartInfo.CreateNoWindow = True
    18. myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    19. myProcess.Start()
    20. myProcess.BeginErrorReadLine()
    21. myProcess.BeginOutputReadLine()
    22. Button1.Enabled = False
    23. Button2.Enabled = True
    24. Timer2.Enabled = True
    25. End Sub
    27. Private Sub p_OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles myProcess.OutputDataReceived
    28. Me.Invoke(New WriteA(AddressOf Write), e.Data & Environment.NewLine)
    29. End Sub
    30. Private Sub p_ErrorDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles myProcess.ErrorDataReceived
    31. Me.Invoke(New WriteA(AddressOf Write), e.Data & Environment.NewLine)
    32. End Sub
    33. Private Sub Write(ByVal Line As String)
    34. If Not Line.Contains("=") Then
    35. TextBox4.Text &= Line
    36. End If
    37. If Line.Contains("=") Then
    38. If Line.Substring(0, Line.IndexOf("=")) = "frame" Then
    39. TextBox3.Text = Line
    40. End If
    41. End If
    42. If Line.Contains("Error") Then
    43. Button2.PerformClick()
    44. MsgBox("Verbinden fehlgeschlagen!" & vbNewLine & "Fehler in FFMPEG-Einstellungen!")
    45. End If
    46. If Line.Contains("failed to connect socket") Then
    47. Button2.PerformClick()
    48. MsgBox("Verbinden fehlgeschlagen!" & vbNewLine & "Zielserver nicht erreichbar!")
    49. End If
    50. End Sub
    52. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    53. If myProcess.HasExited = True Then
    54. TextBox3.Clear()
    55. myProcess.Dispose()
    56. End If
    57. End Sub


    Also die Variable erst im Sub Startfile() als neuen Prozess definiert und dann nach schließen der Konsole mit myProcess.dispose() die Variable wieder komplett geleert.
    Dann wird die Variable bei der 2. Videodatei wieder neu als new Process definiert und es klappt alles wie es soll.

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

    Scarala schrieb:

    Dann schließe ich mit myProcess.close() den Prozess
    Process sendet ein Excited-Event, das musst Du abonieren, gugst Du hier.
    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!

Facebook
Telefonspende