ASP執行ffmpeg的非組件版

用Wscript.Shell

<%
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
%>