IMoniker - aber wie ?

[sakura]

Hi DPler,

ich denke mal, dass das die richtige Sparte ist, aber na ja. Ich möchte COM (COM+/DCOM) Objekte erstellen welche die IMoniker Schnittstelle implementieren. Hat jemand von Euch da schon mal die Erfahrung mit gemacht, oder weiss jemand, wie ich das am dümmsten anstelle.

Am Ende sollen die Objekte über den VB Befehl (oder ein entsprechendes Äquivalent) GetObject("NameDesObjectes://Pfad/Zur/Resource") abrufbar sein.

Die Delphi Version von GetObject sieht wie folgt aus:

Code:

function VBGetObject(const Name: AnsiString): IDispatch;
var
  BindContext: IBindCtx;
  Moniker: IMoniker;
  Eaten: Integer;
begin
  OleCheck(CreateBindCtx(0, BindContext));
  OleCheck(MkParseDisplayName(
    BindContext, PWideChar(WideString(Name)), Eaten, Moniker
  ));
  OleCheck(Moniker.BindToObject(BindContext, nil, IDispatch, Result));
end;

......