PathResult = Path.GetFileNameWithoutExtension_ InputFile = OFD.FileName ' set the ffmpeg input file MFile = New MediaFile(OFD.FileName) ' Declare the filename as a new MediaInfo Object
Then ' has the user selected a file and pressed ok OFD = New OpenFileDialog ' Declare OFD an a new filedialog box If OFD.ShowDialog = _ Object, _īyVal e As System.EventArgs) Handles Button1.Click Label12.Visible = True End If End Sub ' Add Button/btnAddVideo Private Sub Button1_Click( ByVal sender As System. RichTextBox1.Visible = False ' hide the richtextbox Label12.Visible = False Else Me.Height = 441 ' return the form to normal RichTextBox1.Visible = True ' make the richtextbox visible If Me.Height = 441 Then ' is it at normal size Me.Height = 508 ' make the form bigger Object, _īyVal e As ) Handles LinkLabel1.LinkClicked GB = MB * 1024 ' End Sub ' Show Conversion Information Private Sub LinkLabel1_LinkClicked( ByVal sender As System. MB = KB * 1024 ' for calculating the filesize ProgressBar1.Value = 0 ' set the progressbar to 0īutton5.Enabled = False ' cancel button ' RichTextBox1.Visible = False ' hide the richtextbox Me.Height = 441 ' make sure the form starts at it's normal height ' Label11.Text = "0%" 'ignore this line
#Ffmpeg eyeframe converter code
it's easer when coding.Ĭopy Code ' when we want to hide the ffmpeg standard error out the form is at the normal height ' when we show the ffmpeg out we make the RichTextBox visible and make the form height bigger Imports MediaInfoNET ' Add a reference to MediaInfoNET also Imports System.IOĭim OFD As OpenFileDialog ' Declare new openfiledialog Dim SFD As SaveFileDialog ' Declare new savefiledialog Dim mFile As MediaFile ' Dim InputFile As String ' Dim OutputFile As String ' Dim pathResult As String ' Dim FCount As Integer ' Dim KB As Integer ' Dim MB As Integer ' used to calculate file size Dim GB As Integer ' Private prcFFMPEG As New Processĭim psiProcInfo As New ĭim strFFCMD As String Dim ffReader As StreamReaderĭim strFFOUT As String Dim currentFramestr As String Dim currentFrameInt As Integer ' On Load Private Sub Form1_Load( ByVal sender As System. Next on the menustrip is Clear Information (optional), and I add a Convert, this is also optional.īe sure to name your buttons and labels for example, btnAddVideo, lblFrameCount, etc. this is named Bgw1 in the source filesĪdd the following items to the menustrip, file, under file add: Add video, SaveTo, and Exit. LinkLabel, you can use a button, instead I use this to hide the RichTextBox.Combobox, for preset options, and a menu strip.RichTextBox, to show the ffmpeg standarderror out.To follow along, here's what you will need on your form: 5 buttons, add video, browse, convert, cancel, exit, a progressbar, 17 labels for showing imported video stats (optional) and a couple for general labeling purposes. Once you have downloaded these files, copy both medialinfo.dll files and ffmpeg.exe to your project/bin folder.
#Ffmpeg eyeframe converter download
The source files will be included, except MediaInfo.dll, MediaInfoNet.dll and ffmpeg, you must download these yourself but a quick Google search will suffice. Today, we are going to make a video converter using ffmpeg and VB.NET 2010.
0 kommentar(er)
