Flash2jpeg Service-Side components Download _ Common Tools

Flash2jpeg Service-side components

Author: Bubble Dragon
Home: Sunshine World (Http://www.suncn.net)
Mail:feisty#21cn.com

System requirements: Already an Flash Player components (can be downloaded in http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash)
Installation method: RegSvr32 {path}\suncn.dll

Call Description:
Flash2jpeg ("source filename", wide, high, "target filename");
Flashframe2jpeg ("source filename", wide, high, "target filename", Zhen);
Successfully returned Ture, failed return False

Additional instructions, also supports thumbnail generation of JPEG files, calling methods the same

1.php usage
?
$flash 2jpeg = new COM ("Suncn.flash2jpeg");
if ($flash 2jpeg) {
$a = $flash 2jpeg->flash2jpeg ("source filename", 120, 90, "target filename");
if ($a) {
$show _message.= "creat smallpic error!";
}else{
$show _message.= "creat smallpic OK."
}
$flash 2jpeg->release ();
$flash 2jpeg = null;
}else{
$show _message.= "creat flash2jpeg error!";
}
?>

2.asp
<%
'//*********** started ***********
'//author:allen
'//last update date:2004/12/24

'//Set the path where Flash is located
Source=server.mappath ("/flash/test.swf")
'//Set flash thumbnail output path
Target=server.mappath ("/flash/test.jpg")
'//Establish an instance
Set flash2jpeg = Server.CreateObject ("Suncn.flash2jpeg")
'//Generate thumbnails
Call Flash2jpeg.flash2jpeg (Source,120,90,target)
'//Logoff instance
Set flash2jpeg=nothing

'//*********** End ***********
%>

3.delphi usage
Procedure Tform1.button1click (Sender:tobject);
Var
M:olevariant;
Begin
M: = Createoleobject (' suncn.flash2jpeg ');
M.flashframe2jpeg (' d:\banner.swf ', ","), "D:\test10.bmp", "10";
End

Update

2004/12/28 Add Flashframe2jpeg function to support the capture of specified Zhen

Local Downloads