delphi中MediaPlayer播放视频如何截图

[qq_37910553]

请教大神delphi中MediaPlayer播放视频，如何再用按钮的时候截取帧图片以及保存成bmp图像？

[qq_37910553]

初学Delphi，求各位大神指导指导。。。。。。

[xkf1119]

去下載pspack控件包,裡面有個Demo同你想做的一模一樣

[xkf1119]

Sorry,打錯了,是DSPack

[qq_37910553]

没看懂代码，您能帮我解释一下吗？

[lyhoo163]

delphi中MediaPlayer播放视频，功能较多，但不宜细化。如果你要做一个非常修改一个个性化的r播放器。 建议你使用第三方控件DSPack ，它完全可以实现你的要求。

[qq_37910553]

procedure TForm1.BitBtn5Click(Sender: TObject); begin if OpenDialog1.Execute then //打开视频文件 begin MediaPlayer1.Close; MediaPlayer1.FileName:=opendialog1.FileName; MediaPlayer1.Open; MediaPlayer1.Display:=Panel2; MediaPlayer1.DisplayRect:=rect(0,0,Panel2.Width,Panel2.Height); end; end; procedure TForm1.FormCreate(Sender: TObject); begin imgbitmap:=TBitmap.Create; imgbitmap.Height:=Panel2.Width; imgbitmap.Width:=Panel2.Height; imgbitmap.Canvas.Rectangle(0,0,Panel2.Width,Panel2.Height); end; procedure TForm1.PaintBox1Click(Sender: TObject); begin PaintBox1.Canvas.CopyRect(Rect(0,0,Panel2.Width,Panel2.Height),imgbitmap.Canvas,Rect(0,0,Panel2.Width,Panel2.Height)); end; procedure TForm1.BitBtn6Click(Sender: TObject); begin if SavePictureDialog1.Execute then imgbitmap.Canvas.CopyRect(Rect(0,0,Panel2.Width,Panel2.Height),form1.Canvas,Rect(0,0,Panel2.Width,Panel2.Height)); PaintBox1.Invalidate; imgbitmap.SaveToFile:=SavePictureDialog1.FileName; end; 给出的错误提示是： [错误] Unit3.pas(176): Not enough actual parameters 就是上面的 imgbitmap.SaveToFile:=SavePictureDialog1.FileName; 请问这是什么问题？