çok aramışsınızdır bir zamanlar youtube furyası vardı her önüne gelen video sitesi açmak için birbiriyle yarışıyordu o zamanlar php kullanan kullanıcılar aspcilere karşı çok daha fazla iş yapıyordu çünkü asp ile geliştirilmiş örnek bir kod bulunamamaktaydı herkes ffmpeg ile convert edileceğini biliyor fakat indirdikleri ffmpeg kopyalarından istedikleri sonucu elde edemiyorlardı.
İşte size arşivimden bulup çıkardığım ve istek üzerine de yayınlamak istediğim bir kod ve ffmpeg kopyası
rar şifresi : www.erhankaraca.com
Gerekli DynuExec Componenti (Ücretsiz)
<% strFullFileName = "MYVIDEO.MPG" strFilename = "MYVIDEO" strFileExt = "MPG" Select Case UCASE(strFileExt) Case "MPG"� strCommand = "c:\bin\ffmpeg.exe -i c:\" & strFullFileName & " -ar 11025 -f flv -s 500x400 -y c:\" & strFilename & ".flv" Case "AVI" strCommand = "c:\bin\ffmpeg.exe -i c:\" & strFullFileName & " -ar 11025 -f flv -s 500x400 -y c:\" & strFilename & ".flv" Case "MOV" strCommand = "c:\bin\ffmpeg.exe -i c:\" & strFullFileName & " -ar 11025 -f flv -s 500x400 c:\" & strFilename & ".flv" Case "3GP" strCommand = "c:\bin\ffmpeg.exe -i c:\" & strFullFileName & " -ar 11025 -f flv -s 500x400 c:\" & strFilename & ".flv" Case "MP4" strCommand = "c:\bin\ffmpeg.exe -i c:\" & strFullFileName & " -ar 11025 -f flv -s 500x400 c:\" & strFilename & ".flv" Case "WMV" strCommand = "c:\bin\ffmpeg.exe -i c:\" & strFullFileName & " -f flv -s 500x400 c:\" & strFilename & ".flv" case else strCommand = "c:\bin\ffmpeg.exe -i c:\" & strFullFileName & " -s 500x400 c:\" &strFilename & ".flv" End Select � ' Küçük resim komutu buradaki 120 * 90 ı değiştirebilirsiniz strCommand2 = "c:\bin\ffmpeg.exe -i c:\" & strFilename & ".flv -s 120x90 -vframes 1 -f mjpeg c:\" & strFilename & ".jpg" ' Büyük resim komutu buradaki 500x400 ı değiştirebilirsiniz strCommand3 = "c:\bin\ffmpeg.exe -i c:\" & strFilename & ".flv -s 500x400 -vframes 1 -f mjpeg c:\b_" & strFilename & ".jpg" ' Bu Komut video süresini alabilmek için gerekli strCommand4 = "c:\bin\ffmpeg.exe -i c:\" & strFilename & ".flv" � Set myexec = Server.Createobject("Dynu.Exec") myexec.execute(strCommand) myexec.execute(strCommand2) myexec.execute(strCommand3) strTemp=myexec.execute(strCommand4) Set myexec = nothing 'Videonun Süresi Alınıyor strDuration=InStr(strTemp,"Duration: ") strLastDuration=Mid(strTemp,strDuration+10,8) &>
Erhan Karaca yine incilerini sizler için paylaşmış.Çoğu zaman kafasını şişirip kendisinden cok yardım istedim ve beni kırmamıştır.Yararlı paylaşımlarını ve deneyimlerini burda bu işe meraklı insanlarla paylaşması çok güzel.Ben onu asp dehası olarak görüyorum.Böyle şakır şakır bomboş sayfayı dolsuran bi adam daha önce görmedim çünkü:)
Bu kodları bir çok kişi belirli fiyat karşılığı veriyor. Bizimle böyle birşeyi paylaştığın için tşkür ediyoruz.
Teşekkür ederim. Umarım çalıştırabilirim. sağolun.
eğer herhangi bir problemle karşılaşırsanız buraya yazın elimden geldiğince yardımcı olmaya çalışırım sonuçta buradaki sadece yapabilin diye bir örnek geliştirmek ve değiştirmek elinizde
onur üstat verdigin iki dosyayıda indirdim bu verdigin koduda kayit ettim bunlari nasil ne nerede kullanacagımı geniş olarak açıklaya bilirmisin.
dynu exec bir bileşen onu server a kur geri kalan ffmpeg exelerini tüm yetkilerin verildiği bir klasöre koy asp kodundan da ilgili pathleri düzelt yapman gereken başka birşey yok gerisi senin geliştirmene kalmış
bu konu üzerine geniş bir döküman hazırlamak için şuanda vaktim yok ama geniş bir zamanda çok geniş bir yazı ile bu konuyu ele alacağım
bu komutları çalıştırdım, fakat internetteki server’a koymak istiyorum. dynu exec i host firmasından yüklemesini mi istemeliyim? host firması bunu yükler mi ayrıca?
hosting firmanla aranda olan anlaşmaya bağlı ama büyük bir ihtimalle izin vermeyebilirler hem execute hakkı verip hemde sistem kaynağının büyük bir bölümünü bu iş için harcamazlar bence senin ucuz yollu bir sanal sunucu ile bu işi çözmen gerekir
reseller bayisiyim bi host firmanın ama sanırım dediğiniz gibi izin vermezler.
bu tür 3. parti yazılımlar sistem için ciddi bir güvenlik zafiyeti doğurabiliyor o yüzden dediğim gibi vereceklerini sanmıyorum
iyi çalışmalar