Bonjour à tous.

Bon alors voila. Quand je fais ça :

PROCEDURE SaveToJPG(Bitmap:TBitmap; JPGName:STRING; quality:integer);
VAR JPEG : TJPEGImage;
BEGIN
JPEG := TJPEGImage.Create;
TRY
JPEG.CompressionQuality:=quality; // 100 pour qualité max, 75 = courant
JPEG.Assign(Bitmap);
JPEG.SaveToFile(JPGName);
FINALLY
JPEG.Free
END
END {SavetoJPG};

avec une image assez grosse (genre >2Mo), j'obtiens (de façon aléatoire et pas forcément reproductibe) une erreur JPEG #36... Quelqu'un connait-il la parade ?

D'autre part, quand j'enregistre ainsi un fichier JPG modifié, je perds les données EXIF de l'original... Quelsu'un sait-il comment ne pas les perdre ?