наложения текста на видео с вебкамер

[Pavia]

...
    FAudioCaptureFilter:  IBaseFilter;
    Renderer:             IBaseFilter; //  Добавляем интерфейсный для рендера
    FVideoRect:           TRect;

...
if Listbox1.ItemIndex>=0 then
           begin
              MArray1[Listbox1.ItemIndex].BindToObject(NIL, NIL, IID_IBaseFilter, FVideoCaptureFilter);
              FGraphBuilder.AddFilter(FVideoCaptureFilter, 'VideoCaptureFilter');
           end;
if Listbox2.ItemIndex>=0 then
           begin
              MArray2[Listbox2.ItemIndex].BindToObject(NIL, NIL, IID_IBaseFilter, FAudioCaptureFilter);
              FGraphBuilder.AddFilter(FAudioCaptureFilter, 'AudioCaptureFilter');        Result:=FCaptureGraphBuilder.RenderStream(@PIN_CATEGORY_PREVIEW, @MEDIATYPE_Audio,
              FAudioCaptureFilter, NIL, NIL);
              if FAILED(Result) then EXIT;
           end;

{ Создаем рендер с микшером и добавляем в граф}
//--- VMR
  if failed(CoCreateInstance(CLSID_VideoMixingRenderer,
            nil, CLSCTX_INPROC_SERVER,
            IID_IBaseFilter, Renderer)) then exit;
  FGraphBuilder.AddFilter(Renderer, 'VideoRenderer');
  if failed(Renderer.QueryInterface(IID_IVMRFilterConfig,
            pConfig)) then exit;
  pConfig.SetNumberOfStreams(1);
  if failed(Renderer.QueryInterface(IID_IVMRMixerBitmap,
            pBitmap)) then exit;

Result:=FCaptureGraphBuilder.RenderStream(@PIN_CATEGORY_PREVIEW, @MEDIATYPE_Video, FVideoCaptureFilter, NIL, Renderer); // Собственно добавление
if FAILED(Result) then EXIT;
Result:=FGraphBuilder.QueryInterface(IID_IVideoWindow, FVideoWindow);

[Pavia]

Только почему-то на виртуалке микшер не заработал. Надо будет посмотреть что ему не хватает или нужно.

[alman12]

Pavia Спасибо большое