http://www.lougoo.com/blog/default.asp?cateID=2

http://www.lougoo.com/blog/article.asp?id=714

http://www.flashlite.com.cn/bbs/thread-3387-1-1.html

http://blog.bandao.cn/help/toflv.htm

ffmpeg

http://www.chinavideo.org/index.php?option=com_remository&Itemid=16&func=select&id=1
http://bbs.chinavideo.org/forumdisplay.php?fid=11


ASP执行ffmpeg的非组件版

PHP版的有了,但是在同一台机子上装两种WEB服务,烦呀。好想有个ASP版的哇
闪客互联的 wyzlx 提供出来了,好高兴
DOWN下来一看,晕了,组件版的。不敢用呀,孔子说过,未知的组件不要在服务器上注册!!!!!
只有自已研究了,原来用Wscript.Shell就可以了。唉,居然花费了3个多小时,到最后原来我网上下的一个FLV是有错误的。哭
最后还是好了,现提供给朋友们,也许能起到抛砖引玉之功效。绝对能用:

<%
Server.ScriptTimeout=0
'On Error Resume Next
flvname=request.QueryString("flvname")
'streamPath="../record/streams/_definst_/"&flvname&".flv"
streamPath="dd/"&flvname&".flv"
imgW ="160"
imgY = "120"
imgQuality = "70"
ss="3"
'newName = "../videoimage/"&flvname&".jpg"
newName = "dd/"&flvname&".jpg"
strd="ffmpeg.exe"
strd=server.mappath(strd)
strd=strd+" -i "&server.mappath(streamPath)&" -ss 3 -vframes 1 -r 1 -ac 1 -ab 2 -s "&imgW&"*"&imgY&" -f image2 "&server.mappath(newName)&""
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run(strd,1,FALSE)
'(strd,1,FALSE)为1时服务器端显示进度,为2时则无
if IsSuccess = 0 Then
Response.Write strd
response.write " <br />成功执行"
else
Response.Write strd
Response.write "<br />命令执行失败!权限不够或者该程序无法运行"
end if
Set WshShell = Nothing
'if err.number <> 0 then
'Response.Write "<p>错误号码:" & Err.number
'Response.Write "<p>原因:" & Err.description
'Response.Write "<p>错误来源:" & Err.Source
'Response.end
'end if
%>

http://www.flashcom.com.cn/bbs/thread-1713-1-1.html
posted on 2007-03-09 22:21  mbskys  阅读(289)  评论(0)    收藏  举报