Recherche avancée

Sur d’autres sites (8256)

• vba & operator string error sending with string of arguments to processStartInfo for ffmpeg

  25 avril 2015, par Robert McCorkle

  I need to pass a string into the ProcessStartInfo for ffmpeg so that I can call the dim.Argument and have it append the strings and variables from code as I parse through the files.

  I have the current filename.mp3 that the code sees in movedFileInfo but it won’t allow me to append it to the string using & operators... help ?

  I know there may be one other way to do this utilizing the ffmpeg command in separate function to simply loop through a directory using "for" but I’ve not found a successful command for running my ffmpeg.exe nor the ffprompt in windows. I also need to append a carriage return when I write to merge.txt but can’t find an example... I’m new to vba.

  These commands work but vba is complaining about my & operator in my string. The operator ’&’ is not defined for types ’String’ and ’System.IO.FileInfo’. So what’s I understand is that the string I’m passing into psi.Arguments doesn’t like the fact that I’m sending it a string and a variable appended using the ’&’ operator... do I simply use a comma or how do I append the variable movedFileInfo to ffmpeg -i ? psi is defined above as ProcessStartInfo... so I’m not sure what types vb recognizes for it... I haven’t found info on ProcessStartInfo to kick off my ffmpeg exe.

  See code below :

  Imports System
  Imports System.IO
  Imports System.Text.RegularExpressions

  Public Class Form1

  Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  
  
  
      'videos are from SD card always on I:\Private\AVCHD\BDMV\STREAM\
  
      'store files to RAID drives in folders structured as :
  
      '       F:\BUILD\FLIGHT#\CAM#\_FLT__UTC__CAM_.MTS
  
  
  
      'set base dir as directory F:\
  
      Dim dir As String = "C:\"
  
      Dim video_card_dir As String = "C:\1bak\" '"I:\Private\AVCHD\BDMV\STREAM\"
  
      Directory.SetCurrentDirectory(dir)
  
  
  
      Dim new_flightnum_directory = dir & Me.BUILD.Text & "\" & FLT.Text & "\"
  
      'establish new video dir>  F: \    BUILD      \     FLIGHT # \               CAM #    \
  
      Dim new_video_directory = dir & Me.BUILD.Text & "\" & FLT.Text & "\" & Me.CAM.Text & "\"
  
      'establish new filename to rename the video file
  
      '                               TAIL #              FLT #
  
      Dim new_filename As String = TAIL.Text & "_" & FLT.Text & "_" & UTC.Text & "_" & CAM.Text
  
      Dim ffmpeg As String = "C:\ffmpeg\bin\ffmpeg.exe"
  
      '****FFMPEG required variables
  
      Dim psi As ProcessStartInfo = New ProcessStartInfo("C:\ffmpeg\bin\ffmpeg.exe")
  
      Dim proc As Process = Process.Start(psi)
  
  
  
      psi.UseShellExecute = True
  
      psi.CreateNoWindow = True
  
      '****end FFMPEG required variables
  
  
  
  
  
  
  
      '!!!!!!!!!!!!!!!!!!!!!!!!!!!need to add the processing below to the IF statement aboev so that if the folders exist, the video processing doesn't attempt to run on existing files
  
      ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  
  
  
  
  
  
  
  
  
  
  
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~START - MOVE THIS DOWN BELOW CREATION OF FILE STRUCTURE WHEN DOEN DEBUGGING************
  
  
  
  
  
      '***START MOVING the files from the card to the new directory****
  
      For Each foundFile As String In My.Computer.FileSystem.GetFiles(video_card_dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.MTS")
  
  
  
          Dim foundFileInfo As New System.IO.FileInfo(foundFile)
  
          My.Computer.FileSystem.MoveFile(foundFile, new_video_directory & foundFileInfo.Name)
  
  
  
  
  
      Next
  
  
  
      For Each foundFile As String In My.Computer.FileSystem.GetFiles(video_card_dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.MTS")
  
  
  
          Dim movedFileInfo As New System.IO.FileInfo(foundFile)
  
          psi.Arguments = "ffmpeg -i " & movedFileInfo & " -vcodec -c libx264 " & movedFileInfo & ".mp4"
  
          psi.ToString()
  
  
  
          'proc = Process.Start(psi)
  
  
  
          '***convert each MTS file in the new directory to MP4****
  
          'Writes filenames to merge.txt as " path\to\merge.txt ,               'file '  F:\path\to\               file1  .MP4         '"  so that ffmpeg can merge, then rename
  
          'My.Computer.FileSystem.WriteAllText(new_video_directory & "merge.txt", "file '" & movedFileInfo & ".mp4'" & vbCrLf, True)
  
          '>>>>need to add carriage return to text file
  
  
  
          'NOW CAPTURE FILENAMES OF MP4 and MERGE INTO 1 MP4 FILE
  
  
  
          '   merge all F:\path\to\merge.txt to merge the files & merge them 
  
          'psi.Arguments = "ffmpeg -f concat -i " & new_video_directory & "merge.txt -c copy " & new_filename & ".mp4"
  
          proc = Process.Start(psi)
  
  
  
      Next
  
  
  
      '***END MERGE FILES***
  
  
  
  
  
      '~~~~~~~~~~~~~~~~~~~~~~~~~~~~* END - MOVE
  
  
  
  
  
      '***START CREATE STORAGE DIRECTORY STRUCTURE ***
  
      'Verify if the build # directory exists?
  
      If My.Computer.FileSystem.DirectoryExists(dir & Me.BUILD.Text) Then
  
          MessageBox.Show("The build directory exists, moving on to create subdirectories")
  
      Else
  
          Try
  
              'create the new directory                F:\    build \ FLIGHT #
  
              My.Computer.FileSystem.CreateDirectory(dir & Me.BUILD.Text)
  
              MessageBox.Show("The build directory" & dir & Me.BUILD.Text & " was created.")
  
          Catch ex As Exception
  
              MessageBox.Show("Doh! The build directory could not be created!  Error: " & ex.Message, "Error creating directory.", _
  
                              MessageBoxButtons.OK, MessageBoxIcon.Error)
  
          End Try
  
  
  
      End If
  
  
  
      'verify if the flight num directory exists - or create it
  
      If My.Computer.FileSystem.DirectoryExists(new_flightnum_directory) Then
  
          MessageBox.Show("The flight # folder already exists!  Check that you have the right Flight #.")
  
      Else
  
          Try
  
              'create the new directory                F:\  BUILD \  FLIGHT #
  
              My.Computer.FileSystem.CreateDirectory(new_flightnum_directory)
  
  
  
              'Now create new subDirectories   
  
              My.Computer.FileSystem.CreateDirectory(new_video_directory)
  
  
  
              MessageBox.Show("The new flight directory & video CAM subdirectories have been created!  The videos will be moved and files converted now which will take some time.")
  
  
  
          Catch ex As Exception
  
              MessageBox.Show("Doh! The flight num or CAM directory could not be created!  Error: " & ex.Message, "Error creating directory.", _
  
                              MessageBoxButtons.OK, MessageBoxIcon.Error)
  
          End Try
  
      End If
  
  
  
  
  
      '***END CREATE STORAGE DIRECTORY STRUCTURE ***   
  
  
  
  
  
  
  
  
  
  
  
      MessageBox.Show("new merged video file has been created in " & dir & Me.BUILD.Text & "\" & Me.CAM.Text)
  
  
  
  End Sub

  End Class

• Error when initializing webcam with ffmpeg

  29 janvier 2018, par Daniel

  I am trying to set up a webcam and stream to localhost, using ffmpeg.

  Here is a command I put into a terminal :

  ffmpeg -f alsa -ac 2 -i hw:1,0 -f v4l2 -s 1280x720 -r 10 -i /dev/video1 -vcodec libx264 -pix_fmt yuv420p -preset ultrafast -r 25 -g 20 -b:v 2500k -codec:a libmp3lame -ar 44100 -threads 6 -b:a 11025 -bufsize 512k -f flv rtmp://localhost:80/

  And here is what happened :

  ffmpeg version 2.8.11-0ubuntu0.16.04.1 Copyright (c) 2000-2017 the FFmpeg developers
  built with gcc 5.4.0 (Ubuntu 5.4.0-6ubuntu1 16.04.4) 20160609
  configuration : —prefix=/usr —extra-version=0ubuntu0.16.04.1 —build-suffix=-ffmpeg —toolchain=hardened —libdir=/usr/lib/x86_64-linux-gnu —incdir=/usr/include/x86_64-linux-gnu —cc=cc —cxx=g++ —enable-gpl —enable-shared —disable-stripping —disable-decoder=libopenjpeg —disable-decoder=libschroedinger —enable-avresample —enable-avisynth —enable-gnutls —enable-ladspa —enable-libass —enable-libbluray —enable-libbs2b —enable-libcaca —enable-libcdio —enable-libflite —enable-libfontconfig —enable-libfreetype —enable-libfribidi —enable-libgme —enable-libgsm —enable-libmodplug —enable-libmp3lame —enable-libopenjpeg —enable-libopus —enable-libpulse —enable-librtmp —enable-libschroedinger —enable-libshine —enable-libsnappy —enable-libsoxr —enable-libspeex —enable-libssh —enable-libtheora —enable-libtwolame —enable-libvorbis —enable-libvpx —enable-libwavpack —enable-libwebp —enable-libx265 —enable-libxvid —enable-libzvbi —enable-openal —enable-opengl —enable-x11grab —enable-libdc1394 —enable-libiec61883 —enable-libzmq —enable-frei0r —enable-libx264 —enable-libopencv
  libavutil 54. 31.100 / 54. 31.100
  libavcodec 56. 60.100 / 56. 60.100
  libavformat 56. 40.101 / 56. 40.101
  libavdevice 56. 4.100 / 56. 4.100
  libavfilter 5. 40.101 / 5. 40.101
  libavresample 2. 1. 0 / 2. 1. 0
  libswscale 3. 1.101 / 3. 1.101
  libswresample 1. 2.101 / 1. 2.101
  libpostproc 53. 3.100 / 53. 3.100

  ALSA lib pcm_hw.c:1700 :(_snd_pcm_hw_open) Invalid value for card

  [alsa @ 0x21c45c0] cannot open audio device hw:1,0 (No such file or directory)

  hw:1,0 : Input/output error

• FFmpeg : canvas and crop work separately but result in black screen when combined

  25 janvier, par didi00

  I'm working on a video processing pipeline with FFmpeg, where I :

  


  

  • Create a black canvas using the color filter.

  


  • Crop a region from my video input.

  


  • Overlay the cropped region onto the black canvas.

  


  


  Both the canvas and the crop display correctly when tested individually. However, when I attempt to combine them (overlay the crop onto the canvas), the result is a black screen.
What Works :

  


  Black Canvas Alone :

  


  ffmpeg -filter_complex "color=c=black:s=1920x1080[out]" -map "[out]" -f nut - | ffplay 
-


  


  This shows a plain black screen, as expected.

  


  Cropped Region Alone :

  


  ffmpeg -f v4l2 -input_format yuyv422 -framerate 60 -video_size 1920x1080 -i /dev/video0 
\ -vf "crop=1024:192:0:0" -f nut - | ffplay -


  


  This shows the cropped region of the video correctly.

  


  When I combine these steps to overlay the crop onto the black canvas, I get a black screen :

  


  ffmpeg -f v4l2 -input_format yuyv422 -framerate 60 -video_size 1920x1080 -i /dev/video0 
\-filter_complex "color=c=black:s=1920x1080,format=yuv420p[background]; \
[0:v]crop=1024:192:0:0,format=yuv420p[region0]; \
[background][region0]overlay=x=0:y=0[out]" \
-map "[out]" -f nut - | ffplay -


  


  Environment :

  


  

  • OS : Linux (Debian-based)

  


  • FFmpeg Version : [Insert version, e.g., 4.x or 5.x]

  


  • Capture Card Format : yuyv422

  


  


  Question :

  


  Why does the pipeline result in a black screen when combining the canvas and the crop, even though both work separately ? Is this an issue with pixel format compatibility, or is there something I'm overlooking in the overlay filter setup ?