Recherche avancée

Sur d’autres sites (10729)

• 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

• How to batch add chapters to video

  2 juin 2021, par throwaway513

  I have 20 videos and chapter files in .mp4 and .txt formats. Their filenames are 1.mp4 / 1.txt all the way to 20.mp4 / 20 txt. I want to match the same filename video to same filename chapters.

  


  How to batch add the metadata chapters to these videos in ffmpeg ? I am using windows

  


  for %%a in ("*.mp4") do ffmpeg -i "%%a" -i "%%a.txt" -map_metadata 1 -map 0 "Chapvids\%%~na"


  


  1.mp4.txt : No such file or directory

  


• Find the delay between 2 audio streams

  15 octobre 2015, par Jean-Philippe Encausse

  I have 2 cameras recording the same scene. I want to find the delay between the clips using audio stream.

  How should I proceed ? I assume I should use a fuzzy function to match relevant spike in audio stream and find the same spikes in the other audio file ?

  What algorithm should I use to get relevant data ? (I want to use NodeJS)

  Is there any CLI, NodeJS, or FFMPEG helpers do that ?

  Thanks !