unit1.pas

摄像头视频捕捉程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, dspack, comobj,
  StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Form1: TForm1;
  DSSysDevEnum : TDSSysDevEnum;

implementation

{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  DSSysDevEnum := TDSSysDevEnum.Create;
  for i := 0 to (DSSysDevEnum.CountCategories-1) do
  begin
       Listbox1.Items.Add(DSSysDevEnum.Categories[i].FriendlyName);
  end;
  label1.Caption := inttostr(DSSysDevEnum.CountCategories)+ ' cat間ories';
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var i: integer;
begin
  Listbox2.Clear;
  DSSysDevEnum.SelectIndexCategory(listbox1.ItemIndex);
  for i := 0 to (DSSysDevEnum.CountFilters-1) do
  begin
       Listbox2.Items.Add(DSSysDevEnum.Filters[i].FriendlyName);
  end;
  label2.Caption := inttostr(DSSysDevEnum.CountFilters)+ ' filters';
end;

end.