Flash2Jpeg FLASH自动生成缩略图组件

2Jpeg 服务端组件

系统要求:已经安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函数,支持指定祯的捕捉

发表评论

邮箱地址不会被公开。 必填项已用*标注

click to changeSecurity Code