K
Kenky
Unregistered / Unconfirmed
GUEST, unregistred user!
本人正在做一个与视频采集有关的系统,采用了 德加拉 MPEG-4 AVE6000L 系列音视频同步压缩卡。由于卡子是很新的型号,所以配套的Delphi示例程序还没有,光有VC的。
我第一次跟视频采集卡打交道,所以没有什么经验,按照VC的例子在delphi6中做了相应的变量声名、函数定义,然后把初始化卡子的操作过程照着VC的样子搬过来,但是却报错,Delphi也一如既往的没什么有用的提示。。。希望有过开发经验的DX帮帮我!
下面是从VC搬过来的,很简单几句。函数都已定义好,编译没问题。
//在窗体载入时打开卡子,返回卡号
procedure TForm1.FormCreate(Sender: TObject);
begin
m_lHandle := AVE6KLIB_OpenCard(1);//执行通过,返回卡号
end;
//点击开始按钮开始捕获图象
procedure TForm1.Button1Click(Sender: TObject);
var
Para : PAVE6KLIB_DISPLAY_PARAMETER;
nOverlayMode : Integer;
dispRect : TRect;
begin
AVE6KLIB_ReleaseScreen(); //执行通过
nOverlayMode:=AVE6KLIB_SCREEN_OVERLAY;
AVE6KLIB_PrepareScreen(Para, nOverlayMode);//报错!Access Violation...之类的错误
AVE6KLIB_SetDisplayPara(m_lHandle, Para);
dispRect := Panel1.ClientRect;
AVE6KLIB_SetOverlayWindow(m_lHandle, 0, dispRect, TRUE);
end;
哪位大侠能给点提示,多谢啦!
如果分数不够,可以再加!
我第一次跟视频采集卡打交道,所以没有什么经验,按照VC的例子在delphi6中做了相应的变量声名、函数定义,然后把初始化卡子的操作过程照着VC的样子搬过来,但是却报错,Delphi也一如既往的没什么有用的提示。。。希望有过开发经验的DX帮帮我!
下面是从VC搬过来的,很简单几句。函数都已定义好,编译没问题。
//在窗体载入时打开卡子,返回卡号
procedure TForm1.FormCreate(Sender: TObject);
begin
m_lHandle := AVE6KLIB_OpenCard(1);//执行通过,返回卡号
end;
//点击开始按钮开始捕获图象
procedure TForm1.Button1Click(Sender: TObject);
var
Para : PAVE6KLIB_DISPLAY_PARAMETER;
nOverlayMode : Integer;
dispRect : TRect;
begin
AVE6KLIB_ReleaseScreen(); //执行通过
nOverlayMode:=AVE6KLIB_SCREEN_OVERLAY;
AVE6KLIB_PrepareScreen(Para, nOverlayMode);//报错!Access Violation...之类的错误
AVE6KLIB_SetDisplayPara(m_lHandle, Para);
dispRect := Panel1.ClientRect;
AVE6KLIB_SetOverlayWindow(m_lHandle, 0, dispRect, TRUE);
end;
哪位大侠能给点提示,多谢啦!
如果分数不够,可以再加!