3

DSpack 有示例代码来播放兼容 DirectShow 的视频设备并同时捕获视频帧。TVideoWindow 附加到 FilterGraph 以显示视频 (Firgure-1)。如果您删除 TVideoWindow，那么操作系统 (Windows) 将自动调出 ActiveMovie 并在单独的窗口中显示视频（图 2）。

有没有办法使用 DSPack 在不使用任何 GUI 组件且不显示视频的情况下捕获视频帧？

DSPack 论坛有一些关于 NullRenderer 过滤器的提及，但没有关于如何使用它的文档或示例。看起来我们可以通过直接在 GraphEdit 中手动将 Video Renderer 替换为 Null Render 来实现（图 3）。

我们如何通过在代码中进行所有操作来获得图 3 所示的结果？DSPack 没有解释如何创建 Null Renderer。

Figure-1: The graph of the default example code

图1

Figure-2: Shows what happens if I remove the TVideoWindow

图 2

Figure-3: Shows what happens if I replace Video Renderer with a 
         Null Renderer and manually connect them in the GraphEdit.

图-3

这就是我最终做的（到目前为止）

ReassignSampleGrabberOutput之前调用以下filterGraph.Play;

procedure TForm1.ReassignSampleGrabberOutput;
var
  nullRenderer : IBaseFilter;
  nullRendererPins: IEnumPins;
  nullRendererPin : IPin;
  graph:   IGraphBuilder;
begin

  nullRenderer := CreateComObject(CLSID_NullRenderer) as IBaseFilter;
  FilterGraph1.QueryInterface(IID_IGraphBuilder, graph);
  graph.AddFilter(nullRenderer, 'Null Renderer');

  nullRenderer.EnumPins(nullRendererPins);

  nullRendererPins.Reset;

  if nullRendererPins.Next(1, nullRendererPin, nil) = S_OK then
  begin
    //SampleGrabber1.OutPutPin.Disconnect;
    //SampleGrabber1.OutPutPin.Connect(nullRendererPin, nil);

    graph.Disconnect(SampleGrabber1.OutPutPin);
    graph.FindFilterByName('Video Renderer', filter);
    graph.RemoveFilter(filter);
    graph.Connect(SampleGrabber1.OutPutPin, nullRendererPin);

  end;
end;
4

1 回答 1

6

Null Renderer Filter是标准过滤器/类。在代码中，您只需要实例化它 ( CoCreateInstance)，将其添加到图表中，并将其输入引脚连接到 Sample Grabber 的未连接输出引脚。

在 Delphi/DSPack 中应该是这样的：

Renderer := CreateComObject(CLSID_NullRenderer) as IBaseFilter;

于 2012-10-01T20:35:43.670 回答