Recherche avancée

Sur d’autres sites (6774)

• VB.NET FFMPEG Stops

  18 mars 2012, par Mcqueen_23

  Hi evryone i'm trying to convert files using ffmpeg

  my codes only fetched

  
  — -Skip---
  Input #0, mov,mp4,m4a,3gp,3g2,mj2, from 'Enrique Iglesias - Tonight.mp4' :
    Metadata :
      major_brand : mp42
      minor_version : 0
      compatible_brands : isommp42
      creation_time : 2011-03-20 19:07:02
    Duration : 00:03:50.05, start : 0.000000, bitrate : 219 kb/s
      Stream #0.0(und) : Video : h264, yuv420p, 480x360 [PAR 1:1 DAR 4:3], 117 kb/s, 29.97 fps, 59.75 tbr, 1k tbn, 59.83 tbc
      Metadata :
        creation_time : 1970-01-01 00:00:00
      Stream #0.1(und) : Audio : aac, 44100 Hz, stereo, s16, 95 kb/s
      Metadata :
        creation_time : 2011-03-20 19:07:03
  Output #0, mp3, to 'Enrique Iglesias - Tonight.mp3' :
    Metadata :
      major_brand : mp42
      minor_version : 0
      compatible_brands : isommp42
      TDEN : 2011-03-20 19:07:02
      TSSE : Lavf52.94.0
      Stream #0.0(und) : Audio : libmp3lame, 44100 Hz, stereo, s16, 64 kb/s
      Metadata :
        creation_time : 2011-03-20 19:07:03
  

  and cannot i cannot get the next lines ung Proccess.ErrorDataReceived event

  Here are my Codes

      Public Structure ItemStruct
  
          Public ID, URL, FileName, FileExt, ConvertExt, ConvertQuery As String
  
          Public FileSize As Int64
  
          Public Method, status As Method
  
          Public prog_bar As ProgressBar
  
          Public DeleteOrigin, TrimStart, TrimEnd As Boolean
  
      End Structure
  
  
  
      Friend Class Converter
  
          Public busy As Boolean = False
  
          Private _Item As ItemStruct
  
          Public Event ProgressChange(ByVal id As String, ByVal percent As Integer, ByVal etr As TimeSpan)
  
          Public Event ConvertFinish(ByVal id As String)
  
          Private m As Threading.Thread
  
          Private WithEvents timer As New Timer With {.Interval = 100}
  
  
  
          Public Sub New()
  
          End Sub
  
  
  
          Public Sub New(ByVal item As ItemStruct)
  
              _Item = item
  
              m = New Threading.Thread(AddressOf Convert)
  
          End Sub
  
  
  
          Public Sub Start()
  
              m.Start()
  
              timer.Start()
  
          End Sub
  
  
  
          Private duration As Decimal = 0.0F
  
          Private current As Decimal = 0.0F
  
          Private varIsSet As Boolean = False
  
          Private Sub Convert()
  
              Dim cmd As String = _Item.ConvertQuery
  
              Dim inputName As String = _Item.URL
  
              Dim fName As String = _Item.FileName & _Item.FileExt
  
              Dim dir As String = _Item.URL.Replace(fName, "")
  
              Dim ouputName As String = dir & _Item.FileName & "." & _Item.ConvertExt
  
              cmd = Replace(cmd, "--i", inputName)
  
              cmd = Replace(cmd, "--o", ouputName)
  
              cmd = cmd.Remove(0, 6)
  
              cmd = cmd.Trim
  
              Dim proc As New Process
  
              With proc.StartInfo
  
                  .FileName = Path.Combine(Application.StartupPath, "ffmpeg.exe")
  
                  .Arguments = cmd
  
                  proc.EnableRaisingEvents = False
  
                  .UseShellExecute = False
  
                  .CreateNoWindow = True
  
                  .RedirectStandardError = True
  
                  .RedirectStandardOutput = True
  
                  .RedirectStandardInput = True
  
                  AddHandler proc.ErrorDataReceived, AddressOf UpdateData
  
                  proc.Start()
  
                  proc.BeginErrorReadLine()
  
              End With
  
          End Sub
  
  
  
          Public Sub Cancel()
  
              m.Abort()
  
          End Sub
  
  
  
          Private Sub UpdateData(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
  
              Dim s As String = e.Data
  
              If s.Contains("Duration: ") Then
  
                  duration = GetDuration(s)
  
              ElseIf s.Contains("frame=") Then
  
                  current = GetTime(s)
  
              Else
  
                  Dim proc As Process = DirectCast(sender, Process)
  
                  Dim m As Match = Regex.Match(s, "^File\ '(.*?)'\ already\ exists", RegexOptions.IgnoreCase)
  
                  If m.Success Then
  
                      Dim w As StreamWriter = proc.StandardInput
  
                      If MessageBox.Show("File '" & m.Groups(1).ToString & "' already exists." & vbNewLine & "Do you want to Overwrite existing file?", "Overwrite", MessageBoxButtons.YesNo) = DialogResult.Yes Then
  
                          w.WriteLine("y")
  
                      Else
  
                          w.WriteLine("n")
  
                      End If
  
                  End If
  
  
  
                  'RaiseEvent ConvertFinish(_Item.ID)
  
                  'proc.WaitForExit()
  
                  'proc.Close()
  
              End If
  
              Debug.Print(s)
  
              If Not duration And Not current Then varIsSet = False Else varIsSet = True
  
          End Sub
  
  
  
          Private Function GetDuration(ByVal s As String) As Double
  
              Dim m As Match = Regex.Match(s, "Duration: ((.*?), (.*))")
  
              If m.Success Then
  
                  Dim duration As String = m.Groups(2).ToString
  
                  Return TimeSpan.Parse(duration).TotalSeconds
  
              End If
  
              Return Nothing
  
          End Function
  
  
  
          Private Function GetTime(ByVal s As String) As Double
  
              Dim m As Match = Regex.Match(s, "(.*) time=(.*) bitrate")
  
              If m.Success Then
  
                  Dim currentTime As String = m.Groups(2).ToString
  
                  Return TimeSpan.Parse(currentTime).TotalSeconds
  
              End If
  
              Return Nothing
  
          End Function
  
  
  
          Private Sub timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer.Tick
  
              If varIsSet Then
  
                  Dim etr As TimeSpan = TimeSpan.FromSeconds(CInt(current / duration))
  
                  etr = New TimeSpan(etr.Hours, etr.Minutes, etr.Seconds)
  
                  RaiseEvent ProgressChange(_Item.ID, CInt((current / duration) * 100 * 100), etr)
  
              End If
  
          End Sub
  
      End Class

• ffmpeg giving two parameters to vcodec [closed]

  20 juin 2013, par Narendra DroidWorm

  Below is the ffmpeg command to convert still images into video with the delay of 5 seconds to each image.

  ffmpeg -f image2 -r 1/5 -i img%03d.png -vcodec libx264 out.mp4

  This command is working fine. I just wanted to know, whether it is possible to put two parameters for -vcodec, as along with libx264, I also want to use H264, to make that video work even on i-phone.

• Video Slideshow from png files + mp3 audio

  25 novembre 2012, par James Evans

  I have a bunch of .png frames and a .mp3 audio file which I would like to convert into a video. Unfortunately, the frames do not correspond to a constant frame rate. For instance, one frame may need to be displayed for 1 second, whereas another may need to be displayed for 3 seconds.

  Is there any open-source software (something like ffmpeg) which would help me accomplish this ? Any feedback would be greatly appreciated.

  Many thanks !