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 )