0

DsPackコンポーネントによってビデオファイルからビットマップを取得することは可能ですか？

この場合、私はこのコードを使用しています。しかし、スクリーンショットを撮ることはできません画像：

type
  TForm4 = class(TForm)
    FilterGraph1: TFilterGraph;
    VideoWindow1: TVideoWindow;
    btnPlay: TButton;
    SampleGrabber1: TSampleGrabber;
    btnTakePicture: TButton;
    Image1: TImage;
    procedure btnPlayClick(Sender: TObject);
    procedure btnTakePictureClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

...

procedure TForm4.btnPlayClick(Sender: TObject);
begin
  SampleGrabber1.FilterGraph := FilterGraph1;
  VideoWindow1.FilterGraph := FilterGraph1;
  FilterGraph1.Active := true;
  FilterGraph1.RenderFile('C:\TEMP\1.mp4');
  FilterGraph1.Play;
end;

procedure TForm4.btnTakePictureClick(Sender: TObject);
begin
  SampleGrabber1.GetBitmap(Image1.Picture.Bitmap);
end;

このコードを修正することは可能ですか？

4

1 に答える 1

1

しばらくして、この問題を解決するためのサンプルを見つけました。

「SnapShot.dpr」を使用できます。これは、DsPackコンポーネントとともに配布されたサンプルです。

于 2012-10-15T18:50:03.867 に答える