http://blog.sina.com.cn/s/blog_4c4570d40100e4tf.html

用DELPHI控制FLASH

 (2009-06-25 00:15:05)
转载▼
标签： 

杂谈

  
 
用DELPHI控制FLASH，将每一贞自动转成BMP图，提供重要线索者，分数多多的

如题
控制生成FLASH文件有SWF SDK，控制播放也很简单，找一个OCX导入就行了，生成BMP
不知道除截屏外有没有其他简单办法。
试试
procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  Button1.Enabled := false;
  ShockwaveFlash1.Movie := 'D:\1.swf';
  ShockwaveFlash1.Stop;
  Bmp             := TBitmap.Create;
  Bmp.Width       := ShockwaveFlash1.Width;
  Bmp.Height      := ShockwaveFlash1.Height;
  ShockwaveFlash1.GotoFrame(0);
  while ShockwaveFlash1.CurrentFrame < ShockwaveFlash1.TotalFrames - 1 do
    begin
      Application.ProcessMessages;
      ShockwaveFlash1.PaintTo(Bmp.Canvas, 0, 0);
      Bmp.SaveToFile('D:\1\' + IntToStr(ShockwaveFlash1.CurrentFrame) + '.bmp');
      ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame + 1);
      Sleep(10);
    end;
  Button1.Enabled := true;
  Bmp.Free;
end;