在线急等~关于视频捕获(100分)

  • 主题发起人 主题发起人 yxgszm
  • 开始时间 开始时间
Y

yxgszm

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟用VFW软件包做了一个视频捕获程序,视频已成功预览,但是在视频保存的时候要出问题
程序如下:
procedure TForm1.BtnPlayClick(Sender: TObject);
begin

// Start CAP - Video
CapSetVideoArea( Video );
//.创建捕获窗口
CapSetInfoLabel( VideoLabel );
//创建激活信息
//capSetCallbackOnVideoStream(ghCapWnd,Longint(PChar(Mem)));
if CapOpenDriver then
//如果能连接上
begin

CapSetCapSec( 15 * 3 );
CapStart;
//保存AVI文件在本地
CapShow;
//预览
end;

end;

执行过程中没出现问题,在整个过程执行完毕后出现异常:
application-defined exception(code0x0eedfade) at 0x77e4d756
如果注释掉CapStart后,程序不会出错,错误就出在CapStart,但是单步跟踪Capstar发现没有问题,只是整个过程执行完毕后弹出异常。有这方面开发经验的师兄一定要帮帮我啊,小弟已经郁闷得快不行了。
注:引用了两个单元,AviCap和VideoCap,AviCap实现消息发送宏定义,VideoCap实现宏的引用,并完成相关功能。
 
自己搞定了!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
581
import
I
后退
顶部