Klassen, Vererbung und CAST

[bernhard_LA]

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 ?

[Olli73]

Lass Mal den Cast auf TBitmap weg. Den brauchst du hier nicht, da von TBitmap abgeleitet wurde

[Olli73]

Oder ist es dort ein anderes TBitmap als VCL.Graphics.TBitMap?

[jziersch]

Zitat von bernhard_LA:

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

Die TBitmap hat selber keine breite - beim auslesen wird eine interne DIB abgefragt, also FImage.FDIB.dsBm. Vermutlich ist in Deinem Fall FImage nicht zugewiesen.

Du müsstest also beim LoadFromFile dieses DIB anlegen.

[bernhard_LA]

kurze Rückmeldung :

ohne den cast auf TBitmap compiliert mein code nicht

[himitsu]

Dann hat die Variable "bmp" den falschen Typ!

Und abhängig davon, erlaubt der Compiler, dass dort etwas rein kommt, was kein TBitmap oder Nachfahre ist, womit dieser harte Cast alles noch schlimmer machen wird.


Wenn du dich nicht mit Casts auskennst, dann verwende niemals harte, sondern nur weiche Casts.
hart: TBitmap(bmp) ( @Compiler: MACH ES, ich weiß was ich tue und falls nicht ... selbst Schuld)
soft: (bmp as TBitmap) (lieber Compiler, mach es bitte und wenn falsch, dann hau mir eine runter, damit ich es lerne)

[jziersch]

Eine TBitmap gibt es auch in WinAPI.Windows: TBitmap = tagBITMAP;

verarbeiteBMP() verwendet vielleicht diesen Typ. Am Besten auch dort den namespace VCL.Graphics. angeben.

[Olli73]

Zitat von jziersch:

Eine TBitmap gibt es auch in WinAPI.Windows: TBitmap = tagBITMAP;

verarbeiteBMP() verwendet vielleicht diesen Typ. Am Besten auch dort den namespace VCL.Graphics. angeben.

Womit wir wieder bei Beitrag #3 wären

[Blup]

Übergeben wird ein Nachkomme von "VCL.Graphics.TBitMap".

Delphi-Quellcode:

...
verarbeiteBMP( TBitmap(bmp));

Das ruft ja richtig: "Ich bin keine Nachkomme von der TBitmap-Klasse, die diese Funktion erwartet."

Siehe himitsu, so bekommt man auch die richtige Fehlermeldung und läuft nicht in eine Zugriffsverletzung:

Delphi-Quellcode:

...
verarbeiteBMP(bmp as TBitmap);

[DeddyH]

Wie schon erwähnt wäre der Cast auf TBitmap eh unnötig, wenn alles richtig wäre.

Zitat von bernhard_LA:

kurze Rückmeldung :

ohne den cast auf TBitmap compiliert mein code nicht

Da sollte man doch stutzig werden und die Compiler-Meldungen lesen.