Bild immer als Bitmap

[stahli]

Hi alle,

ich lade eine bmp- oder jpg-Datei in ein TImage.
Ich möchte aber das Bild immer als Bitmap weiterverarbeiten, damit ich Bildteile in ein anderes Bitmap kopieren kann.
Wie kann ich das am besten umwandeln?
Der Weg über speichern und neu laden würde mir reichen, funktioniert aber leider auch nicht...

Delphi-Quellcode:

uses
  ... jpeg...

  if (OpenPictureDialog1.Execute) then begin
    ImageMain.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    ImageMain.Picture.SaveToFile(Path + 'tmp.bmp');
    ImageMain.Picture.LoadFromFile(Path + 'tmp.bmp');
    ...
  end;

  ImageTmp.Picture.Bitmap.Canvas.CopyRect(DR, ImageMain.Canvas, SR);

Danke
Stahli

[Matze]

Hallo Stahli,

ich hab's nur schnell runtergetippt:

Delphi-Quellcode:

var
  jpg: TJPEGImage;
  bmp: TBitMap;
begin
  if OpenDialog1.Execute then
  begin
    bmp := TBitMap.Create;
    try
      // JPEG-Bild
      if IsJPEG(OpenDialog1.FileName) then
      begin
        jpg := TJPEGImage.Create;
        try
          jpg.LoadFromFile(OpenDialog1.FileName);

          // die Umwandlung
          bmp.Assign(jpg);
        finally
          FreeAndNil(jpg);
        end;
      end else
      // kein JPEG-Bild (ich setze voraus, dass es dann ein Bitmap ist)
      begin
        bmp.LoadFromFile(OpenDialog1.FileName);
      end;

      // hier hast du nun dein Bitmap und kannst damit weiterarbeiten

    finally
      FreeAndNil(bmp);
    end;
  end;
end;

Die Funktion IsJPEG findest du in der Code-Library.

Grüße

Edits: So runtertippen ist doch nicht ohne. *g*

[stahli]

Vielen Dank, hat wunderbar funktioniert