что такое TSysDevEnum

[ubun]

Написал программку детектор движения на Delphi
при запуске выдает ошибку Undeclared identifier: 'TSysDevEnum'

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DSPack;
type
  TForm1 = class(TForm)
    FilterGraph1: TFilterGraph;
    VideoWindow1: TVideoWindow;
    Filter1: TFilter;
    SampleGrabber1: TSampleGrabber;
    ComboBox1: TComboBox;
    ButtonStopPlay: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ButtonStopPlayClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  VideoDevice: TSysDevEnum;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
VideoDevice:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if VideoDevice.CountFilters > 0 then
for i := 0 to VideoDevice.CountFilters - 1 do
ComboBox1.Items.Add(VideoDevice.Filters[i].FriendlyName);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
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, SampleGrabber1 as IBaseFilter, VideoWindow1 as IbaseFilter);
//Производим вывод изображения
FilterGraph.Play;
ButtonStopPlay.Enabled:=True;
end;

procedure TForm1.ButtonStopPlayClick(Sender: TObject);
begin
if ButtonStopPlay.Caption='Смотреть видео' then
begin
FilterGraph.Play;
ButtonStopPlay.Caption:='Остановить видео';
end
else
begin
FilterGraph.Stop;
ButtonStopPlay.Caption:='Смотреть видео';
end;

end.

У нас принято оформлять код тегом # !!!

[raxp]

Написал программку детектор движения на Delphi

чавой-то знакомый код и комментарии ...насчет "написал", ведь погорячился ?

Undeclared identifier: 'TSysDevEnum'

...класс TSysDevEnum находится в модуле dsUtil.

[ubun]

спасибо!
а что такое dsUtil, и где его взять?

извиняюсь за слово "написал", и вправду не я это написал, но некоторое добавил сам

[artemavd]

чавой-то знакомый код и комментарии ...насчет "написал", ведь погорячился ?

Потом некоторые подобные пользователи говорят про себя: "Я крутой программист!"