重新来过!

ASP在线转flv和flash在线录制视频

上一篇 / 下一篇  2008-04-14 13:21:56

需要用到的组件
ASPExec
mencoder
ffmpeg.exe

第一步骤: 在线转换

Set Executor = Server.CreateObject("ASPExec.Execute")
Executor.Application = "cmd /c mencoder E:\qiancheng\upload\"&request.QueryString("keys")&" -o E:\qiancheng\shipin\record\streams\_definst_\record\"&lid&"\"&keys&".flv -of lavf -oac mp3lame -lameopts abr:br=56 -ovc lavc -lavfopts i_certify_that_my_video_stream_does_not_use_b_frames -lavcopts vcodec=flv:vbitrate=200:mbd=2:mv0:v4mv:last_pred=3:dia=3:cmp=3:vb_strategy=1 -vf scale=330:-3 -ofps 12 -srate 22050"
Executor.Parameters = ""
strResult = Executor.ExecuteDosApp

asp执行 .bat文件

第二步骤: 通过ffmpeg生成所略图+fso 删除源件

Server.ScriptTimeout=0
flvname=keys
streamPath="../shipin/record/streams/_definst_/record/"&lid&"/"&flvname&".flv"
imgW ="120"
imgY = "90"
imgQuality = "100"
ss="3"
newName = "../upload/"&flvname&".jpg"
str="e:\qiancheng\webadmin\ffmpeg.exe"
str=str+" -i "&server.mappath(streamPath)&" -ss 3 -vframes 1 -r 1 -ac 1 -ab 2 -s 120*90 -f image2 "&server.mappath(newName)&""
Set shellffmpeg=server.CreateObject("ffmpeg.shellffmpeg")
aa=shellffmpeg.shellffmpeg1(str)
Set shellffmpeg = Nothing
'删除上传的文件
tupianid="../upload/"&request.QueryString("keys")
set    fso=server.CreateObject("scripting.filesystemobject")   
if fso.FileExists(Server.MapPath(tupianid))    then   
fso.deletefile(server.MapPath(tupianid))   
end if   
set fso=nothing

TAG:

爱吉他的个人空间 引用 删除 lwq842635   /   2011-09-01 00:46:48
5
引用 删除 Guest   /   2011-03-09 11:03:49
-3
鱼.伞的翅膀 引用 删除 鱼.伞   /   2009-09-21 06:33:17
5
引用 删除 Guest   /   2009-05-19 10:52:33
飞辉的个人空间 引用 删除 飞辉   /   2009-04-10 21:59:48
飞辉的个人空间 引用 删除 飞辉   /   2009-04-10 21:59:47
5
引用 删除 Guest   /   2009-04-01 14:48:24
-5
音乐空间 引用 删除 stormer   /   2008-06-28 02:58:53
好是好,不过一般虚拟主机不会让你使用第三方的组件的。
力高音乐制作工作室 引用 删除 力高   /   2008-06-20 14:47:35
英文?NO!!
力高音乐制作工作室 引用 删除 力高   /   2008-06-20 14:44:45
5
引用 删除 GUEST   /   2008-05-19 13:32:31
-5
引用 删除 Guest   /   2008-05-19 13:32:05
-5
 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

日历

« 2017-10-20  
1234567
891011121314
15161718192021
22232425262728
293031    

数据统计

  • 访问量: 80884
  • 日志数: 1
  • 图片数: 3
  • 曲谱数: 1
  • 建立时间: 2007-04-29
  • 更新时间: 2017-09-09

RSS订阅

Open Toolbar