hi,
wie oben schon gesagt, in etwa so:
Delphi-Quellcode:
bmp := tbitmap.create;
jpg := tjpegimage.create;
try
jpg.loadfromfile(opendialog1.filename);
bmp.assign(jpg);
jpg.compressionquality := 50;
jpg.assign(bmp);
jpg.savetofile('c:\1.jpg');
jpg.loadfromfile('c:\1.jpg');
image1.picture.assign(jpg)
finally
bmp.free;
jpg.free
end;