Name des Programms:
ffmpeg.Net
Beschreibung:
Mit Dieser Library lassen sich Videos und AudioTracks ganz einfach mithilfe der 'ffmpeg.exe' Konventieren.
Screenshot(s):
BeispielCode:
Spoiler anzeigen
Als erstes benötigt Ihr die ffmpeg.exe (Download - 20.28 MB) und diese Library.
Ihr erstellt als erstes eine Windowsform mit 3 Buttons (btnConvert, btnCancel,btnAdd) , 3 Labels (lblStatus, lblRemainingTime, lblElapedTime) und eine progressbar (Statusprogressbar)
Ihr Fügt dann ein Verweis auf die 'ffmpeg.Net.dll' hinzu.
Nun zum Code ...
Importiert als erstes:
Und hier der ganze Code als beispiel für ein '.Avi' Konventierung :
Verwendete Programmiersprache und IDE:
Visual Basic .NET (IDE: VB 2010 Express)
Systemanforderungen:
.NET Framework 3.5
Man benötigt die ffmpeg.exe (Download - 20.28 MB)
Download:
ffmpeg.Net.dll Im Anhang (26,5 KB)
ffmpeg.exe(Download - 20.28 MB)
Lizenz/Weitergabe:
Viel Spaß mit dieser Library -- Tibiamicus --
ffmpeg.Net
Beschreibung:
Mit Dieser Library lassen sich Videos und AudioTracks ganz einfach mithilfe der 'ffmpeg.exe' Konventieren.
Screenshot(s):
BeispielCode:
Als erstes benötigt Ihr die ffmpeg.exe (Download - 20.28 MB) und diese Library.
Ihr erstellt als erstes eine Windowsform mit 3 Buttons (btnConvert, btnCancel,btnAdd) , 3 Labels (lblStatus, lblRemainingTime, lblElapedTime) und eine progressbar (Statusprogressbar)
Ihr Fügt dann ein Verweis auf die 'ffmpeg.Net.dll' hinzu.
Nun zum Code ...
Importiert als erstes:
Und hier der ganze Code als beispiel für ein '.Avi' Konventierung :
VB.NET-Quellcode
- Private WithEvents Converter As ffmpeg.Net.FFmpeg
- Private items As New ArrayList
- Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
- With New OpenFileDialog
- If .ShowDialog = Windows.Forms.DialogResult.OK Then
- For Each item As String In .FileNames
- items.Add(item)
- Next
- End If
- End With
- End Sub
- Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
- 'Hier können Wir einstellen ob wir Unser Video als VideoFormat oder AudioFormat Konventieren wollen
- Converter.Mode = ConversionMode.Video
- Converter.Items.Clear()
- For Each item As String In items
- Converter.Items.Add(item)
- Next
- 'Allgemein Einstellungen
- Converter.Threads = 0
- Converter.Volume = 256 'Maximum
- Converter.destinationFolder = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) 'Das ist der Ort wo unser Video gespeichert wird
- 'Video Einstellungen
- Converter.videoSize = "480x360"
- Converter.videoFramerate = 29
- Converter.videoCodec = Video.XvID
- Converter.videoBitrate = 2000
- Converter.videoAspectRatio = AspectRatio.Widescreen
- Converter.Extension = ".avi"
- 'Audio Einstellungen
- Converter.audioBitrate = 192
- Converter.audioChanel = AC.Stereo
- Converter.audioCodec = Audio.MP3
- Converter.audioSamplerate = 44100
- Converter.Start() 'Konventierung Starten
- End Sub
- Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
- items.Clear()
- Converter.Stop()
- End Sub
- Private Sub Converter_Conversion_Progress(ByVal Percent As Integer, ByVal ElapsedTime As String, ByVal TimeRemaining As String) Handles Converter.Conversion_Progress
- Statusprogressbar.Value = Percent 'Percent ist der Fortschritt in %
- lblRemainingTime.Text = TimeRemaining 'TimeRemaining ist die verbleibende Zeit
- lblElapedTime.Text = ElapsedTime 'ElapsedTime ist die Konventierungszeit
- End Sub
- Private Sub Converter_Log(ByVal Log As String) Handles Converter.Log
- End Sub
- Private Sub Converter_Status(ByVal Status As ffmpeg.Net.FFmpeg.ConversionStatus, ByVal Text As String) Handles Converter.Status
- Select Case Status
- Case ConversionStatus.Cancelled 'Es wurde Abgebrochen
- Me.Invoke(Sub() lblStatus.Text = "Konventierung Abgebrochen!")
- Case ConversionStatus.Converting 'Es wird gerade konventiert
- Me.Invoke(Sub() lblStatus.Text = "konventiert - " & Text)
- Case ConversionStatus.Failed 'Ein fehler ist Aufgetreten
- Me.Invoke(Sub() lblStatus.Text = "Error : " & Text)
- Case ConversionStatus.Completed 'Abgeschlossen
- items.Clear()
- Me.Invoke(Sub() lblStatus.Text = "Konventierung Abgeschlossen!")
- End Select
- End Sub
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- Converter.Stop()
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Converter = New ffmpeg.Net.FFmpeg("C:\ffmpeg.exe") 'Hier geben wir den Pfad zur ffmpeg.exe an
- End Sub
Verwendete Programmiersprache und IDE:
Visual Basic .NET (IDE: VB 2010 Express)
Systemanforderungen:
.NET Framework 3.5
Man benötigt die ffmpeg.exe (Download - 20.28 MB)
Download:
ffmpeg.Net.dll Im Anhang (26,5 KB)
ffmpeg.exe(Download - 20.28 MB)
Lizenz/Weitergabe:
- Freeware
- Einkompilierung unter Namensnennung erlaubt (Credits : Valentin Z. (Tibiamicus) )
- Dekompilierug ist Verboten
Viel Spaß mit dieser Library -- Tibiamicus --
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Tibiamicus“ ()