Zurück geliefertes Objekt "halten"

[shmia]

Zitat von LaNtHaN:

Ich habe jetzt mal die TLB importiert und dort einen Wrapper generiert...
Daraus hab ich ein pas-File erhalten. Irgendwie werde ich nun nicht ganz schlau daraus wie ich dieses nun richtig implementiere, damit das dispInterface funktioniert.

Erzeuge ein Objekt der Klasse TTags.
TTags kapselt das Interface ITags und _ITagsEvents.

Delphi-Quellcode:

FTagsObj := TTags.Create(self);
FTagsObj.OnValueChanged := self.ValueChangedHandler;
FTagsObj.Connect; // Verbindung zum COM/DCOM Objekt herstellen

// dieses Connect ersetzt dann die Zeile
// dxs := CreateOleObject('MicroInnovation.DXS.Tags'); 
// statt dxs verwendest du dann FTagsObj.DefaultInterface

....
procedure TForm1.ValueChangedHandler(ASender: TObject; name: OleVariant; newValue: OleVariant);
begin
   ShowMessage('das Dingens <'+name '> wurde geändert.');
end;

PS: schönes Wochenende, ich bin weg