4. DSPack抓帧

在例子PlayVideoCap中,还有抓帧和回放的功能。这用到第4个控件TSampleGrabber。

我们以前两个例子为基础,增加抓帧的功能。
打开前面的例子,然后:

1. 在DSPack中选择TSampleGrabber控件,放到窗口上。然后将其FilterGraph属性设置为FilterGraph1。
2. 在选择一个标准控件TImage(在Additional页签中),放在窗口上。
3.讲一个没用的按钮的Caption改为“Snapshot”,在它的OnClick事件中写:
SampleGrabber1.GetBitmap(Image1.Picture.Bitmap);

前面两个例子都可以这样增加抓帧功能。不过,对于第二个例子(即操作摄像头的例子),需要做额外的修改,就是:

    RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, nil, VideoWindow as IbaseFilter);
改为
    RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);

这样就可以了

 

转载于:https://www.cnblogs.com/zhusd/archive/2010/06/18/1760136.html

安装 1 增加搜索路径 (DSPackDir)\src\DirectX9 和 (DSPackDir)\src\DSPack 在delphi7中选择菜单【Tools】-【Enviroment Options】,在打开的窗口中选择Library页签,在Library Path一项中添加这两个目录C:\Borland\VCL\DSPACK234\src\Directx9 ;C:\Borland\VCL\DSPACK234\src\DSPack (将其直接粘贴在原有内容的后面,或者点击Library Path后面的...按钮添加) 2 编译 (DSPackDir)\packages\DirectX9_D7.dpk 双击(DSPackDir)\packages\DirectX9_D7.dpk,在delphi7中会显示一个关于重新创建资源文件的对话框,点击OK就可以了。 在delphi7中的打开窗口中点击compile按钮,完成编译。 在delphi7中选择菜单【File】-【Close All】,在提问是否保存时,选择保存。 3 编译 (DSPackDir)\packages\DSPack_D7.dpk 双击(DSPackDir)\packages\DSPack_D7.dpk,在delphi7中会显示一个关于重新创建资源文件的对话框,点击OK就可以了。 在delphi7中的打开窗口中,点击compile按钮,完成编译。 在delphi7中选择菜单【File】-【Close All】,在提问是否保存时,选择保存。 4 编译并安装 (DSPackDir)\packages\DSPackDesign_D7.dpk 双击(DSPackDir)\packages\DSPackDesign_D7.dpk,在delphi7中会显示一个关于重新创建资源文件的对话框,点击OK就可以了。 在delphi7中的打开窗口中,点击compile按钮,完成编译。 点击Install按钮,完成安装。 在delphi7中选择菜单【File】-【Close All】,在提问是否保存时,选择保存。 至此,安装已完成,在delphi的控件面板上可以找到DSPack的页签了。 如果在Delphi5或6中安装,则选择对应的D5或D6的文件。 (安装过程中遇到了一个编译错误,说找不到Jedi.inc。这个文件在src\Directx9目录下,为什么不能搜索。原来文档里写的路径是 (DSPackDir)\src\Directx9,而实际解压缩出来的目录名是DirectX9,所以添加搜索路径的时候一定要注意这个问题。把x改成X后,编译就通过了)
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值