Verwenden von IAMMediaContent

[EWeiss]

Die einzige Information die ich habe ist diese hier.

Zitat:

IAMMediaContent

Implemented methods:
•get_Title Returns title of the clip. One line of text.
•get_Description Returns description of the clip. Multiline text.

Returned text is ready to use, i.e. any URL encoding, HTML entities, HTML tags etc. are removed.

Zusatz Informationen gibt es hier.. so weit man das so nennen darf

Mein bisher kläglicher versuch.

Delphi-Quellcode:

function KVideo_GetYoutubeFilterTitle(var Title: PWideChar): HRESULT; stdcall;
begin
  result := E_FAIL;

  if not Assigned(EVMRPlayer) then
    exit;

  result := EVMRPlayer.GetYoutubeFilterTitle(Title);
end;

Delphi-Quellcode:

function TEVMRPlayer.GetYoutubeFilterTitle(var Title: PWideChar): HRESULT;
var
  MediaContent: IAMMediaContent;
  Source: IBaseFilter;
begin

  Result := E_FAIL;

  if IsUrl then
  begin
    if DYDYoutubeFilter <> nil then
    begin
      if IsRegisteredFilter(CLSID_LegacyAmFilterCategory, CLSID_MPEG1Splitter) then
        Result := CoCreateInstance(CLSID_MPEG1Splitter, nil, CLSCTX_INPROC_SERVER, IID_IBaseFilter,
      Source);
      if SUCCEEDED(Result) then
      begin
        Source.QueryInterface(IID_IAMMediaContent, MediaContent);
        Result := MediaContent.get_Title(Title);
        if not SUCCEEDED(Result) then
          ReportError('YoutubeFilterTitle fails', Result);
      end;
    end;
  end;
end;

1. Ich weis nicht ob das mit dem Splitter so stimmt.
2. Fehlt hier noch irgendwas?

Ich habe mich im Net dumm gesucht aber mit dem Stichwort IAMMediaContent findet man fast so gut wie nix.

Der Titel soll mir den Namen des Video Streams zurückgeben.
Beispiel..
Neue KINO TRAILER 2018 (German Deutsch) KW 38


gruss