Discussion :

[Ricquet]

Par ex, avec ce code qui consiste à effectuer un flip (retournement mirroir)
je perd le header, hors j'ai besoin de le récupérer (avec nouvelles infos de dimensions si rotation) et l'inserrer dans jpg1...

Code :

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

1
2
3
4
5
6
7
8
 
Try MyBmp := TBitmap.create;
  Jpg1.loadfromfile(fichier); 
  MyBmp.Assign(jpg1);
  MyBmp.Canvas.StretchDraw(Rect(MyBmp.width-1, 0, -1, MyBmp.height), MyBmp) ;
  jpg1.Assign(MyBmp);
Finally mybmp.free end;
Jpg1.saveTofile(fichier);

avez vous une suggestion ?

[tourlourou]

qu'appelles-tu le header ?
les infos exif ?
si c'est le cas, il peut suffire de modifier le Tag Orientation : tu garderas l'image primitive, mais le viewer saura dans quel "sens" l'afficher

[Clorish]

T'as essayé un appel a DIBNeeded, puis un assign vers un BMP, rotation et enfin un second assign vers le JPG original, suivit d'un JPEGNeeded ...

Avec un peu de chance, les parametres du Jpeg restent inchangés.

[Mac LAK]

J'ai ressorti les fonds de tiroir (vieille QR jamais finalisée...).

Une librairie permet apparemment les transformations JPEG sans pertes : http://xnview.com/fr/download_gfl.html et avec une interface Delphi.

Ensuite, tu effectue une commande de ce genre :

Code :

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

1
2
3
uses libgfl; 
... 
gflJpegLosslessTransform(PChar(FichierJPG),GFL_LOSSLESS_TRANSFORM_ROTATE90);

Reste juste à savoir si cela peut résoudre ton problème. Sinon, faudra lire l'entête EXIF existant, et remettre ces informations dans l'image finale. Ce qui n'est pas foncièrement évident, c'est un sacré sac de nœuds cet entête...

[tourlourou]

yes, tu as aussi l'unité que j'ai écrite : http://www.phidels.com/php/index.php...ip.php3&id=616