ActiveX-Komponente über TWebBrowser geladen - Eventinterface

[Bernhard Geyer]

Ich habe eine ActiveX-Komponente (kann mit der Shockwave-Flash-Komponente nachvollzogen werden), welche ich über den IE-Wrapper TWebBrowser bedienen will.
Dort lade ich ein Dokument mittels
MyWebBrowser.Navigate(Flashfile); Nun suche ich mir die Flash-Instanz zur geladenen Flash-Instanz:

Delphi-Quellcode:

function GetShockPlayer(WebBrowser: TWebBrowser): IShockwaveFlash;
var
  intf: IDispatch;
  doc: IHTMLDocument2;
  collection: IHTMLElementCollection;
begin
  result := nil;
  doc := WebBrowser.Document as IHTMLDocument2;

  collection := doc.embeds;
  if collection.length > 0 then
  begin
    intf := collection.item(0, 0);
    result := intf as IShockwaveFlash;
  end;
end;

Für diese Player-Instanz versuche ich mich an die Event-Schnittstelle zu hängen:

Delphi-Quellcode:

var
  player: IShockwaveFlash;
  ShockEvents: TShockwaveFlashObjectsIShockwaveFlashEvents;
begin
  player := GetShockPlayer(WebBrowser);

  ShockEvents := TShockwaveFlashObjectsIShockwaveFlashEvents.Create(self);
  ShockEvents.Connect(player);
end;

Die TShockwaveFlashObjectsIShockwaveFlashEvents-Klasse habe ich das EventSinkImp-Importiert.

Jedoch bekomme ich die Fehlermeldung "Schnittstelle nicht unterstützt"?
Was ist falsch? Wenn ich die Event-Klasse mit einer per Delphi ActiveX-Import generierten Flash-Instanz verbinde funktioniert es. Was ist anders, wenn der Internet Explorer dazwischen geschaltet wird?

Ich habe ein Beispielprojekt angehängt (Hoffentlich alles dabei )

[Bernhard Geyer]

USH:

Keiner eine Idee?

[mirage228]

Hi,

wenn ich bei der Original Flash-Variante:

FShockEvents.Connect(FShock); anstatt

FShockEvents.Connect(FShock.ControlInterface); schreibe gehts damit auch nicht ("Schnittstelle wird nicht unterstützt)

Und dieses Control Interface baut nicht auf dem Objekt selbt auf, sondern auf der Eigenschaft OleObject von TOleControl.
Also ist das Interface was Du Dir vom IE holst nicht korrekt, genausowenig, wie es das erstellte Interface ist. Du brauchst beim IE Interface auch irgendwie so ein "ControlInterface", denn das scheint was anderes zu sein, als das Interface selbst.

mfG
mirage228

[Bernhard Geyer]

Zitat von mirage228:

Also ist das Interface was Du Dir vom IE holst nicht korrekt, genausowenig, wie es das erstellte Interface ist. Du brauchst beim IE Interface auch irgendwie so ein "ControlInterface", denn das scheint was anderes zu sein, als das Interface selbst.

Das Interface ist schon korrekt, jedoch ist über dieses nicht möglich sich das Event-Interface geben zu lassen.
Das "ControlInterface"-Property ist nur eine Delphi-Wrapper-Eigenheit, um auch direkt mit der ursprünglichen Schnittstelle arbeiten zu können (ohne Wrapper).
Bei
FShockEvents.Connect(FShock); wird ja bei den TOleControl-Interface nachgefragt (IUnknown, IOleClientSite, IOleControlSite, IOleInPlaceSite, IOleInPlaceFrame, IDispatch, IPropertyNotifySink, ISimpleFrameSite), ob es das gewünschte Event-Interface kennt und nicht bei meinem gekapselten Shockwave-Interface.

[mirage228]

Achso,

ich habe mir die TShockwave Deklaration nicht angeschaut und gedacht, es wäre eine Klasse, die IShockwave implementiert, da es ja auch die entsprechenden Methoden hatte. Da hätte ich genauer hinschauen sollen

Dann stimmt da tatsächlich etwas nicht. Man müsste evtl. mit dem Disassembler das enstprechende Modul auseineandernehmen und schauen, wo und wieso der Fehler auftritt.

mfG
mirage228