C++ Delphi Übersetzung 3DYDYoutube Filter

[EWeiss]

Zitat von KodeZwerg:

Zitat von EWeiss:

       hr := SupportedSites.Test(PWideChar(MediaFile), false, POleStr(url));

ICh stocher hier auch nur im Dunkeln, so eventuell?

Danke!

Zitat:

Nene, das ist Murks

Könnte das mit dem OleStr nachher auch noch mal versuchen wenn PWideChar nichts bringt.
Ok dann lieber nicht

Mein Problem ist das hr = 0 zurück liefert von daher geht man erst mal davon aus das alles in Ordnung ist.
Nur zurückgegeben wird nix.

Zitat:

Ist der String tatsächlich valide, aber leer, oder nil ?

Leer bzw. NIL

Zitat:

You must query it from the filter instance. Example (C++):

Code:

 if (FAILED(hr = source.CoCreateInstance(__uuidof(IYoutubeSource)))) {
      return VLC_EGENERIC;

Zitat:

solltest du mit QueryInterface()

Er erstellt den Source über CoCreateInstance.

Hmmm...

gruss

[KodeZwerg]

[QUOTE=EWeiss;1414962]

Zitat von KodeZwerg:

Zitat von EWeiss:

       hr := OleCheck(SupportedSites.Test(PWideChar(MediaFile), false, url));

ICh stocher hier auch nur im Dunkeln, so eventuell? Bin Wiederholungstäter im Murksen

[EWeiss]

Zitat:

 hr := OleCheck(SupportedSites.Test(PWideChar(MediaFile), false, url));

Nee
Ich brauche kein OleCheck hr ist mein OleCheck!
Ist hr = 0 dann sollte normalerweise alles in Ordnung sein.

gruss

[EWeiss]

So bin etwas weiter.. Mist wenn man alles selbst herausfinden muss ohne vernünftiges SDK

Habe eine IID_angelegt und zwar die des Interface ISupportedSites.
IID_ISupportedSites: TGUID = '{FF762ACC-13EC-463A-A29C-FD4B0CD3E019}';

War mir jetzt nicht sicher ob ich mit dieser IID_ arbeiten kann scheint aber richtig zu sein um das Interface zu Initialisieren.

Delphi-Quellcode:

  IsURL := (LeftStr(MediaFile, 4) = 'http') or (LeftStr(MediaFile, 5) = 'https');

  if IsUrl then
  begin
    if DYDYoutubeFilter <> nil then
    begin
      hr := CoCreateInstance(CLSID_DYDYoutube, nil, CLSCTX_INPROC_SERVER, IID_IBaseFilter, Source);
      if SUCCEEDED(hr) then
      begin
        Source.QueryInterface(IID_ISupportedSites, SupportedSites);
        
        Version := SupportedSites.GetVersion;
        hr := SupportedSites.Test(PWideChar(MediaFile), false, url);
        if SUCCEEDED(hr) then
        begin
          x := SupportedSites.GetCount;
          if x <> 0 then
          begin
            for IntI := 0 to x - 1 do
             Test := SupportedSites.GetName(IntI);
          end;
        end;
      end;
    end;
  end;

Die Url bei SupportedSites.Test ist immer noch Nil sei's drum.
So wie ich das hier verstehe..

Zitat:

When S_OK is returned, canonical_url will contain canonical page url, otherwise
it will not be changed

Wenn S_OK also die Rückgabe 0 ist dann müsste mir die URL einen wert zurück liefern, tut sie aber nicht.
GetCount hingegen stimmt genauso werden mir die unterstützten Url's zurückgegeben die der Filter unterstützt.
Siehe Pic! Die werte stimmen alle.

Muss jetzt noch schauen wie ich das mit der Url hinbekomme.

Das stimmt jetzt schon mal!

Delphi-Quellcode:

    function GetVersion: UINT; stdcall;
    // Number of supported sites
    function GetCount: UINT; stdcall;
    // Get site name or NULL if index >= GetCount()
    function GetName(index: UINT): PWideChar; stdcall;

gruss

[Rollo62]

Zitat:

Habe leider auch nicht wirklich Ahnung, wie BSTR* definiert ist (die wäre wichtig),

Hat mich jetzt auch interessiert, was ich hier finde ist allerdings gruselig

Ist das wohl aktuell ?

[Fritzew]

Also BSTR ist WideString auf Delphi Seite.

Delphi-Quellcode:

function GetName(index: UINT): WideString; stdcall;
function Test(url: PWideChar; explicitly: BOOL; out canonical_url: WideString): HRESULT; stdcall;

wäre meines Wissens nach die richtige Übersetzung

[Zacherl]

Zitat von Rollo62:

Zitat:

Habe leider auch nicht wirklich Ahnung, wie BSTR* definiert ist (die wäre wichtig),

Hat mich jetzt auch interessiert, was ich hier finde ist allerdings gruselig

Zitat von Fritzew:

Also BSTR ist WideString auf Delphi Seite.

Delphi-Quellcode:

function GetName(index: UINT): WideString; stdcall;
function Test(url: PWideChar; explicitly: BOOL; out canonical_url: WideString): HRESULT; stdcall;

Mhh, schwer zu sagen, was hier stimmt. Ich hatte ein paar Posts zuvor eine andere Definition gefunden. Das WideString kommt mir allerdings sehr komisch vor, da dies ein Delphi Typ mit Ref-Counter und allem drum und dran ist.

So oder so ist der Output Zeiger ja nil . Entsprechend der Dokumentation der Funktion ist das ja in Ordnung, falls S_FALSE zurückgeliefert wird. Jetzt kommt der Knackpunkt:

Zitat von MSDN:

The constants S_OK and S_FALSE are both success codes

Entsprechend liefert das SUCCEEDED() Makro jeweils true zurück. Hier müsstest du also nachher noch explizit auf S_OK oder S_FALSE testen.

[Fritzew]

http://docwiki.embarcadero.com/Libra...tem.WideString

Also wir benutzten dass hier häufig. (gemixte source VS C++ und Delphi)
Das schöne daran, Windows übernimmt die Speicherverwaltung.
Aber: Es ist nicht unbedingt das schnellste.

[Zacherl]

Zitat von Fritzew:

http://docwiki.embarcadero.com/Libra...tem.WideString

Dann hätten wir wohl auch hier jetzt die korrekte Übersetzung

[EWeiss]

Ok Danke euch..
function GetName(index: UINT): PWideChar; stdcall;

Hmm.. bin mir nicht sicher und zwar deshalb weil GetName mir die richtigen werte liefert
Dann gibt es noch den Unterschied BSTR und BSTR*


gruss