Flash2Jpeg 服務端組件

作者: 泡泡龍
主頁: 陽光天下(http://www.suncn.net)
mail:feisty#21cn.com

系統(tǒng)要求：已經(jīng)安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函數(shù)，支持指定禎的捕捉

本地下載

最新評論