Klassen, Vererbung und CAST

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

[bernhard_LA]

Die Parameter Übergabe mit Procedure ProcessThisBitmap ( abmp as TBitmap) liefert bei mir folgenden Fehler :

Zitat:

[dcc64 Error] Unit_Testcases.pas(646): E2015 Operator not applicable to this operand type

auch der Versuch die Höhe / Weite nochmals expliziert zu setzen liefert keine Verbesserung- Beim Zugriff auf .width oder .height bekomme ich eine Zugriffsverletzung in der Unterrutine.
Der Aufruf von .width .height innerhalb des Codeblocks der Definition der Variablen funktioniert problemlos

Delphi-Quellcode:

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;


      BMP.SetSize(jpeg.Width,jpeg.Height);

      Assign(JPEG);

      // PixelFormat := pf24bit;

    end;

  finally
    JPEG.Free;
  end;

end;

[gubbe]

Wenn Du jetzt schon wieder Probleme mit dem Typ von TBitmap hast, solltest Du vielleicht erst mal unsere Hinweise dazu lesen. Ich kann nicht erkennen, dass dies gelöst ist. Statt dessen stellst Du neue Fragen.

[DeddyH]

Ich verstehe auch nicht, was Du da tust. Wie wäre es denn hiermit?

Delphi-Quellcode:

type
  TBitmapHelper = class helper for Vcl.Graphics.TBitmap
    procedure LoadJPEG(Filename: string);
  end;

...

implementation

{$R *.dfm}

uses jpeg;

{ TBitmapHelper }

procedure TBitmapHelper.LoadJPEG(Filename: string);
var
  lJPG: TJPEGImage;
begin
  lJPG := TJPEGImage.Create;
  try
    lJPG.LoadFromFile(Filename);
    Assign(lJPG);
  finally
    lJPG.Free;
  end;
end;

// Benutzung:
procedure TFormDingens.MachWas;
var
  lBMP: TBitmap;
begin
  lBMP := TBitmap.Create;
  try
    lBMP.LoadJPEG(JPEGFilename);
    lBMP.SaveToFile(BMPFilename);
  finally
    lBMP.Free;
  end;
end;

[edit] Benutzungsbeispiel ergänzt [/edit]