Recherche avancée

Sur d’autres sites (11901)

• I cannot find any way to convert multiple jpg or png to gif in vb.net using ffmpeg

  4 juillet 2017, par Silvia Fonseca

  Is there anyway i can get multiples png or jpg images to gif using ffmpeg in vb.net
  I have start a new application to capture certain frames from a video but now i want to get all the frames extracted in gif image using ffmpeg.
  This is my code so far :
  I have in fact all ready try like this but not succeed
  I have made some changes and i get the gif file but in empty state
  This is my code so far

  Imports System.Diagnostics
  
  Imports System.ComponentModel
  
  Imports System
  
  Imports System.IO
  
  Public Class Form1
  
  Dim video = ""
  
  Dim startInfo As New ProcessStartInfo("ffmpeg.exe")
  
  Dim frame As Long 'individual frames
  
  Dim tempdir As String = "C:\avitogifconverter\" ' images temp directory
  
  Dim DestPath As String = "C:\avitogifconverter\"
  
  Public Declare Auto Function FindWindowNullClassName Lib "user32.dll" Alias "FindWindow" (ByVal lpClassname As Integer, ByVal lpWindownName As String) As Integer
  
  Dim Counter As Integer = 0
  
  
  
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  
      My.Computer.FileSystem.CreateDirectory(tempdir)
  
      TextBox1.Text = "exp:-->video.avi or webm or flv"
  
      TextBox1.Clear()
  
  
  
  
  
  
  
  End Sub
  
  
  
  
  
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  
      Dim p As Process = Process.Start("cmd", "/k ffmpeg.exe -i " + TextBox1.Text + " -filter:v fps=1/15 C:\avitogifconverter\out%02d.jpg")
  
      p.WaitForExit()
  
  
  
      If p.HasExited Then
  
          MsgBox("The Extraction Are Finish...")
  
      End If
  
  
  
  End Sub
  
  
  
  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  
  
  
  End Sub
  
  
  
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  
      Label3.Text = "cmd" + "/k ffmpeg.exe -i " + TextBox1.Text + " -filter:v fps=1/15 C:\avi to gif converter\out%02d.jpg"
  
  End Sub
  
  
  
  Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  
  
  
  
  
      If (OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK) Then
  
          'TextBox1.Text = OpenFileDialog1.FileName
  
          TextBox1.Text = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
  
      End If
  
      If TextBox1.Text = Nothing Then
  
          Return
  
      End If
  
      If TextBox1.Text <> Nothing Then
  
          'My.Computer.FileSystem.CopyFile(TextBox1.Text, DestPath)
  
      End If
  
  
  
  End Sub
  
  
  
  Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
  
      Dim args As String 'declare args
  
      args = " -framerate 1/5 -i C:\avitogifconverter\out%02d.jpg -c:v libx264 -r 30 -pix_fmt yuv420p C:\avitogifconverter\out.gif "
  
      Dim proc As New Process
  
      Dim proci As New ProcessStartInfo
  
      proci.FileName = My.Application.Info.DirectoryPath & "\ffmpeg.exe"
  
      proci.Arguments = args
  
      proci.WindowStyle = ProcessWindowStyle.Hidden
  
      proci.CreateNoWindow = True
  
      proci.UseShellExecute = False
  
      proc.StartInfo = proci
  
      proc.Start()
  
      Do Until proc.HasExited = True
  
          Me.Text = "Saving"
  
      Loop
  
      Me.Text = "your video done"
  
  
  
      MsgBox("Done")
  
  
  
      'IO.Directory.Delete(tempdir, True)
  
  End Sub
  
  End Class

• Revision 3199 : Un petit formulaire de config permettant de changer les secteurs... DEs ...

  6 avril 2010, par kent1 — Log

  Un petit formulaire de config permettant de changer les secteurs... DEs chaines de langue supplémentaires On s’insère dans styliser pour styler les articles ou rubriques des secteurs spécifiques ainsi que le profil des auteurs

• Revision 37300 : On documente cet inclure On lui ajoute une option et on corrige certaines ...

  15 avril 2010, par kent1@… — Log

  On documente cet inclure
  On lui ajoute une option et on corrige certaines erreurs