Umwandlung jpeg --> Bitmap hier: Zeitbedarf

[Dani]

Vielleicht hilft das:

Ich habe Delphi 6 Prof und in folgendem Code ist Img.Bitmap ein ungültiger Bezeichhner.

Delphi-Quellcode:

uses Jpeg

...

procedure TForm1.Button1Click(Sender: TObject);
var Img: TJpegImage;
    Bmp: TBitmap;
begin
  Img := TJpegImage.Create;

  Img.LoadFromFile('C:\1.jpg');

  Bmp := Img.Bitmap;

  with Bmp.Canvas do begin
     Brush.Style := bsSolid;
     Brush.Color := clGreen;
     Pen.Color := clPurple;
     FillRect(Rect(0,0,20,20));
  end;

  Bmp.SaveToFile('C:\1.bmp');
end;

Leitet man eine neue Klasse von TJpegImage ab, ohne irgendwas hinzuzufügen, ist es plötzlich sichtbar.

Delphi-Quellcode:

uses Jpeg

...

type
  TJpegImage2 = class(TJpegImage)
  private
  protected
  public
  published
  end;

...

procedure TForm1.Button1Click(Sender: TObject);
var Img: TJpegImage2;
    Bmp: TBitmap;
begin
  Img := TJpegImage2.Create;

  Img.LoadFromFile('C:\1.jpg');

  Bmp := Img.Bitmap;

  with Bmp.Canvas do begin
     Brush.Style := bsSolid;
     Brush.Color := clGreen;
     Pen.Color := clPurple;
     FillRect(Rect(0,0,20,20));
  end;

  Bmp.SaveToFile('C:\1.bmp');
end;

Fragt mich nicht, warum.