在线转flv＋flash在线录制视频

最新推荐文章于 2025-09-12 19:41:34 发布

转载最新推荐文章于 2025-09-12 19:41:34 发布 · 58 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/MaxIE/archive/2007/01/12/618692.html

文章标签：

#ffmpeg

本文介绍如何使用ASPExec组件调用ffmpeg工具完成音视频文件的在线转换，并通过ffmpeg生成缩略图，同时利用脚本删除源文件。

需要用到的组件
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

转载于:https://www.cnblogs.com/MaxIE/archive/2007/01/12/618692.html