Flash2Jpeg 服务端组件 下载

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函数，支持指定祯的捕捉

本地下载