[TolAlik]

Hi! опробовал описанный выше пример кода и обнаружил, при выборе утройства веб-камеры выскакивает ошибка "External exception с0000008" если выполняется строчка "FilterGraph1.Active := true", а при выборе устройства тв-тюнера работает все отлично.
Вроде все правильно, но понять ни чего не могу...

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  FilterGraph1.ClearGraph;
  FilterGraph1.Active := false;
  //Задаем устройство, с которым будем работать
  Filter1.BaseFilter.Moniker :=VideoDevice.GetMoniker(ComboBox1.ItemIndex);
  FilterGraph1.Active := true;
  //Задаем, что откуда будем получать и куда оно должно выводиться
  with (FilterGraph1 as ICaptureGraphBuilder2) do
    RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter1 as IBaseFilter, SampleGrabber1 as IBaseFilter, VideoWindow1 as IbaseFilter);
  //Производим вывод изображения
  FilterGraph1.Play;
end;