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函数，支持指定祯的捕捉 [url=http://files.jb51.net/upload/Flash2Jpeg.rar]本地下载[/url]