Flash抓图组件 IronSoft.FlashCapture 示例代码

　　通过阿江ASP探针得知FLASH 截图组件 Ironsoft.FlashCapture，又通过GOOGLE找到组件官方网站。然后下载了组件，根据手册说明写了个代码测试了一下。

　　组件官方说明：“国内首创的Flash组件，可以对FLASH的指定帧进行抓图，是制作Flash欣赏网站的不可缺少的助手”

示例代码如下（将代码存为.asp或去掉<%和%>存为.vbs文件进行调试）：

代码:

<%
dim FlashCapture
Set FlashCapture = CreateObject("IronSoft.FlashCapture")
FlashCapture.FileName = "C:\flash\51windows.swf"	'指定flash文件路径
TotalFrame = FlashCapture.TotalFrame	'获取flash总帧数
Width = FlashCapture.Width	'获取抓到的图片的宽度
Height = FlashCapture.Height	'获取抓到的图片的高度

FlashCapture.CaptureFrame = 20	'指定抓图的帧
FlashCapture.SaveasJpg "C:\flash\51windows.jpg",95	'保存图片

'生成所有帧的图片,很占CPU
'for i = 1 to TotalFrame
'	FlashCapture.CaptureFrame = i
'	FlashCapture.SaveasJpg "C:\flash\51windows("& i &").jpg",90
'next
Set FlashCapture = Nothing
%>

文章来源：http://www.51windows.net/data/files/file_755.asp?frame=no