AddObject mit einem Interface?

[angelika81]

Hallo!

Ich habe folgendes Problem:
Bei einer Combobox möchte ich ein paar Einträge hinzufügen, außerdem zu jedem Eintrag ein Objekt abspeichern.
Dies mache ich mit der AddObject-Methode der Combobox, dabei übergebe ich den Typ des Interfaces, welches das Objekt implementiert.

Also:

Delphi-Quellcode:

procedure Eintragen(Objekt: IMyInterface);
begin
  cmbTest.AddObject('Test', Objekt);
end;

Wenn ich das Objekt hinterher wieder herausholen möchte, bekomme ich aber eine AccessViolation:

Delphi-Quellcode:

var
  obj: TObject;
begin
  obj := cmbDatenbank.Items.Objects[cmbDatenbank.ItemIndex];
  if Supports(obj, IMyInterface, dbcs) then  <----- Hier scheppert es...!
      dbcs.DoSomething;
end;

Ich schätze, es ist nicht sauber, ein Interface per AddObject zu hinterlegen, weil bei Interfaces der Speicher anders verwaltet wird, richtig?
Was kann ich denn tun? Was haltet ihr davon, wenn ich eine Klasse mache, die das Interface in einer Variablen (sozusagen eine Wrapperklasse) speichert und diese Klasse dann per AddObject in der Combobox speichere?

Ich freue mich auf ein paar Tipps!
Danke, Angelika

[mkinzler]

Versuch es mal mit TObject als Typ

[semo]

Zitat:

Was haltet ihr davon, wenn ich eine Klasse mache, die das Interface in einer Variablen (sozusagen eine Wrapperklasse) speichert und diese Klasse dann per AddObject in der Combobox speichere?

--> So ähnlich.

Du deklarierst eine neue Klasse, welche das Interface verwendet:

Delphi-Quellcode:

TMyClass = class(IMyInterface)
public
  Name: string;
end;

Dann kannst du bequem deine Objekte verwalten:

Delphi-Quellcode:

procedure Eintragen(Objekt: TMyClass);
begin
  if Assigned(Objekt) then
    cmbTest.AddObject(Objekt.Name, Objekt);
end;

[Apollonius]

Das funktioniert doch nicht. Was soll sie denn machen, falls die Interfaces von einer anderen Klasse stammen?

Wenn du es gerne sauber hast, solltest du es so machen, wie du es selbst vorgeschlagen hast, eine Klasse mit entsprechender Membervariable. Oder du kannst manuell mit _AddRef- und _Release-Aufrufen die Referenzzählung austricksen und einfach nach TObject casten.

[Hansa]

Ich wundere mich immer wieder, woher die Kerle hellsehen können. Wo wird die Prozedur "Eintragen" definiert ? Wie heißt die, wo der Fehler auftaucht (Kopf fehlt) ? Dann wundert mich etwas die Kenntnis der Objects-Eigenschaft. Die ist nämlich weitgehend unbekannt. Wie sieht das konkrete TObject denn überhaupt aus ? Rest : siehe mkinzler.

[xaromz]

Hallo,

das Ganze ist eigentlich ziemlich einfach (aber mit einigen Schweinereien verbunden):

Delphi-Quellcode:

procedure Eintragen(Objekt: IMyInterface); 
begin 
  cmbTest.AddObject('Test', Pointer(Objekt)); 
end;

Delphi-Quellcode:

var 
  Intf: IInterface;  
begin 
  Intf := IInterface(Pointer(cmbDatenbank.Items.Objects[cmbDatenbank.ItemIndex]);
  if Supports(Intf, IMyInterface, dbcs) then
    dbcs.DoSomething; 
end;

Man sollte aber beachten, dass dabei die Referenzzählung den Bach runter geht.

Gruß
xaromz

[Hansa]

Der nächste Hellseher. 8) Was muss in das TInterface rein ??? Du willst doch offensichtlich irgendwelche zusätzlichen Informationen in der ComboBox haben, oder nicht ??

[gmc616]

Zitat von angelika81:

Bei einer Combobox möchte ich ein paar Einträge hinzufügen, außerdem zu jedem Eintrag ein Objekt abspeichern.
Dies mache ich mit der AddObject-Methode der Combobox, dabei übergebe ich den Typ des Interfaces, welches das Objekt implementiert.

Wieso nur "den Typen des Interfaces, welches das Objekt implementiert" und nicht das Objekt ansich?
Schließlich erwartet AddObject auch ein TObject und kein TInterface.

[xaromz]

Hallo,

Zitat von Hansa:

Der nächste Hellseher. 8) Was muss in das TInterface rein ??? Du willst doch offensichtlich irgendwelche zusätzlichen Informationen in der ComboBox haben, oder nicht ??

Was soll der Kommentar? Es ist offensichtlich, dass hier an irgendwelche TStrings Interfaces gebunden werden sollen. Das macht mein Code. Also was willst Du?

Gruß
xaromz

[shmia]

Da muss man etwas tricksen:

Delphi-Quellcode:

procedure Eintragen(IntPtr: IMyInterface); 
begin 
  IntPtr._AddRef;  // Referenzzählung "austricksen"
  cmbTest.AddObject('Test', TObject(IntPtr)); 
end;

Würde man nicht mit AddRef eingreifen, kann es passieren, dass das Objekt auf den der Interfacezeiger verweist,
automatisch freigegeben wird. (=> Access Violation)

Beim löschen ist dann ebenfalls eine Korrektur nötig:

Delphi-Quellcode:

var
   p :Pointer;
begin
   p := Pointer(stringliste.Objects[i]);
   if Assigned(p) then
      IUnknown(p)._Release;
end;