关于动态创建flash控件的问题,无法保存图片
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;
以上是我的测试代码,但是始终保存不到文件中,请高手指点!