Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.137 Beiträge
 
Delphi 11 Alexandria
 
#1

Klassen, Vererbung und CAST

  Alt 12. Nov 2024, 17:45
Delphi-Version: 11 Alexandria
ich habe eine Klasse TBitMapExtension welche über ihre LoadFromFile, SaveToFile in der Lage ist eine Vielzahl von Grafikformaten (*.jpg, *.tig, *.png) zu verarbeiten
Über einen Cast übergebe ich die Klasse an eine Funktion welche für den Dateityp TBitmap entworfen wurde.



Delphi-Quellcode:
  TBitMapExtension = Class(VCL.Graphics.TBitMap)

    procedure LoadFromFile(const Filename: String); override;

    procedure SaveToFile(const Filename: String); override;

  public
    ......
  end;


Delphi-Quellcode:
  Procedure verarbeiteBMP ( ambp : TBitmap)
  begin
          w := abmp.width; // hier kommt es zur AV
  end;




Delphi-Quellcode:
   /// Hauptprogramm
   bmp := TBitMapExtension.Create;
   bmp.loadfromFile();
   verarbeiteBMP( TBitmap(bmp));


Warum bekomme ich in der Funktion verarbeiteBMP eine Zugriffsverletzung wenn ich die Weite eine Bitmap auswerten will ?
  Mit Zitat antworten Zitat