Kann meine Komponente nicht installieren!!

[F.W.]

Ich versuche meine Komponente (TBitmapStream) zu installieren, aber er meckert immer:

"[Fehler] ImageStream.pas(36): Inkompatible Typen: 'TComponentClass' und 'Class reference'"

Delphi-Quellcode:

type
  TBitmapStream = class(TMemoryStream)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    function Count: Integer;
    function AddBMP(BMP: TBitmap): Integer;
    procedure LoadFromImageList(const IL: TImageList);
    procedure SaveToImageList(var IL: TImageList);
    procedure GetBMP(const Index: integer; var BMP: TBitmap);
    procedure Delete(const Index: Integer);
    procedure InsertBMP(BMP: TBitmap; const Index: Integer);
    procedure SaveToFile(const AFileName: TFileName);
    procedure LoadFromFile(const AFileName: TFileName);
    procedure Clear;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('Beispiele', [TBitmapStream]);
end;

Was kann ich machen?

[Dani]

Hi, TMemoryStream ist kein Nachfahre von TComponent, deshalb klappt die Registrierung nicht.

Lösung: TBitmapStream von TComponent ableiten und ein Feld vom Typ TMemoryStream hinzufügen.

Delphi-Quellcode:

type
  TBitmapStream = class(TComponent)
  private
    FStream: TMemoryStream;
  protected
    { Protected-Deklarationen }
  public
    function Count: Integer;
    function AddBMP(BMP: TBitmap): Integer;
    procedure LoadFromImageList(const IL: TImageList);
    procedure SaveToImageList(var IL: TImageList);
    procedure GetBMP(const Index: integer; var BMP: TBitmap);
    procedure Delete(const Index: Integer);
    procedure InsertBMP(BMP: TBitmap; const Index: Integer);
    procedure SaveToFile(const AFileName: TFileName);
    procedure LoadFromFile(const AFileName: TFileName);
    procedure Clear;
    { Public-Deklarationen }
  published

  end;

Dann nur noch Contructor und Destructor hinzufügen, wo FStream erzeugt bzw. zerstört wird.
PS: Das "var" ist bei Parametern, die Objekte sind, zwar nicht nötig, aber es schadet eigentlich auch nicht. (imho)

[Dax]

Dass du den Fehler nicht siehst..

RegisterComponents registriert Komponenten, die (logischerweise) von TComponent abgeleitet sind. TMemoryStream ist aber TCostumMemoryStream <- TStream abgeleitet. Du könntest höchsten RegisterClass benutzen..

[F.W.]

Hmmm, stimmt!

Zitat:

Dass du den Fehler nicht siehst..

>>Sorry! Hab bisher noch nie von TStream oder so abgeleitet, immer nur von Sachen die schon in der Componentenpalette stehen!

Danke!