Здравствуйте. У меня возникла проблема с 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 и т.д.
Как можно избавится от этого?