Bild immer als Bitmap

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