(急!急!急)dspack控件处理视频抓图,录象方面的问题??? ( 积分: 20 )

  • 主题发起人 主题发起人 jin005
  • 开始时间 开始时间
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;
 
视频铺捉中我遇到一个问题,就是我下个了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;
 
有哪位高手指点一下啊,小弟甚急啊,要不工作完成不了了,该下岗了[:(]
 
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=46722
我和上面网页里版主的问题一样。没有得到答案,请高手继续指点一下。
 
小弟用过网络上各种抓影象的范例程序,都只有一种现象,就是看到的都是webcam(摄像头)的影象,而DV,1394线,采集卡所输出的影象(即存成的avi文件)却是一片黑
有这方面成功的例子的代码吗?给我一个好吗?email:jin005@yeah.net
 
可能没有安装合适的编/解码器,就像我们有时候看电影时,有声音,没有图像.如果安装了合适的Filter ,应该没有问题的.

关于例子,我没有DV,没有办法了.

Dspack 包装了DirectShow 的方方面面,而且DirectShow 对不同的硬件,只要有不同的Filter就可以了.对硬件适应性应该比较好的
 
我想可能也是这个问题,不过我现在安装了编码(就是装上暴风影音),但还是不好使,可能是我不会加入这个filter的编码。请看下面的网址:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3145747
 
后退
顶部