Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
ASP ve FFMPEG ile Windows Serverlarda Video Convert
#1

ASP ve FFMPEG ile Windows Serverlarda Video Convert
ç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ı

PHP Kod:
<%
 
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)
&> 

Kod:
Zip şifresi: www.forum41.com

FFMPEG : https://hotfile.com/dl/163020235/8d5a862...n.zip.html
DynuCom: https://hotfile.com/dl/163020396/553170b...m.zip.html


Eklenti Dosyaları
.zip   FFMPEG-bin.zip (Boyut: 4.13 MB / İndirilme: 2)
.zip   DynuCom.zip (Boyut: 907.42 KB / İndirilme: 1)
Alıntı


Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi