Ok! Sorry hat sich erledigt.
So geht es!
Delphi-Quellcode:
function TEVMRPlayer.GetYoutubeFilterTitle(var Title: PWideChar): HRESULT;
var
MediaContent: IAMMediaContent;
begin
Result := E_FAIL;
if not Assigned(srcFilter) then
exit;
if IsUrl then
begin
if DYDYoutubeFilter <> nil then
begin
srcFilter.QueryInterface(IID_IAMMediaContent, MediaContent);
Result := MediaContent.get_Title(Title);
if not SUCCEEDED(Result) then
ReportError('YoutubeFilterTitle fails', Result);
end;
end;
end;
srcFilter ist in dem Fall
hr := GraphBuilder.AddSourceFilter(PWideChar(MediaFile), 'SRC01', srcFilter);
Was für ein Aufwand bis das mal alles steht.
Pic von Vimeo, YouTube
Jetzt fehlt noch die Video Auflösung und die Laufzeit.
gruss