Interface zu Object?

[DSeven]

Hallo,

Habe ein Problem mit Interfaces.
Wie kann ich wenn ich ein Interface habe (ITab) es wieder ins urspüngliche Object (TEditTab) casten?
Bekomme immer eine Fehlermeldung bei dem versuch.

cya

[bttb930]

das geht nicht, soweit ich weiß. widerspricht jedenfalls der theorie eines interfaces.

vielleicht mit dirty tricks, etwa TEditTab(@MyInterface) oder so. Aber keine Ahnung ob das geht... Glaubs eher nicht

[delphifan2004]

Hallo DSeven!

Zitat von DSeven:

Wie kann ich wenn ich ein Interface habe (ITab) es wieder ins urspüngliche Object (TEditTab) casten?

Warum willst Du das machen?

Delphi-Quellcode:

unit TabIntf;

Interface

uses ...benötigte Units

type
  ITab = Interface(IUnknown)
   ... Interface-Methoden
  end;

type
  TEditTab = class(irgendein passender Vorfahre, ITab)
  ... Interface Methoden -> Siehe ITab
  end;

var EditTab: TEditTab; //Nun kannst Du ganz normal mit dem Objekt arbeiten, wie mit jedem 
                       //anderen Delphi Objekt.

implementation


//...Interface Methoden in der Klasse implementiert
procedure TEditTab.Methode1;
begin
  //Hier folgt die korrekte Implementation
end;

function TEditTab.Methode2: Rückgabetyp;
begin
  //Hier folgt die korrekte Implementation
end;

end.

Das Interface dient nur als Schnittstelle. Die Implementation erfolgt in einer Klasse, die das Interface einbindet. Siehe Quelltext. Damit hast Du auch eine Instanzvariable für das Objekt. Wozu da das Type-Casting?

Delphifan2004

[DSeven]

Du kennst ja den Aufbau meines Programms nicht.
also ich habe keine keinen zugriff auf die Instanz da es ja mehrere Inszanzen gibt und diese sind eben in einer liste.
Und aus der liste holl ich mir dann immer das Interface.


Es ist schon klar das wenn ich nur ein Object hätte ich eben immer darauf zugreifen kann.
Aber ich erstelle immer eine temporäre instanz diese wird in die liste eingetragen und die lokale variable wird dann ungültig.

cya

[Sanchez]

Hallo,

So würde es funktionieren, auch wenns nicht unbedingt schönes Design ist:

Delphi-Quellcode:

type
  TEditTab = class;

  ITab = Interface(IUnknown)
    function GetObject: TEditTab;
  end;

  TEditTab = class(irgendein passender Vorfahre, ITab)
    function GetObject: TEditTab;
  end;

procedure TEditTab.Methode1;
begin
  result := self;
end;

Um die forward-Deklaration von TEditTab zu vermeiden, kannst du auch bei GetObject einen Vorfahren zurückgeben.

grüße, daniel

[maximov]

Als lektüre zu einem verwandten thema, kann ich diesen thread empfehlen:
http://www.delphipraxis.net/internal...ct.php?t=36554

[DSeven]

Zitat von Sanchez:

Hallo,

So würde es funktionieren, auch wenns nicht unbedingt schönes Design ist:

Delphi-Quellcode:

type
  TEditTab = class;

  ITab = Interface(IUnknown)
    function GetObject: TEditTab;
  end;

  TEditTab = class(irgendein passender Vorfahre, ITab)
    function GetObject: TEditTab;
  end;

procedure TEditTab.Methode1;
begin
  result := self;
end;

Um die forward-Deklaration von TEditTab zu vermeiden, kannst du auch bei GetObject einen Vorfahren zurückgeben.

grüße, daniel

Hehe genau so mache ich es ja im moment dachte nur das da irgendwie einen einfacheren Weg gibt, oder besser gesagt einen besseren.

cya