W
wtzwtz
Unregistered / Unconfirmed
GUEST, unregistred user!
使用下面的代码可以截取DSPACK组件中VideoWindow1控件播放的视频图像，那么该如何录制VideoWindow1控件中播放的视频和声音呢？（不是录制摄像头或视频卡中的图像，而是录制，播放的本地视频文件或网络视频文件）
procedure TForm1.Button2Click(Sender: TObject);
var
Stream: TMemoryStream;
begin
Stream:= TMemoryStream.Create;
try
if VideoWindow1.VMRGetBitmap(Stream) then
SnapShot.Picture.bitmap.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Stream: TMemoryStream;
begin
Stream:= TMemoryStream.Create;
try
if VideoWindow1.VMRGetBitmap(Stream) then
SnapShot.Picture.bitmap.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;