你先试一下 vfw 就这么回事。 应当没什么问题。
var
m_hCapWnd :HWND;
begin
try
m_hCapWnd:=capCreateCaptureWindow('视频捕捉测试程序',
WS_CHILD+WS_VISIBLE+WS_EX_CLIENTEDGE+
WS_EX_DLGMODALFRAME,0,0,PanelAvi.Width,PanelAvi.Height,PanelAvi.Handle,0);
//PanelAvi 为你要显示图像的panel
if (capDriverConnect(m_hCapWnd,0)) then
begin
// capOverlay(m_hCapWnd,true);
//千万不要用overlay方式 扑捉卡支持, 但Usb摄像头基本上不支持。
CapPreviewRate(m_hCapWnd,26); //速率不要设置太大。20-30之间最好。
CapPreview(m_hCapWnd,true);
end;
except
ShowMessage('视频摄像头初始化错误');
end;
end;