Захват видео

[vasya2895]

Здравствуйте. Делаю работу по захвату видео с вебкамеры, написал програму для захвата видео с веб камеры столкнулся с проблемой:
Есть программа, на форме которой есть Listbox1 со списком устройств. В ListBox1 нормально выводится список камер, проблем нет, проблема на следующем участке кода:

procedure TForm1.ListBox1Click(Sender: TObject);
var
hr:HRESULT;
begin
CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC, IID_IGraphBuilder, pGraphBuilder);
CoCreateInstance(CLSID_CaptureGraph Builder2, nil, CLSCTX_INPROC, IID_ICaptureGraphBuilder2, pCaptureGraphBuilder2);
CoCreateInstance(CLSID_CAM, nil, CLSCTX_INPROC, IID_IBaseFilter, pVideoCaptureFilter);
pGraphBuilder.AddFilter(pVideoCaptu reFilter, 'VideoCaptureFilter');
pCaptureGraphBuilder2.SetFiltergrap h(pGraphBuilder);
MArray[ListBox1.ItemIndex].BindToObject(nil, nil, IID_IBaseFilter, pVideoCaptureFilter);

hr:=pCaptureGraphBuilder2.RenderStr eam(nil, nil, pVideoCaptureFilter, nil, nil);
If FAILED(hr) then begin ShowMessage('error render'); end;

На предпоследней строчке пишет ошибку EExternalException C0000008, что делать??? Помогите пожалуйста.
(MArray: Array of IMoniker; как вы понимаете MArray[ListBox1.ItemIndex] - выбраное мной в списке устройство))

[vasya2895]

Я использовал Спецификацию COM и DirectShow9 если не сложно подскажите как в итоге не просто отображать видео а еще и получать отдельные калры и сохранять из или сохранять все видео.

[raxp]

вот и добавьте при построении графа прослойку ISampleGrabber, будут вам кадры ...пользуйтесь поиском по форуму хотя-бы, если к гуглю отвращение >> тырк.

[vasya2895]

Спасибу, попробую, но все таки хотелось бы разобраться с этой ошибкой, почему она появляется???
Скачал отсюда проект http://ignatiev.su/blog/posts/webcam-borlanddelphi-7 он тоже выдает EExternalException C0000008