Wenn du die TLB schon importiert hast, brauchst du doch nicht CreateOleObject() verwenden.
Öffne die
Unit xxxx_TLB.pas und gehe ganz ans Ende.
Dort findet sich Code wie folgendes Beispiel:
Delphi-Quellcode:
class function CoMoney.Create: IMoney;
begin
Result := CreateComObject(CLASS_Money) as IMoney;
end;
Um bei dem Beispiel zu bleiben, müsste man hier schreiben:
Delphi-Quellcode:
var
money_object : IMoney;
begin
money_object := CoMoney.Create; // das war's schon
Jetzt musst du nur noch schauen, welcher Aufruf zu deinem Interface ISELFWrite passt.
Wenn du nichts passendes findest, liegt das daran, dass du zuerst ein anderes Objekt erzeugen musst, um an das Interface ranzukommen.
Wenn alle Stricke reisen, dann kannst du die TLB-Datei gezippt hier im Forum posten.
schönes Wochenende; ich bin wech
