Recherche avancée

Sur d’autres sites (11250)

• 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

  


• Evolution #3589 (Fermé) : Modification au pointage des résultats de recherche...

  9 mars 2021, par cedric -

  J’ai intégré en adaptant parce que :
  - le patch proposé est buggué en se basant uniquement sur $regs[0][0] qui est le premier résultat trouvé : il faudrait donc itérer sur chaque résultat
  - pour le résultat multi-mots, l’algo ne marche pas si bien car si par exemple je cherche "tempete de sable" le "de" est supprimé des regexp car trop court, et donc je n’ai que des match sur tempete et sable
  - la distinction mot entier/partie de mot est quand même lourde car il faut donc refaire une preg dans un foreach (sans oublier d’échapper le résultat pour reconstruire une preg) et discutable car si je trouve "baton" dans le mot "batons" au pluriel en quoi ce serait moins bien que dans "baton" au singulier ? Il faudrait donc pousser plus loin l’analyse ce qui va in fine être très couteux

  Tout bien pesé et regardé, j’ai donc tiré la substantifique moelle du patch qui est de dire "plus le résultat trouvé est long mieux c’est" et ça donne https://git.spip.net/spip/spip/commit/c1ab59cb72c77102ea9b75309c2062ab8d8aa51a : je pondère le poids par la longueur totale des matchs trouvés et non par le nombre de match.

  Effet de bord, tous les #POINTS vont fortement augmenter, si quelqu’un utilisait un seuil pour filtrer ses résultats ça va tomber à l’eau (mais c’est pas très grave...)