Показать сообщение отдельно
  #1  
Старый 20.01.2011, 12:08
Godod Godod вне форума
Прохожий
 
Регистрация: 23.11.2010
Сообщения: 7
Репутация: 10
По умолчанию FilterGraph и Delphi

Здравствуйте. У меня возникла проблема с FilterGraph в delphi 2007(code gear). В общем при объявлении используемых компонентов все нормально, delphi не ругается. Вот код:
Код:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DSPack,DSUtil, ComCtrls, Spin,DirectShow9,
  Grids, ValEdit, DBGrids, Menus, ActnList,ComObj, CoolTrayIcon,
  Inifiles;

Но когда при компиляции доходит до:
Код:
procedure TForm1.OnSelectDevice;
begin
  FilterGraph.ClearGraph;
  FilterGraph.Active := false;
  Filter1.BaseFilter.Moniker := VideoDevice.GetMoniker(Combobox1.ItemIndex);
  FilterGraph.Active := true;
  with FilterGraph as ICaptureGraphBuilder2 do
    RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter1 as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);
  FilterGraph.Play;
end;

delphi выдает много ошибок, что ему неизвестен идентификатор FilterGraph,Filter1 и т.д.
Как можно избавится от этого?
Ответить с цитированием