FFMPEG konvertiert nur ersten 10 - 15 Minuten!

  • VB.NET

    FFMPEG konvertiert nur ersten 10 - 15 Minuten!

    Hey Leute ich wollte mir eben schnell einen simplen FLV to MP3 Converter bauen, damit ich die Vids im Auto hören kann!

    Aber ich weiß nicht mehr weiter...
    Es funktioniert alles ohne Probleme, nur er stoppt zwischen 10 - 15 Min Spielzeit...
    Das Lied geht um die 90 Minuten!

    VS bringt mir auch keinen Fehler...

    Hier der Grundcode:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Threading
    4. Public Class Form1
    6. Dim thread As New MethodInvoker(AddressOf fertig)
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Dim ofd As New OpenFileDialog
    10. With ofd
    11. .Filter = "FLV File (*.flv)|*.flv"
    12. End With
    13. If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
    14. TextBox1.Text = ofd.FileName
    15. End If
    16. End Sub
    18. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    19. Dim sfd As New SaveFileDialog
    20. With sfd
    21. .Filter = "MP3 File (*.mp3)|*.mp3"
    22. End With
    23. If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
    24. TextBox2.Text = sfd.FileName
    25. End If
    26. End Sub
    28. Private Sub fertig()
    29. Label1.Text = ""
    30. MessageBox.Show("Abgeschlossen")
    31. End Sub
    34. Public Sub Convert(ByVal input As String, ByVal output As String)
    35. Dim ff As New Process
    36. With ff
    37. .StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    38. .StartInfo.FileName = Application.StartupPath & "\ffmpeg.exe"
    39. .StartInfo.UseShellExecute = False
    40. .StartInfo.CreateNoWindow = True
    41. .StartInfo.RedirectStandardError = True
    42. .StartInfo.RedirectStandardOutput = True
    43. End With
    45. ff.StartInfo.Arguments = (" -i """ & input & """ -sameq """ & output & """")
    46. ff.Start()
    47. Do Until ff.HasExited
    48. Loop
    49. ff.Close()
    51. End Sub
    53. Private Sub start()
    54. Convert(TextBox1.Text, TextBox2.Text)
    55. Me.Invoke(thread)
    56. End Sub
    57. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    58. Label1.Text = "Converting..."
    59. Dim th As New System.Threading.Thread(AddressOf start)
    60. th.Start()
    61. End Sub
    62. End Class

Facebook
Telefonspende