Discussion :

[achambily]

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 ?

[tourlourou]

1) ???

2) ton fichier initial doit débuter par : FFD8 FFE1 puisque c'est un EXIF
le mot suivant vaut la longueur de la section EXIF + 2 octets
en sautant cette longueur, le prochain FFD8 marque le début de la photo elle-même.
résumons-nous : tu colles tout ce qui précède ce FFD8 avant le JPEG que tu as sauvé, et hop !

obstacles : la vignette incluse dans les données EXIF ne correspond plus à l'image principale

[achambily]

oula oula que tout ça est compliqué pour le programmeur amateur que je suis...
moi je veux juste un truc qui charge l'image (avec tout)
qui me laisse faire mes modifs
et qui me resauve le tout sans me péter à la tronche passque le fichier es trop gros...
mais merci quand meme !

[Graffito]

Bonjour,

Je ne pense pas que les composants VCL standard traite les EXIF.

Peut-être regarder du coté de EXIF disponible avec souces :
http://mcguirez.homestead.com/downloads.html

"dEXIF is a Delphi open source library for reading EXIF information from JPEG image files. It is 100% Delphi, and VCL free.

dEXIF provides a fairly fast way to extract EXIF information from JPEG image files.
dEXIF provides a simple way to extend manufacturer specific information through the msData module. Manufacturer information is provided for Canon, Casio, Fuji, Nikon, and Olympus cameras".

[achambily]

Je ne pense pas que les composants VCL standard traite les EXIF.

en 2006, c quand même triste...

[claudemartial]

Je viens de rencontrer ton premier problème (erreur #36).

Je l'ai à chaque fois sur un fichier et je le fait disparaître en diminuant le taux de compression à 75.

Pour les les données EXIF, je ne maitrise pas.

[exoseven]

essayes d'utiliser jpeg_io pour corriger le bug #36

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  unit JpegErrors;
 
interface
 
const
  cstrJVERSION = '6a  7-Feb-96';
  cstrJCOPYRIGHT = 'Copyright (C) 1996, Thomas G. Lane';
 
cstrJERR_FILE_WRITE = 'Output file write error --- out of disk space?'; // erreur 36