Data-Pointer in Interfacevariable casten

[RedOne]

Hallo zusammen

Interessante Anmerkungen, merci.
Habe es soweit umgesetzt. Einziger Nachteil: Ich bin faul
Sehe ich es richtig dass es in Delphi 2007 keinen Weg gibt ein Interfaceobjekt, also mein Objekt im Data direkt in ein Objekt umzuwandeln, in TAccountData umzuwandeln? Ich rufe im OnClickereignis eine abstrakte Methode auf die im abgeleiteten Form implementiert wird. Dieser Methode gebe ich das markierte Objekt aus dem Data mit. Doch dieses sollte ich in mein TAccountData (oder TActionData, je nach dem welches Formular aufgerufen wurde) Objekt umwandeln da die Funktionen die ich brauche für jedes Objekt anders ist und daher nicht im IDataObject implementiert werden können.
Ansonsten muss ich für jede Klasse ein Interface erstellen und für sämtliche Attribute (ist ja nicht nur die ID) eine Get und Set-Methode zu schreiben (ein Property direkt auf die Variable ist im Interface nicht möglich).
Ich hoffe dieses kauderwelsch hat man verstanden

Verständnisfrage: Beim abarbeiten meiner IInterfaceList schreibe ich das Objekt in das Data-Attribut. Jetzt wird doch der Pointer des Objektes dort eingetragen, oder? Von daher sollte ich doch auf das Objekt zugreifen könne, falls mir bekannt ist, um welche Klasse es sich handelt? Ich müsste also anhand des Datas einmal auf das Intergefacte Objekt (Deutsch für Anfänger...) im Basisform und einmal direkt auf das Objekt (im abgeleiteten Form) zugreifen können...

[Edit]
Ähm... nochmals eine blöde Frage: Wie zerstöre ich mein Objekt im Data beim Neuaufbau der Listview?

Delphi-Quellcode:

for i:= 0 to ListViewMain.Items.Count - 1 do begin
  if Assigned( TAccountData( ListViewMain.Items[ i ].Data )) then begin
    //#1
    IDataObject( ListViewMain.Items[ i ].Data ).Free; //klappt ja nicht, da Interface
    //#2
    TAccountData( ListViewMain.Items[ i ].Data ).Free; //Geht nicht: Um diesen Cast handelt sich dieser Thread eigentlich :-)
    //#3
    obj:= IInterface( Pointer( ListViewMain.Selected.Data ));
    if Succeeded( obj.QueryInterface( IDataObject, obj3 )) then begin
      obj3.Free;// klappt ja auch nicht da Interface...
    end;
  end;
end;

Herzlichen Dank
RedOne

[himitsu]

Zitat von RedOne:

Sehe ich es richtig dass es in Delphi 2007 keinen Weg gibt ein Interfaceobjekt, also mein Objekt im Data direkt in ein Objekt umzuwandeln, in TAccountData umzuwandeln?

jupp (fast)
http://www.delphipraxis.net/152892-v...ml#post1035377 (einige der Posts dieses Themas)

[RedOne]

Ok. Wenigstens einen Lichtblick in der Zukunft

Eine kurze Frage noch zum löschen. Ich habe es jetzt so gemacht dass im Interface eine Funktion existiert die sich selbst als Objekt zurück gibt.

Delphi-Quellcode:

  IDataObject = interface( IInterface )
    ['{C94DCAC7-CA42-45D3-95D7-9BC321BA2E2A}']
    function Load( _id: Integer ): Boolean;
    function Insert: Boolean;
    function Update: Boolean;
    procedure Delete;
    procedure SetSelfObject( _o: TObject );
    function GetSelfObject: TObject;
  end;

procedure TAccountData.SetSelfObject( _o: TObject );
begin
  FSelfObject:= TAccountDataExtend( _o ); //Cast unnötig
end {SetSelfObject};

function TAccountData.GetSelfObject: TObject;
begin
  Result:= FSelfObject;
end {GetSelfObject};

Aber wie lösche ich mein Objekt nun wieder?
Mittels xy.GetSelfObject.Free wird eine "unnötige Zeigeroperation" ausgelöst.
Ich habe testweise bei der Generierung der Listview meine Objekte noch in eine TObjectList gespeichert und diese durchgeloopt. Auch dies gibt eine "unnötige Zeigeroperation". Blockiert mich das Interface? Wie wäre der korrekte/schöne Weg diese Objekte zu löschen?

Herzlichen Dank

[himitsu]

Das Objekt hinter einem Interface löscht man nicht!

Wenn alle Referenzen auf das Objekt freigegeben sind (Variablen existieren nicht mehr oder wurden auf NIL, bzw. ein anderes Interface gesetzt), dann gibt sich das Interface selber frei,
also dann, wenn es keiner mehr braucht.

[edit]
ach menno, hier sinds ja 2 Objekte ... hmmm

"unnötige Zeigeroperation" ... meinst du vielleich "ungültige" ?

Wenn ja, dann ist der Zeiger falsch, bzw. zeigt nicht auf (d)ein Objekt.

[RedOne]

Ah cool. Eigentlich mag ich es nicht wenn mit jemand Arbeit abnimmt aber in diesem Fall...

Es ist doch nur ein Objekt. In "SelfObject" befindet sich nur eine weitere Referenz auf das Objekt.

Und ja, sollte natürlech "ungültige" heissen