FFmpeg Helper Lib

    • Beta

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

      FFmpeg Helper Lib

      Hi,
      wie ich schon in meinen Projekt Thema erwähnt habe, werde ich eine FFmpeg Helper Lib veröffentlichen!
      Gleich mal vorweg, diese Lib dient nur dazu, um FFmpeg leichter zu benutzten! Es ist kein ersatz zu FFmpeg!!



      Name der Lib:
      FFmpeg Helper Lib


      Da das hier meine erste Lib ist, hoffe ich einfach mal, das sie Funktioniert :thumbsup:

      Beschreibung:
      Bisher hat die Lib folgende Funktionen:

      -Convert_To_Mp3
      -Convert_to_Avi
      -Convert_to_Mpeg4

      Sie kann natürlich auch den Aktuellen Fortschritt anzeigen ;)

      Beispiel Code:

      Die Konvertierung selber läuft auch in einem anderen Thread!

      VB.NET-Quellcode

      1. Imports FFmpegHelper_Lib
      2. Imports System.Threading
      4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      5. BackgroundWorker1.RunWorkerAsync()
      7. End Sub
      9. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
      10. 'Pfad zur FFmpeg
      11. Dim Pfad As String = ""
      14. '(Pfad zur FFmpeg Datei, Input(Also .flv oder so), Ausgang(Hier drauf achten, das die richtige Endung da ist, also .mp3), Bitrate, Falls Vorhanden überschreiben)
      15. Audio.Convert_To_Mp3(Pfad, TextBox1.Text, TextBox2.Text, 320, True)
      17. '(Pfad zur FFmpeg Datei, Input(Also .flv oder so), Ausgang(Hier drauf achten, das die richtige Endung da ist, also .avi),Qualität, Bitrate, Falls Vorhanden überschreiben)
      18. 'Video.Convert_to_Avi(Pfad, TextBox1.Text, TextBox2.Text, Video.Qualitäten.Original, 320, True)
      20. While Video.Am_Konvertieren = True
      21. Aufrufen(Video.Forschritt)
      22. Thread.Sleep(100)
      23. End While
      24. If Video.Erfolgreich = True Then
      25. MsgBox("Erfolgreich")
      26. Else
      27. MsgBox("Fehler")
      28. End If
      29. Video.FFmpeg_killen()
      30. End Sub
      33. 'Das hier unten einfach nicht beachten! Ist nur, um auf die Steuerelemente Zuzugreifen :D
      34. Public Delegate Sub DasUpdate(ByVal Para As Object)
      36. Public Sub Übergabe(ByVal Parameter As Integer)
      37. Dim updateControl As New DasUpdate(AddressOf Updaten)
      38. Try
      39. Invoke(updateControl, Parameter)
      40. Catch
      41. End Try
      42. End Sub
      43. Sub Aufrufen(ByVal Parameter As Integer)
      44. Dim myThread As New Thread(AddressOf Übergabe)
      45. myThread.Start(Parameter)
      46. End Sub
      47. Sub Updaten(ByVal Para As Object)
      48. ProgressBar1.Value = CInt(Para)
      49. End Sub
      52. 'Falls man das Programm schließt, arbeitet FFmpeg weiter, um dies zu verhindern
      53. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      54. Video.FFmpeg_killen()
      55. Audio.FFmpeg_killen()
      56. End Sub


      Wissenswerte:

      Variablen der Lib:

      VB.NET-Quellcode

      1. ' True = Am Konvertieren, False = Nicht am Konvertieren
      2. Public Shared Am_Konvertieren As Boolean
      3. 'Der Forschritt beim Konvertieren
      4. Public Shared Forschritt As Integer
      5. 'Die Länge von dem zu Konvertierenden
      6. Public Shared Länge As String
      7. 'Speichert Log, falls fehler auftritt, dürfte letzte Zeit der Fehler sein
      8. Public Shared Log As New List(Of String)
      9. 'Gibt an, ob das Konvertieren erfolgreich war
      10. Public Shared Erfolgreich As Boolean


      FFmpeg:
      FFmpeg Seite
      FFmpeg Builds
      FFmpeg Dokumentation

      Verwendete Programmiersprache:
      Visual Basic .NET
      IDE:
      VB 2010 Express

      Systemanforderungen:
      .Net Framework 2.0
      FFmpeg.exe(Links siehe oben!)

      Lizenz/Weitergabe:
      Freeware, Closed Source
      Ihr dürft die Lib absolut frei in eurem Programm benutzen, keinerlei Einschränkungen!!
      Jedoch wäre echt schön, wenn ihr irgentwo hinschreibt, das ihr diese Lib benutzt :thumbsup:

      FFmpeg hat eine eigene Lizenz!!
      Hinweis:
      Ich bin nicht dafür verantwortlich, was mit dieser Lib angestellt wird,
      was ihr damit Konvertiert ist euere Sache ^^ Bzw wozu ihr sie benutzt, ist eure Sache!

      Ich werde diese Lib Paralell zu meinem Programm entwickeln, falls ich also hier ein neues Format hinzufüge,
      kann es gut möglich sein, das es demnächst auch in meinen Prog kommt, oder umgekehrt!

      Falls Fehler etc... auftreten bitte hier posten!
      Dateien

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „manufant“ ()

      Mich würde interessieren, wie du den Fortschritt ausließt.
      Habe da schon ewig nach gesucht, aber noch nichts hinbekommen.

      Wäre nett, wenn du dazu mal ein Tutorial machst.

      LG

      Tutorial kommt vermutlich nicht, werde die Lib, wenn Sie einen schönen umfang an Formaten hat,
      wahrscheinlich gleichzeitig mit meinen Programm Open Source machen :thumbsup:

      Die Fortschrittberechnung ist nur improvisiert, keine Ahnung, ob FFmpeg den Fortschritt als
      Prozent ausgiebt, aber einwas sei gesagt, meine Methode des Fortschrittsermittelns,
      hat ein bisschen was mit Mathe zu tun :D

      Dazu hat jvbsl mal etwas gepostet:


      Doch geht...ffmpeg liefert den Status(+Fehler) im Fehler ausgang(also StandardError-Eigenschaft bei der Prozess-Klasse)


      VB.NET-Quellcode

      1. deinProcess.StartInfo.UseShellExecute = False
      2. deinProcess.StartInfo.RedirectStandardError = True
      3. deinProcess.Start()
      4. Dim reader As StreamReader = myProcess.StandardError
      5. Do
      6. Dim dieZeile As String = reader.ReadLine()'hier natürlich jede Zeile entsprechend auswerten...
      7. Loop Until dieZeile = String.Empty


      Grüße

    Facebook
    Telefonspende