关于动态创建flash控件的问题,无法保存图片

mxm8547 2008-11-21 03:44:57
procedure TForm1.Button5Click(Sender: TObject);
var
f:TShockWaveFlash;
bitmap:TBitMap;
begin
f:=TShockWaveFlash.Create(self);
f.Visible:=true;
f.Width:=500;
f.Height:=500;
f.Top:=400;
f.Left:=500;
F.Parent:=Self;//在本窗口播放.
f.Movie:='D:\Downloads\FusionCharts\ColumN3D\Column3D.swf';
f.SetVariable('dataurl','D:\Downloads\FusionCharts\ColumN3D\1.xml');
bitmap:=TBitMap.Create;
try
bitmap.PixelFormat:=pf32bit;
bitmap.Width:=f.Width;
bitmap.Height:=f.Height;
f.GotoFrame(f.TotalFrames);
f.PaintTo(bitmap.Canvas,0,0);
bitmap.SaveToFile('c:\5.jpg');//文件一直为空的,根本没有图像
finally
bitmap.Free;
end;
end;
以上是我的测试代码,但是始终保存不到文件中,请高手指点!
...全文
128 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
mxm8547 2008-11-26
  • 打赏
  • 举报
回复
总算自己搞懂了这个问题,是因为播放后紧接着去截屏的时候xml的内容还没有载入进来有一点延迟,所以保存不了。
panrongzeng 2008-11-25
  • 打赏
  • 举报
回复
不太懂flash,
f.PaintTo(bitmap.Canvas,0,0);
这个是f与bitmap之间的联系,仔细看看改改测试
ZKM_ZHANG 2008-11-25
  • 打赏
  • 举报
回复
接分

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧