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