Recherche avancée

Sur d’autres sites (7472)

• 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

• Getting friendly output status of FFMPEG transcode

  23 avril 2013, par SamIAm

  When I transcode a file using

  ffmpeg -i input.avi  -vcodec libx264 output.mp4

  the ffmpeg program will show the status of the file being transcoded bit by bit. It will fill up the screen and if I use a for loop to transcode multiple files, after a while I do not know which file it is up to.

  Is there a way to update only the last line on the bash screen when it is transcoding ?

• Transcoding & displaying user-uploaded videos for cross-browser/platform compatibility

  5 avril 2012, par Jonathan Amend

  I want to display user-uploaded videos in high quality on different browsers/platforms. I think I have a pretty good start, but there are a few issues. I have at my disposal ffmpeg 0.10 (called from PHP) and jwPlayer 5.8 (licensed).

  Ideally I would like to support :

  • Browsers with Flash 9+
  • Modern Firefox/Chrome/Safari without Flash
  • iOS 4.1+
  • Android 2.2+

  My current transcoding commands are :

  $commands = array(
  
      'flv' => "/usr/bin/ffmpeg -y -i {$sourceFile} -b 500k -ar 22050 -ab 64 {$tmpFileName}.flv 2>&1",
  
      'webm' => "/usr/bin/ffmpeg -i {$sourceFile} -acodec libvorbis -ac 2 -ab 96k -ar 44100 -b 500k {$tmpFileName}.webm 2>&1",
  
      'mp4' => "/usr/bin/ffmpeg -i {$sourceFile} -acodec libfaac -ab 96k -vcodec libx264 -level 21 -refs 2 -vf 'scale=trunc(ih*a/2)*2:trunc(iw/a/2)*2' -b 500k -bt 1000k -threads 0 -f mp4 {$tmpFileName}.pre.mp4 2>&1",
  
      'jpg' => "/usr/bin/ffmpeg -y -i {$sourceFile} -ss 5 -vcodec mjpeg -vframes 1 -an -f rawvideo {$tmpFileName}.jpg 2>&1"
  
  );
  
  
  
  $fastStartCommand = "/usr/bin/qt-faststart {$tmpFileName}.pre.mp4 {$tmpFileName}.mp4");

  My current display code is this :

  <video controls="controls" width="{$width}" height="{$height}" poster="{$fileJPG}" style="width: {$width}px; height: {$height}px;">
  
      <source src="{$fileMP4}" type="video/mp4" data-ext="mp4"></source>
  
      <source src="{$fileWEBM}" type="video/webm" data-ext="webm"></source>
  
      <a href="http://stackoverflow.com/feeds/tag/{$fileMP4}" title="Play Video">
  
          <img border="0" src="http://stackoverflow.com/feeds/tag/{$fileJPG}" width='0' height='0' alt="Play Video" />
  
      </a>
  
  </video>
  
  <code class="echappe-js">&lt;script type=&quot;text/javascript&quot;&gt;<br />
  
  swfobject.embedSWF(<br />
  
      &amp;#39;/flash/jwPlayer.swf&amp;#39;,<br />
  
      &amp;#39;video&amp;#39;,<br />
  
      {$width},<br />
  
      {$height},<br />
  
      &amp;#39;9.0.0&amp;#39;,<br />
  
      &amp;#39;&amp;#39;,<br />
  
      {<br />
  
          file: &amp;#39;{$fileFLV}&amp;#39;,<br />
  
          width: {$width},<br />
  
          height: {$height},<br />
  
          provider: &amp;#39;video&amp;#39;,<br />
  
          stretching: &amp;#39;uniform&amp;#39;,<br />
  
          smoothing: &amp;#39;true&amp;#39;,<br />
  
          dock: &amp;#39;true&amp;#39;<br />
  
      },<br />
  
      {<br />
  
          menu: &amp;#39;false&amp;#39;,<br />
  
          allowfullscreen: &amp;#39;true&amp;#39;,<br />
  
          allowscriptaccess: &amp;#39;always&amp;#39;,<br />
  
          allownetworking: &amp;#39;always&amp;#39;,<br />
  
          wmode: &amp;#39;transparent&amp;#39;<br />
  
      }<br />
  
  );<br />
  
  &lt;/script&gt;
  
  

  The idea is to prefer the Flash player (we have many custom skins that we would like to keep using), then fall back to HTML 5 video, and if that fails, show the JPEG with a link to the mp4 file (that seems to work as a last-ditch effort for iOS 2/3 and old browsers so they can at least play the video by launching QuickTime).

  The main issues that I'm not sure how to solve right now are :

  • How can I show a higher quality video in Flash ? I tried using the mp4 video instead of the flv but it doesn't work and I only get sound, no video. I think Flash is supposed to support h.264 these days, but how ? And do I have to use a different transcoding method for older and newer versions of Flash ?
  • How can I transcode the video with better quality ? Right now I am using the same bitrate for all resolutions. Any chance there is a way for ffmpeg to adjust the bitrate automatically ? Or can I detect and match the resolution of the uploaded video to a list of resolution -> bitrates somehow ?