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;
以上是我的测试代码,但是始终保存不到文件中,请高手指点!
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;
以上是我的测试代码,但是始终保存不到文件中,请高手指点!
解决方案 »
- 求助有关 Tlistview 控件 100分相送
- Delphi6安装出现这个错误提示,大家帮忙看看!
- ●●●●为了自己方便,也为大家方便,建立了一个DELPHI程序员QQ群:8194759●●●●
- 下面的有什么问题,帮帮忙,救命呀
- 在windows剪贴板中看不到数据
- 控件开发的一个问题:如何在TreeView中加入一个指向别的控件的属性
- 程序运行好慢用什么办法
- 为什么今天CSDN的速度这么慢呢?大家是否有同感呢?
- 在类中,Public和Published有什么区别?
- 在DBGRID中,对于boolean类型的字段,如果是TRUE则以打钩的形式在DBGRID中显示,如果是false则不显示,请问如何实现??
- 钩子问题.keyhook.dll库文件怎么安装?
- 关于图像显示
f.PaintTo(bitmap.Canvas,0,0);
这个是f与bitmap之间的联系,仔细看看改改测试