bmpZUjpeg ?

[taktaky]

Hallo,

Ich möchte mein Image nicht nur als .bmp sondern auch als .jpeg
so versuche ich das Image zu convertieren und gleichzeitig speichern :

Delphi-Quellcode:

function BmpToJpeg(bmp:TBitmap):TJpegImage;
begin
  BmpToJpeg := TJpegImage.Create;
  BmpToJpeg.Assign(bmp);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  saveDialog1.DefaultExt := '.bmp';
  if savedialog1.Execute then
    begin
      If ExtractFileExt(SaveDialog1.Filename) = '.bmp' then
          image1.picture.savetofile(SaveDialog1.FileName); // ok
      If ExtractFileExt(SaveDialog1.Filename) = '.jpeg' then
         BmpToJpeg(image1.picture.savetofile(SaveDialog1.FileName)); // Untyped Pointer

end;
end;
end;