c# ile resimlerden video

'ben jpg formatına göre yaptım yalnış hatırlamıyorsam diğerlerini de yapabilirsin 'ama karışık bi jpg bi png falan yapınca bozuluyor video


 Dim ffmpegEXE As String = "ffmpeg dosyasının yolu C:\TEST\ffmpeg.exe"
                        Dim ffmpeg As New System.Diagnostics.Process

Dim i2path As String = "resimlerin olduğu klasör yolu"
Dim vpath As String = "dosyalaırn kaydedileceği yer"
'Klasördeki dosyları aldırıyoruz hepsinin images4 diye arraya alıyoruz
Dim folderInfo4 As New IO.DirectoryInfo(i2path & "\")
                        Dim arrFilesInFolder4() As IO.FileInfo
                        Dim fileInFolder4 As IO.FileInfo
                        Dim images4 As New ArrayList

                        arrFilesInFolder4 = folderInfo4.GetFiles("*.jpg")
                        For Each fileInFolder4 In arrFilesInFolder4
                            images4.Add(fileInFolder4.FullName)
                        Next


'şimdi sırayla dosyalarımızı inceliyoruz
                        For i5 = 1 To images4.Count - 1
                            

 'resimleri toplu birleştirme yapmamışım nedenini bilmiyorum sen hepsini aynı 'anda deneyerek toplu birleştirme yapabilirsin
                                 Dim sldname As String = Path.GetFileNameWithoutExtension(images4(i5 - 1))

                            With ffmpeg.StartInfo
                                .FileName = ffmpegEXE
                                .Arguments = " -loop 1 -i """ & images4(i5 - 1) & """ -loop 1 -i """ & images4(i5) & """ -vcodec mpeg4 " & """" & vpath & "\" & sldname & ".mp4"" -y"
                                '.WindowStyle = ProcessWindowStyle.Hidden
                            End With
                            ffmpeg.EnableRaisingEvents = True
                            AddHandler ffmpeg.Exited, AddressOf process_exited
                            ffmpeg.Start()
                            ffmpeg.WaitForExit()
                            ffmpeg.Close()

'şimdide videoların olduğu klasördeki videoları alıyoruz.
'ben burda intro da yapmışım istersen çıkartırsın
'intro yaparsan muhakkak aynı formatta ve resimlerin boyutunda olsun.
'unutmadan söyleyeyim video yapacağın kodların hepsi aynı boyutta olmalı

dim  slidefile as string = "kaydedilecek yer + dosya ve sonuna mp4 yani C:\sonvideo.mp4 bu şekilde yazınca c içine sonvideo.mp4 olarak dosyanı hazırlar"
                        Dim folderInfo5 As New IO.DirectoryInfo(vpath & "\")
                        Dim arrFilesInFolder5() As IO.FileInfo
                        Dim fileInFolder5 As IO.FileInfo
                        Dim videos As New ArrayList


                        arrFilesInFolder5 = folderInfo5.GetFiles("*.mp4")
                        For Each fileInFolder5 In arrFilesInFolder5
                            videos.Add(fileInFolder5.FullName)
                        Next


'burada exeye verilecek kodu tektek yazmamak için o kodu oluşturmuşum

                        Dim input As String = ""
                        Dim mt1 As Integer = 0
                        For i6 = 0 To videos.Count - 1
                            If i6 = videos.Count - 1 Then
                                input += "file '" & videos(i6) & "'" & Chr(13) & "file '" & "intro linki'"
                            Else
                                input += "file '" & videos(i6) & "'" & Chr(13)
                            End If

'bu noktada önceden hazırladığımız videonun uzunlugunu kontrol edip ona göre 
'asıl videonun boyutunu ayarlıyoruz 
                            Dim Duration As Integer
                            Dim wmp As WMPLib.WindowsMediaPlayer = New WMPLib.WindowsMediaPlayer
                            Dim media As WMPLib.IWMPMedia = wmp.newMedia(videos(i6))
                            If media IsNot Nothing Then
                                Duration = media.duration.ToString
                            Else
                                Duration = 0
                            End If
                            wmp.close()
                            mt1 = mt1 + Duration

                        Next
  

'kodu bi txt kaydediyoruz exe txtden alacak sesle birleştirip video yapacak
'neden diye sorma çok denedim anca böyle yapabildim.

   Dim yazv = New StreamWriter("kaydedilecek txt yolu")
                        yazv.Write(input)
                        yazv.Flush()
                        yazv.Close()


                        Dim Sounds As string = "ses dosyası linki mp3 olarak yaptım ben"
                        mt1 = mt1 + 10

                        Dim progresscode2 As String = " -f concat -i """ & "kaydedilecek txt yolu"" -i """ & Sounds & """ -t " & mt1 & " """ & slidefile & """ -y"
                        With ffmpeg.StartInfo
                            .FileName = ffmpegEXE
                            .Arguments = progresscode2
                            '.WindowStyle = ProcessWindowStyle.Hidden
                        End With
                        ffmpeg.EnableRaisingEvents = True
                        AddHandler ffmpeg.Exited, AddressOf process_exited
                        ffmpeg.Start()
                        ffmpeg.WaitForExit()
                        ffmpeg.Close()