Flash2Jpeg 服务端组件
作者: 泡泡龙
主页: 阳光天下(http://www.suncn.net)
mail:feisty#21cn.com
系统要求：已经安Flash播放组件(可在http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash下载)
安装方法: RegSvr32 {路径}\SunCN.dll
调用说明:
Flash2Jpeg("源文件名",宽,高,"目标文件名");
FlashFrame2Jpeg("源文件名",宽,高,"目标文件名",祯号);
成功返回Ture,失败返回 False
附加说明，也支持 Jpeg文件的缩略图生成，调用方法相同
1.php用法
<?
$flash2jpeg = new COM("SunCN.Flash2Jpeg");
if ($flash2jpeg){
$a=$flash2jpeg->Flash2Jpeg("源文件名",120,90,"目标文件名");
if ($a){
$show_message.="Creat smallPic error!";
}else{
$show_message.="Creat smallPic OK.";
}
$flash2jpeg->Release();
$flash2jpeg = null;
}else{
$show_message.="Creat Flash2Jpeg error!";
}
?>
2.asp
<%
'//***********开始***********
'//author:allen
'//last update date:2004/12/24
'//设置flash所在路径
source=server.mappath("/flash/test.swf")
'//设置flash缩略图输出路径
target=server.mappath("/flash/test.jpg")
'//建立实例
Set Flash2Jpeg = Server.CreateObject("SunCN.Flash2Jpeg")
''//生成缩略图
call Flash2Jpeg.Flash2Jpeg(source,120,90,target)
'//注销实例
set Flash2Jpeg=nothing
'//***********结束***********
%>
3.delphi用法
procedure TForm1.Button1Click(Sender: TObject);
var
m: OleVariant;
begin
m := CreateOleObject('SunCN.Flash2Jpeg');
m.FlashFrame2Jpeg('d:\banner.swf', 320, 240, 'd:\test10.bmp', 10);
end;
更新
2004/12/28 添加FlashFrame2Jpeg函数，支持指定祯的捕捉
