Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için lütfen foruma kayıt olun veya giriş yapın. Üyelik tamamen ücretsizdir ve sadece birkaç dakikanızı alır.
yardımcı olursanız çok sevinirim hocam
'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()
https://www.youtube.com/channel/ucsliv4wjfktehh0b9pmrklw/about
kanalda 350 bin video var helal olsun. Millet bide kanala abone olup video izliyo
kimi uzaylı diyor kimi devlet sırları falan var diyor. davincinin şifresi gibi
bence yeteerli bi sebeb bakalım acemi ce kodlanmış tamamen random resim oluştururken ben daha bi tecrübeli kodladım
bi proğram yapıp atıcaksın VDS e 30 tl lik bi VDS yeterli saat te 4 video yükleyecek
neden acemice dedin dersen
kırmızılar herzaman üstte maviler altta yani ilk maviyi çiziyor sonra kırmızı yı ama önce büyüğü sonra küçüğü çizmesi gerek o daha mantıklı
sırf bu yüzden dedim
şu resimden video yapma işlemini başarabilirsem bende yapıcam ona benzer bi kanal
İyi geceler ...
C#da yapıcam arkadaş .net visual basic in kodunu verdi sağolsun arkadaşlar o acemice programcı dediğiniz youtube ın kendisi.. deneme videoları yükleniliyo denilmişti sanırım
resimler acemice oluşturulmuş bazen tek renk görünüyo Farklı bir görünüm için alternatif header yapısını kolayca seçebilirsiniz.
Tam ekran ve dar ekran modları arasında geçiş yapın.
Izgara modu ile içerikleri kolayca inceleyin ve düzenli bir görünüm elde edin.
Arka plan görselleriyle içeriğinizi düzenli ve görsel olarak zengin bir şekilde görüntüleyin.
Yan paneli gizleyerek daha geniş bir çalışma alanı oluşturun.
Yan paneli sabitleyerek sürekli erişim sağlayın ve içeriğinizi kolayca yönetin.
Temanızın yanlarına box tarzı bir çerçeve ekleyebilir veya mevcut çerçeveyi kaldırabilirsiniz. 1300px üstü çözünürler için geçerlidir.
Köşe yuvarlama efektini açıp kapatarak görünümü dilediğiniz gibi özelleştirin.
Tarzınızı yansıtan rengi belirleyin ve estetik uyumu sağlayın.