开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Editor.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：10k
源码类别：

Delphi控件源码

开发平台：

Delphi

Editor.pas：源码内容
  1. unit Editor;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, DSUTIL, DirectShow9, ComCtrls, DSPack, Menus, BaseFilterEditor;
  9. type
  10.   TFormEditor = class(TForm)
  11.     PageControl1: TPageControl;
  12.     Selector: TTabSheet;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     cbCategories: TComboBox;
  16.     lbFilters: TListBox;
  17.     Interfaces: TListBox;
  18.     Label3: TLabel;
  19.     FilterGraph: TFilterGraph;
  20.     Filter: TFilter;
  21.     Pins: TTabSheet;
  22.     lbPins: TListBox;
  23.     Label4: TLabel;
  24.     PinInterfaces: TListBox;
  25.     Label5: TLabel;
  26.     MediaTypes: TListBox;
  27.     PopupMenu: TPopupMenu;
  28.     PropertyPage: TMenuItem;
  29.     VFWDisplay: TMenuItem;
  30.     VFWFormat: TMenuItem;
  31.     VFWSource: TMenuItem;
  32.     VFWConfig: TMenuItem;
  33.     VFWCapture: TMenuItem;
  34.     Config1: TMenuItem;
  35.     VFWAbout: TMenuItem;
  36.     PinMenu: TPopupMenu;
  37.     PinProperty: TMenuItem;
  38.     procedure cbCategoriesChange(Sender: TObject);
  39.     procedure lbFiltersClick(Sender: TObject);
  40.     procedure FormShow(Sender: TObject);
  41.     procedure PinsShow(Sender: TObject);
  42.     procedure lbPinsClick(Sender: TObject);
  43.     procedure InterfacesDblClick(Sender: TObject);
  44.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  45.     procedure PinInterfacesDblClick(Sender: TObject);
  46.     procedure PopupMenuPopup(Sender: TObject);
  47.     procedure PropertyPageClick(Sender: TObject);
  48.     procedure VFWDisplayClick(Sender: TObject);
  49.     procedure VFWFormatClick(Sender: TObject);
  50.     procedure VFWSourceClick(Sender: TObject);
  51.     procedure Config1Click(Sender: TObject);
  52.     procedure VFWAboutClick(Sender: TObject);
  53.     procedure PinMenuPopup(Sender: TObject);
  54.     procedure PinPropertyClick(Sender: TObject);
  55.   public
  56.     SysDevEnum: TSysDevEnum;
  57.     PinList: TPinList;
  58.     constructor Create(AOwner: TComponent); override;
  59.     destructor  Destroy; override;
  60.     procedure FindFilterInterfaces;
  61.   end;
  63.   TDSitf = record
  64.     name : string;
  65.     itf  : TGUID;
  66.   end;
  69. var
  70.   FormEditor: TFormEditor;
  73. implementation
  74. uses activex, comobj;
  76. {$R *.dfm}
  78.   constructor TFormEditor.Create(AOwner: TComponent);
  79.   begin
  80.     inherited Create(AOwner);
  81.     SysDevEnum := TSysDevEnum.Create;
  82.     PinList:= TPinList.Create;
  83.   end;
  85.   destructor  TFormEditor.Destroy;
  86.   begin
  87.     SysDevEnum.Free;
  88.     PinList.Free;
  89.     inherited destroy;
  90.   end;
  92.   procedure TFormEditor.cbCategoriesChange(Sender: TObject);
  93.   var i: integer;
  94.   begin
  95.     lbFilters.Clear;
  96.     Interfaces.Clear;
  97.     SysDevEnum.SelectIndexCategory(cbCategories.ItemIndex);
  98.     if SysDevEnum.CountFilters > 0 then
  99.       for i := 0 to SysDevEnum.CountFilters - 1 do
  100.         lbFilters.Items.Add(SysDevEnum.Filters[i].FriendlyName);
  101.   end;
  103.   procedure TFormEditor.lbFiltersClick(Sender: TObject);
  104.   begin
  105.     Filter.BaseFilter.Moniker := SysDevEnum.GetMoniker(lbFilters.ItemIndex);
  106.     IFilter(Filter).NotifyFilter(foRefresh);
  107.     FindFilterInterfaces;
  108.   end;
  110.   procedure TFormEditor.FormShow(Sender: TObject);
  111.   var
  112.     i, j: integer;
  113.     AMoniker, MyMoniker: IMoniker;
  114.     PropBag: IPropertyBag;
  115.     AVariant: OleVariant;
  116.     CLSID: TGUID;
  117.     Found: boolean;
  118.   begin
  119.     for i := 0 to SysDevEnum.CountCategories - 1 do
  120.       cbCategories.Items.Add(SysDevEnum.Categories[i].FriendlyName);
  121.     Found := false;
  122.     j := 0;
  123.     MyMoniker := Filter.BaseFilter.Moniker;
  124.     if MyMoniker = nil then exit;
  125.     MyMoniker.BindToStorage(nil,nil,IPropertyBag, PropBag);
  126.     if PropBag.Read('CLSID',AVariant,nil) = S_OK then
  127.          CLSID := StringToGUID(AVariant)
  128.     else CLSID := GUID_NULL;
  129.     for i := 0 to SysDevEnum.CountCategories - 1 do
  130.     begin
  131.       SysDevEnum.SelectIndexCategory(i);
  132.       if SysDevEnum.CountFilters > 0 then
  133.         for j := 0 to SysDevEnum.CountFilters - 1 do
  134.         begin
  135.           if IsEqualGUID(CLSID, SysDevEnum.Filters[j].CLSID) then
  136.             begin
  137.               AMoniker := SysDevEnum.GetMoniker(j);
  138.               Found := AMoniker.IsEqual(MyMoniker) = S_OK;
  139.               AMoniker := nil;
  140.             end;
  141.           if Found then Break;
  142.         end;
  143.       if Found then
  144.       begin
  145.         cbCategories.ItemIndex := i;
  146.         cbCategoriesChange(nil);
  147.         lbFilters.ItemIndex := j;
  148.         lbFiltersClick(nil);
  149.         break;
  150.       end;
  151.     end;
  152.     PropBag := nil;
  153.     MyMoniker := nil;
  154.   end;
  156. procedure TFormEditor.FindFilterInterfaces;
  157. var
  158.   i: integer;
  159.   unk: IUnknown;
  160. begin
  161.   Interfaces.Clear;
  162.   if lbFilters.ItemIndex <> -1 then
  163.   try
  164.     with Filter.BaseFilter.CreateFilter do
  165.       for i := 0 to length(DSItfs)-1 do
  166.         if Succeeded(QueryInterface(DSItfs[i].itf, unk)) then
  167.           Interfaces.Items.Add(DSItfs[i].name);
  168.   finally
  169.     unk := nil;
  170.   end
  171. end;
  173. procedure TFormEditor.PinsShow(Sender: TObject);
  174. var
  175.   i: integer;
  176.   PinInfo: TPinInfo;
  177.   BaseF: IBaseFilter;
  178. begin
  179.   lbPins.Clear;
  180.   PinInterfaces.Clear;
  181.   MediaTypes.Clear;
  182.   if Succeeded(Filter.QueryInterface(IBaseFilter, BaseF)) then
  183.   begin
  184.     PinList.Assign(BaseF);
  185.     if PinList.Count > 0 then
  186.       for i := 0 to PinList.Count - 1 do
  187.       begin
  188.         PinInfo := PinList.PinInfo[i];
  189.         case PinInfo.dir of
  190.           PINDIR_INPUT  : lbPins.Items.Add(format('%s (input)',[PinInfo.achName]));
  191.           PINDIR_OUTPUT : lbPins.Items.Add(format('%s (output)',[PinInfo.achName]));
  192.         end;
  193.         PinInfo.pFilter := nil;
  194.       end;
  195.     BaseF := nil;
  196.   end;
  198. end;
  200. procedure TFormEditor.lbPinsClick(Sender: TObject);
  201. var
  202.   i: integer;
  203.   unk: IUnknown;
  204.   EnumMT : TEnumMediaType;
  205. begin
  206.   PinInterfaces.Clear;
  207.   if lbPins.ItemIndex <> -1 then
  208.   try
  209.     with PinList.Items[lbPins.ItemIndex] do
  210.       for i := 0 to length(DSItfs)-1 do
  211.         if Succeeded(QueryInterface(DSItfs[i].itf, unk)) then
  212.           PinInterfaces.Items.Add(DSItfs[i].name);
  213.   finally
  214.     unk := nil;
  215.   end;
  217.   MediaTypes.Clear;
  218.   if lbPins.ItemIndex <> -1 then
  219.   begin
  220.     EnumMT:= TEnumMediaType.Create(PinList.Items[lbPins.ItemIndex]);
  221.     try
  222.       if EnumMT.Count > 0 then
  223.         for i := 0 to EnumMT.Count - 1 do
  224.           MediaTypes.Items.Add(EnumMt.MediaDescription[i]);
  225.     finally
  226.       EnumMT.Free;
  227.     end;
  228.   end;
  230. end;
  232. procedure TFormEditor.InterfacesDblClick(Sender: TObject);
  233. var AFilter: IBaseFilter;
  234. begin
  235.   Filter.QueryInterface(IBaseFilter, AFilter);
  236.   if Interfaces.ItemIndex <> -1 then
  237.   if Interfaces.Items.Strings[Interfaces.ItemIndex] = 'ISpecifyPropertyPages' then
  238.     ShowFilterPropertyPage(Self.Handle, AFilter);
  239.   AFilter := nil;
  240. end;
  242. procedure TFormEditor.FormCloseQuery(Sender: TObject;
  243.   var CanClose: Boolean);
  244. begin
  245.   FilterGraph.ClearGraph;
  246.   FilterGraph.Active := false;
  247. end;
  250. procedure TFormEditor.PinInterfacesDblClick(Sender: TObject);
  251. begin
  252.   if PinInterfaces.ItemIndex <> -1 then
  253.   if PinInterfaces.Items.Strings[PinInterfaces.ItemIndex] = 'ISpecifyPropertyPages' then
  254.     ShowPinPropertyPage(Self.Handle, PinList.Items[lbPins.ItemIndex]);
  255. end;
  257. procedure TFormEditor.PopupMenuPopup(Sender: TObject);
  258. var AFilter: IBaseFilter;
  259. begin
  260.   Filter.QueryInterface(IBaseFilter, AFilter);
  261.   PopupMenu.Items.Items[0].Enabled := false;
  262.   PopupMenu.Items.Items[1].Items[0].Enabled := false;
  263.   PopupMenu.Items.Items[1].Items[1].Enabled := false;
  264.   PopupMenu.Items.Items[1].Items[2].Enabled := false;
  265.   PopupMenu.Items.Items[2].Items[0].Enabled := false;
  266.   PopupMenu.Items.Items[2].Items[1].Enabled := false;
  267.   if lbFilters.ItemIndex = -1 then exit;
  268.   if HaveFilterPropertyPage(AFilter, ppDefault)       then PopupMenu.Items.Items[0].Enabled := true;
  269.   if HaveFilterPropertyPage(AFilter, ppVFWCapFormat)  then PopupMenu.Items.Items[1].Items[0].Enabled := true;
  270.   if HaveFilterPropertyPage(AFilter, ppVFWCapSource)  then PopupMenu.Items.Items[1].Items[1].Enabled := true;
  271.   if HaveFilterPropertyPage(AFilter, ppVFWCapDisplay) then PopupMenu.Items.Items[1].Items[2].Enabled := true;
  272.   if HaveFilterPropertyPage(AFilter, ppVFWCompConfig) then PopupMenu.Items.Items[2].Items[0].Enabled := true;
  273.   if HaveFilterPropertyPage(AFilter, ppVFWCompAbout)  then PopupMenu.Items.Items[2].Items[1].Enabled := true;
  274.   AFilter := nil;
  275. end;
  277. procedure TFormEditor.PropertyPageClick(Sender: TObject);
  278. var AFilter: IBaseFilter;
  279. begin
  280.   Filter.QueryInterface(IBaseFilter, AFilter);
  281.   ShowFilterPropertyPage(Self.Handle, AFilter, ppDefault);
  282.   AFilter := nil;
  283. end;
  285. procedure TFormEditor.VFWDisplayClick(Sender: TObject);
  286. var AFilter: IBaseFilter;
  287. begin
  288.   Filter.QueryInterface(IBaseFilter, AFilter);
  289.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCapDisplay);
  290.   AFilter := nil;
  291. end;
  293. procedure TFormEditor.VFWFormatClick(Sender: TObject);
  294. var AFilter: IBaseFilter;
  295. begin
  296.   Filter.QueryInterface(IBaseFilter, AFilter);
  297.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCapFormat);
  298.   AFilter := nil;
  299. end;
  301. procedure TFormEditor.VFWSourceClick(Sender: TObject);
  302. var AFilter: IBaseFilter;
  303. begin
  304.   Filter.QueryInterface(IBaseFilter, AFilter);
  305.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCapSource);
  306.   AFilter := nil;
  307. end;
  309. procedure TFormEditor.Config1Click(Sender: TObject);
  310. var AFilter: IBaseFilter;
  311. begin
  312.   Filter.QueryInterface(IBaseFilter, AFilter);
  313.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCompConfig);
  314.   AFilter := nil;
  315. end;
  317. procedure TFormEditor.VFWAboutClick(Sender: TObject);
  318. var AFilter: IBaseFilter;
  319. begin
  320.   Filter.QueryInterface(IBaseFilter, AFilter);
  321.   ShowFilterPropertyPage(Self.Handle, AFilter, ppVFWCompAbout);
  322.   AFilter := nil;
  323. end;
  325. procedure TFormEditor.PinMenuPopup(Sender: TObject);
  326. begin
  327.   if lbPins.ItemIndex = -1 then abort;
  328. end;
  330. procedure TFormEditor.PinPropertyClick(Sender: TObject);
  331. begin
  332.   ShowPinPropertyPage(Self.Handle, PinList.Items[lbPins.ItemIndex]);
  333. end;
  335. end.