Verständnisfrage zu Interfaces

[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