1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
begin
CapWnd := capCreateCaptureWindow('viewwindow', WS_VISIBLE or WS_CHILD,
0, //X坐标
0, //Y坐标
panel1.Width, //窗口宽
panel1.Height, //窗口高
panel1.handle, //窗口句柄
0); //通常为0
if CapWnd = 0 then exit;
CapSetCallbackOnFrame(CapWnd,FrameCallBack);<--
这里替换为:
//--------------------
CapCaptureSequenceNoFile(capWnd);
capSetCallbackOnVideoStream(CapWnd,FrameCallBack);<--这个函数执行了,可是不执行“FrameCallBack”
//--------------------
CapParms.dwRequestMicroSecPerFrame:=1;
CapParms.fLimitEnabled:=FALSE;
CapParms.fCaptureAudio:=FALSE;
CapParms.fMCIControl:=FALSE;
CapParms.fYield:=TRUE;
CapParms.vKeyAbort:=VK_ESCAPE;
CapParms.fAbortLeftMouse:=False;
CapParms.fAbortRightMouse:=FALSE;
CapCaptureSetSetup(capWnd,@CapParms,sizeof(TCAPTUREPARMS));
CapPreviewRate(capWnd,33);
CapCaptureSequenceNoFile(capWnd);
CapDriverConnect(CapWnd,0);
capGetVideoFormat(capWnd, @BMPINFO,sizeof(TBitmapInfo));
CapPreviewScale(capWnd,TRUE);
CapOverlay(capWnd,true);
CapPreview(capWnd,true);
CapCaptureSequenceNoFile(CapWnd);
end;