WindowHandle vom Aktiven Renderer

[EWeiss]

Bekomme das mit dem Pin nicht geregelt.. destotrotz habe ich das was ich wollte.
Beim Klick auf das Video Window wird ein Overlay gezeichnet welches den aktiven Status anzeigt.
Das Bitmap wir ein\aus gezoomt inklusive Layered Alpha.

Pause und Play abhängig vom aktuellen Status.
Spielerei.. habe das mal bei einem WebPlayer gesehen. (So muss ich nicht den Play oder Pause Button suchen)
Ja, ja doppelt gemoppelt. ;)

gruss

[TiGü]

Doku nicht gelesen?
Du musst die IBaseFilter-Instanz nach dem IOverlay fragen, nicht die IPin-Instanz.

[EWeiss]

Zitat:

Zitat von TiGü (Beitrag 1413194)

Doku nicht gelesen?
Du musst die IBaseFilter-Instanz nach dem IOverlay fragen, nicht die IPin-Instanz.

Hast du es nicht gesehen?

Delphi-Quellcode:

HR := FVideoRenderer.VMRFilter.FindPin(nil, pPin);

Nur ich weis nicht was ich bei Nil einfügen soll.
Das kann ja sonst was sein. 'Video Renderer' funktioniert nicht.. FVideoRenderer.FilterName genauso wenig.
Alles schon versucht.

So wie ich gelesen habe verwenden alle die IPin-Instanz um das Overlay zu erfragen.
Siehe!



gruss

[TiGü]

Emil, wenn du nicht in der Lage bist, längere englische Texte zu lesen, obwohl ich dir schon den Link und den passenden Absatz mitteilte, dann musst du das schreiben.
8 von 10 Fragen von dir wären hinfällig, wenn du die offizielle Dokumention der verwendeten Frameworks studieren würdest.

Zitat:

This interface (IOverlay - Anmerkung der Redaktion) is implemented on the Microsoft® DirectShow® video renderer filter. It can also be implemented on replacement video renderer filters if desired.

[EWeiss]

Siehe mein Edit der Link!
Hier der part falls du nicht schauen willst.

Zitat:

So, you can find the GetWindowHandle method in the IOverlay interface on the input pin (!) of the Video Renderer Filter

Code:

IGraphBuilder m_pFilterGraph;
IOverlay m_pOverlay;
// here you should create a filter graph and render your video file
...
hr = m_pFilterGraph->Render(...);
...
// getting IOverlay interface.
IBaseFilter *pFilter= NULL;
IPin *pin = NULL;
if (SUCCEEDED(m_pFilterGraph->FindFilterByName(L"Video Renderer",
    &pFilter))) {
  if (SUCCEEDED(pFilter->FindPin(L"VMR Input0", &pin))) {
    if (SUCCEEDED(pin->QueryInterface(IID_IOverlay,
        (void **)&m_pOverlay))){
      pin->Release();
      pFilter->Release();
    }
  } else {
    pFilter->Release();
  }
}

Und genau das tue ich!

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1413204)

Und genau das tue ich!

Und, geht's?

[EWeiss]

Nochmal ich tue genau das!

Zitat:

So, you can find the GetWindowHandle method in the IOverlay interface on the input pin (!) of the Video Renderer Filter

Delphi-Quellcode:

FindConnectedPin(FVideoRenderer.VMRFilter, PINDIR_INPUT, pPin);

FVideoRenderer.VMRFilter = Video Renderer Filter
PINDIR_INPUT = in the IOverlay interface on the input pin

Danach ein Pin Query..

Delphi-Quellcode:

pPin.QueryInterface(IID_IOverlay, Overlay);

Und nein geht nicht..
Aber überall im Net sehe ich die selben Samples in etwas abgeänderter Form.

Link 2
Link 3
Ich könnte dir noch mehr Links zeigen aber das schenke ich mir.

Wegen diesen Problemen verwende ich jetzt WindowFromPoint und gut ist. :) 2 Zeiler und fertig!

gruss

[TiGü]

Tu mir doch bitte mal den gefallen und kopiere die ersten beiden Funktionen bei dir rein.
Wie du sie nutzt siehst du in einen kleinen Beispiel namens Main() am Ende. Du musst natürlich deine IGraphBuilder-Instanz reinstecken!

Delphi-Quellcode:

function FindPinInterface(
  const pFilter: IBaseFilter;
  const iid: TGUID;
  out ppUnk: IUnknown): HRESULT;
var
  pF: IBaseFilter;
  hr: HRESULT;
  pEnum: IEnumPins;
  pPin: IPin;
begin
  if not Assigned(pFilter) then
  begin
    Result := E_POINTER;
    Exit;
  end;
  hr := E_FAIL;
  pEnum := nil;

  if Failed(pFilter.EnumPins(pEnum)) then
  begin
    Result := E_FAIL;
    Exit;
  end;

  // Query every pin for the interface.
  pPin := nil;
  while (S_OK = pEnum.Next(1, pPin, nil)) do
  begin
    hr := pPin.QueryInterface(iid, ppUnk);

    if Succeeded(hr) then
    begin
      break;
    end;
  end;

  Result := hr;
end;

function FindInterfaceAnywhere(
  const pGraph: IGraphBuilder;
  const iid: TGUID;
  out ppUnk: IUnknown): HRESULT;
var
  pF: IBaseFilter;
  hr: HRESULT;
  pEnum: IEnumFilters;
begin
  if not Assigned(pGraph) then
  begin
    Result := E_POINTER;
    Exit;
  end;

  hr := E_FAIL;
  pEnum := nil;
  if Failed(pGraph.EnumFilters(pEnum)) then
  begin
    Result := E_FAIL;
    Exit;
  end;

  // Loop through every filter in the graph.
  pF := nil;
  while (S_OK = pEnum.Next(1, pF, nil)) do
  begin
    hr := pF.QueryInterface(iid, ppUnk);
    if Failed(hr) then
    begin
      // The filter does not expose the interface, but maybe one of its pins does.
      hr := FindPinInterface(pF, iid, ppUnk);
    end;

    if Succeeded(hr) then
    begin
      break;
    end;
  end;

  Result := hr;
end;

procedure Main();
var
  hr: HRESULT;
  GraphBuilder: IGraphBuilder;
  UnknownInterface: IUnknown;
  Overlay: IOverlay;
begin
  hr := CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, GraphBuilder);
  if Succeeded(hr) then
  begin
    hr := FindInterfaceAnywhere(GraphBuilder, IOverlay, UnknownInterface);
    if Succeeded(hr) then
    begin
      hr := UnknownInterface.QueryInterface(IOverlay, Overlay);
      if Succeeded(hr) then
      begin
        // wuuup wuuup
      end;
    end;
  end;
end;

[EWeiss]

Ja danke werde ich machen.
Kann etwas dauern da ich die DLL und Abhängigkeiten dafür erst ausrichten muss.

gruss

[EWeiss]

Delphi-Quellcode:

function KVideo_GetActiveRenderWindowHandle: HWND stdcall;
begin
  Result := 0;  
  
  if not Assigned(EVMRPlayer) then
    exit;

  if EVMRPlayer.PlayerState = psNotReady then
    exit;

  Result := EVMRPlayer.GetActiveRenderWindowHandle;
end;

Delphi-Quellcode:

function TEVMRPlayer.GetActiveRenderWindowHandle: HWND;
var
  hr: HRESULT;
  UnknownInterface: IUnknown;
  Overlay: IOverlay;
begin
    Result := 0;

//  hr := CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, GraphBuilder);
//  if Succeeded(hr) then
//  begin
    hr := FindInterfaceAnywhere(GraphBuilder, IOverlay, UnknownInterface);
    if Succeeded(hr) then
    begin
      hr := UnknownInterface.QueryInterface(IOverlay, Overlay);
      if Succeeded(hr) then
        Overlay.GetWindowHandle(Result);
    end else
    ReportError('Create Overlay Error', Hr);
//  end;
end;

Fehler Schnittstelle nicht unterstützt.

Delphi-Quellcode:

hr := UnknownInterface.QueryInterface(IID_IOverlay, Overlay);

Oder?
Ich verstehe auch die Herangehensweise nicht.
Der GraphBuilder hat doch nichts mit dem Aktiven Video Render Filter zu tun.

Diese sind
VMR7BaseFilter, VMR9BaseFilter, madVRFilter, EVRBaseFilter

gruss