J
jin005
Unregistered / Unconfirmed
GUEST, unregistred user!
视频铺捉中我遇到一个问题,就是我下个了MTPlay例子(DSPack控件包做的一个实用程序),该例子只在接摄像头时,才好使,抓图和录象都可以。而当我用SONY的DV,用1394线连接电脑时,就出现预览图象可以,但抓图和录象存成的文件都看不了。不知道为什么?(我用DSPack控件)部分代码如下:有哪位高手能帮我改一下吗?或者谁有这方面的例子给我一个,深表感谢!!!EMAIL:jin005@yeah.net
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, Menus, ImgList, DSPack, DSUtil, DirectShow9, ToolWin, ActnList,jpeg;
procedure Tfrm_Main.A_CaptureExecute(Sender: TObject);//录象
begin
A_Stop.Execute;
if CapFName = '' then
begin
if not SaveDialog1.Execute then Exit;
A_Capture.Checked := True;
CapFName := SaveDialog1.FileName;
end else
begin
A_Capture.Checked := False;
CapFName := '';
end;
A_Play.Execute;
end;
procedure Tfrm_Main.A_BitmapExecute(Sender: TObject);//抓图
var
ABitmap: TBitmap;
// AStream: TMemoryStream;
begin
if not SaveDialog2.Execute then exit;
ABitmap := TBitmap.Create;
// AStream := TMemoryStream.Create;
try
// VideoWindow1.VMRGetBitmap(AStream);
SampleGrabber1.GetBitmap(ABitmap);
// AStream.SaveToFile(SaveDialog2.FileName);
ABitmap.SaveToFile(SaveDialog2.FileName);
finally
// AStream.Free;
ABitmap.Free;
end;
end;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, Menus, ImgList, DSPack, DSUtil, DirectShow9, ToolWin, ActnList,jpeg;
procedure Tfrm_Main.A_CaptureExecute(Sender: TObject);//录象
begin
A_Stop.Execute;
if CapFName = '' then
begin
if not SaveDialog1.Execute then Exit;
A_Capture.Checked := True;
CapFName := SaveDialog1.FileName;
end else
begin
A_Capture.Checked := False;
CapFName := '';
end;
A_Play.Execute;
end;
procedure Tfrm_Main.A_BitmapExecute(Sender: TObject);//抓图
var
ABitmap: TBitmap;
// AStream: TMemoryStream;
begin
if not SaveDialog2.Execute then exit;
ABitmap := TBitmap.Create;
// AStream := TMemoryStream.Create;
try
// VideoWindow1.VMRGetBitmap(AStream);
SampleGrabber1.GetBitmap(ABitmap);
// AStream.SaveToFile(SaveDialog2.FileName);
ABitmap.SaveToFile(SaveDialog2.FileName);
finally
// AStream.Free;
ABitmap.Free;
end;
end;