C++ Delphi Übersetzung 3DYDYoutube Filter

[KodeZwerg]

Das sollte ein Property darstellen des Typs Int.

[EWeiss]

Zitat von KodeZwerg:

Das sollte ein Property darstellen des Typs Int.

Versteh ich nicht. Umgesetzt?

gruss

[KodeZwerg]

Delphi-Quellcode:

  ISupportedSites = interface(IUnknown)
    ['{FF762ACC-13EC-463A-A29C-FD4B0CD3E019}']

kVersion = 5; // so vielleicht?

    (* ** ISupportedSites methods ** *)
    function GetVersion: UINT; stdcall;
    function GetCount: UINT; stdcall;
    function GetName(index: UINT); stdcall;
    procedure Test(url: PWideChar; explicitly: BOOL; var canonical_url: string); stdcall;
    function GetStartTime: UINT; stdcall;
  end;

edit
also kVersion muss etwas sein wo als wert ne 5 zurückkommt, vielleicht macht man das bei interface auch anders, per function oder so...

[EWeiss]

Zitat von KodeZwerg:

Delphi-Quellcode:

  ISupportedSites = interface(IUnknown)
    ['{FF762ACC-13EC-463A-A29C-FD4B0CD3E019}']

kVersion = 5; // so vielleicht?

    (* ** ISupportedSites methods ** *)
    function GetVersion: UINT; stdcall;
    function GetCount: UINT; stdcall;
    function GetName(index: UINT); stdcall;
    procedure Test(url: PWideChar; explicitly: BOOL; var canonical_url: string); stdcall;
    function GetStartTime: UINT; stdcall;
  end;

Heheheh.. Vielleicht.. JA!
Nebenbei du hast zu früh kopiert habe noch etwas nachgebessert

Das Video läuft schon mal. Anbei ein Pic.
Was mir fehlt ist die Weite\höhe, Gesamt und verstrichene Zeit.
Im Moment geht es nur über eine Verknüpfung mit Dragdrop. (Habe keine Liste)

Nun gut ist noch was zu tun.

gruss

[KodeZwerg]

ja sorry, bin schon total schlaff auf den augen, wusste nur worauf ich hinaus wollte weil du nur das eine angefragt hattest.

aber.... ich glaube mich rar zu erinnern das man dabei ne function mit fest-ergebnis nehmen sollte.... manno... bin grad voll am grübeln/zweifeln

wenn es nun läuft scheints das ja gewesen zu sein, tolle sache auch mal das richtige für dich gehabt zu haben

[EWeiss]

Zitat:

wenn es nun läuft scheints das ja gewesen zu sein

Nein das laufen des Video hat damit nichts zu tun das ist eine andere Sache.

gruss

[EWeiss]

Habe immer noch ein C++ Problem.

Code:

CComPtr<IBaseFilter> source;
if (FAILED(hr = source.CoCreateInstance(__uuidof(IYoutubeSource)))) {
    return VLC_EGENERIC;
}
CComQIPtr<ISupportedSites> ss = source;
if (!ss) {
    return VLC_EGENERIC;
}
CComBSTR url;
if (S_OK != (hr = ss->Test(original_url.c_str(), FALSE, &url))) {
    return VLC_EGENERIC;
}

Kann da bitte jemand bei der Übersetzung helfen? Danke

Habe es mal auf diese weise versucht.

Delphi-Quellcode:

  if DYDYoutubeFilter <> nil then
  begin
    hr := CoCreateInstance(CLSID_DYDYoutube, nil, CLSCTX_INPROC_SERVER, IID_IBaseFilter, Source);
    if SUCCEEDED(hr) then
      SupportedSites := ISupportedSites(Source);
      hr := SupportedSites.Test(PWideChar(MediaFile), false, url);
      if SUCCEEDED(hr) then
      begin

      end;
  end;

URL ist immer leer.


gruss