关于其他视频文件向.flv文件转换的问题

今年最火的就是在线视频网站了。

这些网站都是.flv文件。.flv文件可以支持边下载边播放，而且占用空间比较小。

现在就有一个问题，如何让网站用户 不论上传什么文件，都自动转换为.flv文件？

我前几天稍微学习了一点点这方面的东西。

转换主要用到了两个控件。

1:mEncoder。2:ffmpeg

ffmpeg可以很方便的把大部分视频格式转换为.flv格式的。但是不支持.rm,.rmvb的。所以需要用mEncoder把.rm或者.rmvb直接转换为.flv的。但是我没有转换成功过，所以我只能先转换为.avi的，然后再用ffmpeg转换为.flv。

ffmpeg.asp

< %
Server.ScriptTimeout = 0
str = server.MapPath( " ffmpeg1.exe " )
video = server.MapPath( " xyx.AVI " )
flv = server.MapPath( " xyx.flv " )
Set  WshShell  =  server.CreateObject( " Wscript.Shell " ) 
str = str & "  -i  " & video & "  -ab 56 -ar 22050 -b 500 -r 15 -s 320x240  " & flv 
Isffmpeg  =  WshShell.Run(str, 1 , false ) 
if  Isffmpeg  =   0   Then  
Response.Write str & " <br> "  
end   if  
Set  WshShell  =   Nothing
% >

mEncoder.asp:

< %
tools = Server.mapPath( " mencoder.exe " )
comeFile = Server.MapPath( " xyx.wmv " )
toFile = Server.MapPath( " rmvb.avi " )
Set  Shell  =  Server.CreateObject( " wScript.Shell " )
str = tools  &   "   " & comeFile & "  -oac mp3lame -lameopts preset=64 -ovc xvid -xvidencopts bitrate=600 -of avi -o  "   &  toFile
i_certify_that_my_video_stream_does_not_use_b_frames  - ovc lavc  - lavcopts vcodec = flv:vbitrate = 200   - srate  22050   - oac lavc  - lavcopts acodec = mp3:abitrate = 56  ok  \ " &comeFile& "   - o ok  \ "  & toFile
IsMenCoder  =  Shell.run(str, 1 , false )
if  IsMenCoder  =   0   Then
  Response.Write( " 成功！ " )
  response.write( " <br /> "   &  str)
end   if
Set  Shell  =   Nothing

% >