Klassen, Vererbung und CAST

[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.

[gubbe]

Überprüfe doch einfach mal die Reihenfolge des per uses eingebundenen Units.
Wenn Du schon oben explizit "VCL.Graphics.TBitMap" angeben musst, dann steht im interface Abschnitt wahrscheinlich

Uses VCL.graphics, WinApi.Windows

Vertausche das und dann solltest Du auch überall das gleiche TBitmap haben.

[bernhard_LA]

wie müsste ich meine code erweitern damit

Zitat:

FImage.FDIB.dsBm

angelegt wird ?

Delphi-Quellcode:

procedure   TBitMapExtension.LoadFromFile(const Filename: String);
var
  flag: bool;
begin

  /// ....   für alle unterschiedlichen Grafiktypen 

  if (Lowercase(ExtractFileExt(Filename)) = '.jpeg') then
  begin
    LoadJPEG(self, Filename);
    flag := TRUE;
  end;

end;


procedure LoadJPEG(Bmp: TBitMap; Filename: string);
var
  JPEG: TJPEGImage;

begin
  JPEG := TJPEGImage.Create;
  try
    JPEG.LoadFromFile(Filename);

    with Bmp do
    begin

      PixelFormat := pf16bit;
      // Width := jpeg.Width;
      // Height := jpeg.Height;

      Assign(JPEG);

      // PixelFormat := pf24bit;

    end;

  finally
    JPEG.Free;
  end;

end;