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;
以上是我的测试代码,但是始终保存不到文件中,请高手指点!