要通过API,直接对DC getdc(flash.Handle) 进行操作
1. 获得Flash中当前播放的图像
procedure TForm1.Button4Click(Sender: TObject);
var
c:TCanvas;
b:TBitmap;
w,h:integer;
begin
b:=TBitmap.Create ;
c:=TCanvas.Create ;
c.Handle:=getdc(flash.Handle);
w:=flash.width;
h:=flash.height;
b.Width :=w;
b.height :=h;
//在 Form 中看
//image1.width:=W;
//image1.Height:=h;
//image1.Canvas.CopyRect(Rect(0,0,w,h),c,Rect(0,00,w,h));
//保存在文件中
b.Canvas.CopyRect(Rect(0,0,w,h),c,Rect(0,00,w,h));
b.SaveToFile('d:/dd.bmp');
c.free;
b.free;
end;