Salut
je peut exporte Image comme .bmp mais je voudrais ausssi comme .jpeg soufgarder
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 Pointerend;
end;
end;