#62002/7/15 17:01:41
不用xtra比较困难吧
输出图片的第三方插件比较著名的是RavImageExport Xtra,可以在http://www.ravware.com下载。
输出图片的影片剧本:
on ExportCastMember OutFileName
--形参OutFileName为输出图片的路径及文件名
Set CastMemberName = "ExampleImage"
Set ImageExportXtra = new(xtra "RAVIMAGEEXPORT")
--创建RavImageExport xtra的一个新实例
if (objectp(ImageExportXtra) = false) then
put "错误: RavImageExport Xtra 没有安装"
exit
end if
--判断是否创建实例成功
if (RavRegisterImageExport(ImageExportXtra,"BAD-SERIALNUMBER") = #false) then
put "错误: 注册失败"
exit
end if
RavSetProp(ImageExportXtra,#ravJPGUseGrayScale,#true)
RavSetProp(ImageExportXtra,#ravJPGCompressRate,100)
--设置输出jpg格式的图片时的参数
--支持多种输出图片的格式
if (RavSaveCastMemberFromName(ImageExportXtra,CastMemberName,OutFileName) = #false) then
put "错误 " & RavGetProp(ImageExportXtra,#ravLastErrorCodeString)
--输出图片,如果不成功则输出错误信息
end if
ImageExportXtra = 0
--从内存中删除ImageExportXtra实例
end
注:节选自《Director疑难解答百例》
编辑历史:[这消息被mzgjingsi编辑过(编辑时间2002-07-16 16:40:59)]