LPDISPATCH über DLL-Schnittstelle in Exe verwenden

[Bernhard Geyer]

ch habe eine C/C++-Dll mit C-Interface und will von diesem eine LPDISPATCH-Interface-Zeiger zurückbekommen.

Die Funktion binde ich in Delphi mittels

MyDLLFunc: function( Parent: HWND): Pointer; stdcall;

und bekomme mittels

Delphi-Quellcode:

var 
  pDisp: pDispatch; 
  Disp: IDispatch; 
begin 
  pDisp := pDispatch(MyDLLFunc); 
  Disp := pDisp^; 
end;

Auch bis zum punkt pDisp := ...,
aber bei Disp := ... kracht es.

Was muß ich noch beachten? Evtl. irgendwelches Marshalling?

[shmia]

Versuch mal:

Delphi-Quellcode:

var 
  Disp: IDispatch; 
  obj : OleVariant;
begin 
  Disp := IDispatch(MyDLLFunc); 
  obj := Disp;
  obj.SomeMethod;
end;

[Bernhard Geyer]

Wieso sieht man manchmal die einfachste Lösung nicht?