视频铺捉中我遇到一个问题,就是我下个了MTPlay例子(DSPack控件包做的一个实用程序),该例子只在接摄像头时,才好使,抓图和录象都可以。而当我用SONY的DV,用1394线连接电脑时,就出现预览图象可以,但抓图和录象存成的文件都看不了。不知道为什么?(我用DSPack控件)部分代码如下:有哪位高手能帮我改一下吗?或者谁有这方面的例子给我一个,深表感谢!!!EMAIL:[email protected]
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;
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;
解决方案 »
- 这个简单控件-------请问如何写?
- 请问TNotifyEvent的用法,谢谢
- 刚刚写了一个存储过程,请问如何把这个存储过程里的值用显示到Delphi的Edit里。要用到哪些控件和怎么连接
- 我在网上找到了一个产生MD5号的VB程序,运行后得到一个码:698D51A19D8A121CE581499D7B701668。我不明白的是这个串如何使用。比如我编写
- *******如何将一个Tstringlist的内容截取一部分,写到另一个Tstringlist中去? 急,在线等!!***
- query记录定位!列表框值
- 重金购买股票行情接口服务端和客户端源码
- 如何在TAdvStringGrid类的对象中增加或删除一行?
- 如何控制针式打印机的走纸?
- 请教一个对于高手来说很简单的问题。相当于白送分哦!是一个关于combobox的问题!!!
- Dephi:Game Over?
- 如果截获文件的存储过程并使其转向
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=46722
我和上面网页里版主的问题一样。没有得到答案,请高手继续指点一下。
有这方面成功的例子的代码吗?给我一个好吗?email:[email protected]