模拟视频标准对话框答案

【问题标题】：Analog Video Standard dialog模拟视频标准对话框
【发布时间】：2013-07-11 16:31:49
【问题描述】：

我正在创建一个显示视频的程序，为此我使用的是 Delphi 和 directshow。我需要选择视频输入格式（NTSC、PAL、SECAM）。有一个对话框可让您进行此选择，但我不知道如何使用 delphi 或 c+ 和 directshow 显示它。显示让您选择模拟视频标准的对话框的过程是什么？

谢谢！

【问题讨论】：

能给我们截图吗？
您将了解如何在 AMCAP 源代码msdn.microsoft.com/en-us/library/windows/desktop/… 中显示您的输入设备配置对话框
大卫，对话是这个azcendant.com/images/EasyCapProperties.jpg
截图上的这个对话框不是标准的。它由屏幕截图中提到的此硬件的供应商 (EasyCap) 提供。您可以选择 1 显示对象报告的属性页 2 显示特定页面（不保证它们甚至适用于此对象）3 显示您自己的 UI 包装这些设置。
我正在使用这个例子选择视频输入 // 选择视频源 TMainForm.VideoCapFiltersClick 过程 (Sender: TObject); var PinList: TPinList; i：整数；开始 CapEnum.SelectGUIDCategory (CLSID_VideoInputDeviceCategory);如果 VideoCapFilters.ItemIndex -1 然后开始 VideoSourceFilter.BaseFilter.Moniker: = CapEnum.GetMoniker (VideoCapFilters.ItemIndex); ... ...

标签： c++ delphi directshow video-capture mci

【解决方案1】：

function DisplayPropertyFrame(Filter: IBaseFilter; Handle: THandle): HResult;
var
  PropertyPages: ISpecifyPropertyPages;
  Pages: CAUUID;
  FilterInfo: TFilterInfo;
  pfilterUnk: IUnknown;
begin
  Result := E_FAIL;

  if Filter = NIL then EXIT;

  Result := Filter.QueryInterface(ISpecifyPropertyPages, PropertyPages);

  if (SUCCEEDED(Result)) then
  begin
    Filter.QueryFilterInfo(FilterInfo);
    Filter.QueryInterface(IUnknown, pfilterUnk);

    PropertyPages.GetPages(Pages);
    PropertyPages := NIL;

    OleCreatePropertyFrame(
       Handle,                 
       0,
       0,                   
       FilterInfo.achName,     
       1,                      
       @pfilterUnk,            
       Pages.cElems,           
       Pages.pElems,           
       0,                      
       0,
       NIL                  
    );

    pfilterUnk := NIL;
    FilterInfo.pGraph := NIL;
    CoTaskMemFree(Pages.pElems);
  end;
end;

function DisplayVideoCaptureDeviceProperty( Handle: THandle): HResult;
begin
  Result := DisplayPropertyFrame(VideoCaptureFilter, Handle);
end;

【讨论】：