Verständnisfrage zu Interfaces

[Oracle]

Angenommen ich deklariere ein Interface in dem es zwei Methoden gibt.

Delphi-Quellcode:

  IBeispiel = interface
    procedure Methode1;
    procedure Methode2;
  end;

Dann will ich eine Klasse bilden, die das Interface implementiert. Ausserdem soll diese Klasse noch eine Methode dre einführen. Geht das?

Delphi-Quellcode:

  TBeispiel = class(TInterfacedObject, IBeispiel)
    procedure Methode1;
    procedure Methode2;
    procedure Methode3;
  end;

Sollte dies nicht gehen, muss ich dann eine abstrakte Klasse anstatt des Interface benutzen?

Vielen Dank schon mal im Vorraus

[Bernhard Geyer]

Freilich geht das. Jedoch wirst du wenn du nur mit dem Interface arbeitest diese nicht verfügbar haben.

[Phoenix]

Natürlich geht das.
Interface heisst nur, dass die Klasse _mindestens_ die vom Interface vorgegebenen Methoden implementieren muss.

[Oracle]

Wie Bernhard Geyer schon sagt ist das Problem dann aber, dass ich diese Funktionen über das Interface dann nicht zur Verfügung habe. Ich nehme an, dass mir eine abstrakte Klasse dann auch nicht hilft?

[Phoenix]

Nein. Aber Du könntest in dem Fall diese dritte Methode in einem zweiten Interface deklarieren, und dann auf dieses zweite Interface abprüfen.

Oder Du definierst die Methode auch direkt auf dem Interface, wenn Du es dort offensichtlich eh brauchst?

[idontwantaname]

Was möchtest du denn überhaupt genau erreichen?

[Oracle]

Also ich habe hier verschiedene Kameras von verschiedenen Herstellern die ich über deren API Funktionen anspreche.
Einige Funktionen haben alle Kameras gemeinsam, wie OpenKamera, BelichtungszeitEinstellen, oder Bildmachen.
Diese Funktionen will ich in ein Interface packen so dass ich die Kameras ohne weiteres untereinander austauschen kann.

Beispiel:

Delphi-Quellcode:

  ICamera = interface
    procedure Initialize;
    function  getBild:SpectrumArray;
    procedure setExposureTime(msTime : integer);
    function getExposureTime: integer;
  end;

  TKamera1 = class(TInterfacedObject, ICamera)
    procedure Initialize;
    function  getBild:SpectrumArray;
    procedure setExposureTime(msTime : integer);
    function getExposureTime: integer;
  end;

Nun haben einige der Kameras noch funktionen die andere nicht bieten, und somit würde ich bei diesen Kameras noch andere Funktionen hinzufügen wollen.

Beispiel:

Delphi-Quellcode:

  TKamera2 = class(TInterfacedObject, ICamera)
    procedure Initialize;
    function  getBild:SpectrumArray;
    procedure setExposureTime(msTime : integer);
    function getExposureTime: integer;
    procedure setTriggerTimeOut(mode : integer);
    function getTriggerTimeOut:integer;
  end;

Ansprechen möchte ich die Kameras allerdings über das Interface, so dass sie wie gesagt untereinander austauschbar sind. Und dass ich ohne weiteres neue Kameras hinzufügen kann.

Delphi-Quellcode:

var
  Cam : ICamera;
begin
  Cam := TKamera1.create;
  Cam.setExposureTime(1000);
end;

Gibt es da vielleicht ein geschicktes Entwurfsmuster was mir dabei helfen kann?

// Edit: Fehler mit create behoben

[Phoenix]

Ja, dann mache für jede dieser zusätzlichen Funktionen, die einzeln auftreten können, ein weiteres Interface.

Du kannst dann ja auf dem Objekt letzlich abfragen, ob die gerade aktuelle Kamera dieses Interface implementiert und wenn ja, dann diese Methode nutzen.

[xaromz]

Hallo,

da hilft doch wieder die gute alte Vererbung:
Du erstellst ein Interface mit den allgemeinen Methoden und leitest davon wiederum die speziellen ab. Das gleiche machst Du mit den Klassen:

Delphi-Quellcode:

type
  ICamera = interface(IInterface)
    procedure Initialize; 
    function  getBild:SpectrumArray; 
    procedure setExposureTime(msTime : integer); 
    function getExposureTime: integer; 
  end; 

  ICamera1 = interface(ICamera)
    procedure setTriggerTimeOut(mode : integer); 
    function getTriggerTimeOut:integer;
  end;

  TKamera = class(TInterfacedObject, ICamera) 
    procedure Initialize; 
    function  getBild:SpectrumArray; 
    procedure setExposureTime(msTime : integer); 
    function getExposureTime: integer; 
  end;

  TKamera1 = class(TKamera, ICamera1)
    procedure setTriggerTimeOut(mode : integer); 
    function getTriggerTimeOut:integer;
  end;

Das war's schon.

Jetzt kannst Du bei jeder Klasse auf die allgemeinen Methoden zugreifen und zusätzlich jeweils auf die speziellen.

Gruß
xaromz

[Apollonius]

Was soll denn das Create im letzten Code-Teil?

Du kannst in den Kameras, die mehr Funktionalität bieten, so viele Methoden wie du willst reinpacken. Der Punkt ist eben, dass im Interface nur die Funktionen ansprechbar sind, die auch im Interface deklariert sind. Anders gesagt: Du kannst eine TKamera2 genauso über ein ICamera ansprechen wie eine TKamera1, aber mit der Interface-Variablen hast du keinen Zugriff auf Set- und GetTriggerTimeout.
Wenn es jedoch mehrere Kameras gibt, die Set- und GetTriggerTimeout implementieren, kann es nützlich sein, ein Interface IExtendedCamera = interface(ICamera) mit diesen Methoden zu erstellen, über das du dann die "besseren" Kameras austauschen kannst.