請教大神delphi中MediaPlayer播放視頻，如何再用按鈕的時候截取幀圖片以及保存成bmp影像？
uj5u.com熱心網友回復：
初學Delphi，求各位大神指導指導。。。。。。uj5u.com熱心網友回復：
去下載pspack控制元件包,裡面有個Demo同你想做的一模一樣uj5u.com熱心網友回復：
Sorry,打錯了,是DSPackuj5u.com熱心網友回復：
沒看懂代碼，您能幫我解釋一下嗎？uj5u.com熱心網友回復：
delphi中MediaPlayer播放視頻，功能較多，但不宜細化。如果你要做一個非常修改一個個性化的r播放器。建議你使用第三方控制元件DSPack ，它完全可以實作你的要求。
uj5u.com熱心網友回復：
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;
請問這是什么問題？
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/53634.html