TTiffImage en 24 bits ?

Bonjour à tous,

Pour enregistrer au format tiff, j'utilise TTiffImage qui me donne accès aux infos(description, date...) ce que ne permet pas le writertiff.
Pas de problèmes, sauf que le fichier créé est d'office en 32bits, ce qui m'oblige à passer par Photoshop pour "aplatir" l'image.
TTiffImage a pourtant une propriété PixelFormat, mais si je l'utilise, j'ai soit un fichier à 0 octets, soit une image noire (selon la méthode utilisée).
Et ceci, même en partant d'un simple TBitmap en pf24bit.

Voyez-vous une solution ?

Merci d'avance.

Thierry

Citation:

---

Envoyé par ThWilliam

(...) Voyez-vous une solution ?

---

Difficile, sans voir la moindre ligne de code...

Le code est tout simple. Je pars d'un BGRABitmap, mais avec un simple TBitmap, cela revient au même.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

function SaveToTiff(AFileName: string; Bmp: TBGRABitmap): boolean; var Tiff: TTiffImage; begin Tiff:= TTiffImage.Create; try try // Tiff.PixelFormat:= pf24bit; // ici, cela ne sert à rien (normal avant l'assign) Tiff.Assign(Bmp); //Tiff.PixelFormat:= pf24bit; // ici j'obtiens un fichier 0 octet Tiff.ImageDescription:= 'test'; //... Tiff.SaveToFile(AFileName); Result:= true; except Result:= false; end; finally Tiff.Free; end; end;

---

J'ai également remplacé l'assign par une copie canvas sur canvas, mais sans résultat.

Citation:

---

Envoyé par ThWilliam

Le code est tout simple. Je pars d'un BGRABitmap, mais avec un simple TBitmap, cela revient au même.

---

Encore plus simple : suis parti d'une maquette vit'fait avec une TImage sur une Form dans laquelle je charge un tiff.
J'ai rajouté un bouton dans lequel j'ai mis ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.Button1Click(Sender: TObject); var p: string; Tiff: TTiffImage; begin p := ExtractFilePath(Application.ExeName); Tiff:= TTiffImage.Create; try try Tiff.PixelFormat:= pf24bit; // ici, cela ne sert à rien (normal avant l'assign) // Tiff.Assign(Bmp); Tiff.Assign(Image1.Picture.Bitmap); //Tiff.PixelFormat:= pf24bit; // ici j'obtiens un fichier 0 octet Tiff.ImageDescription:= 'test'; //... Tiff.SaveToFile(p + 'AFileName.tiff'); //Result:= true; except //Result:= false; end; finally Tiff.Free; end; end;

---

Et ma foi ça le fait.
Bon, il y a un micro-bug remonté par The Gimp lors de la vérification :

Citation:

---

invalid TIFF directory; tags are not sorted in ascending order

---

Merci pour ton test, Jipété.

Quand tu dis "ça le fait" : obtiens-tu un tiff en 24bits (sans calque) ? (facile à vérifier avec la taille du fichier)
Pas de bug annoncé par Photoshop concernant les Tags. Tous ceux que j'ai renseignés sont bien là.

Thierry

Non, je viens de tester en partant de TImage, et j'obtiens toujours un tiff avec calques.

J'obtiens un fichier avec 1 seul calque, mais avec 4 canaux : R, G, B et A pour la transparence...

Salut,

après manger j'ai refait quelques recherches, tests et essais, et comme beaucoup le disent sur des forums, le graphisme sous Lazarus c'est un truc à finir fou : il y en a partout, ça se mord la queue, il y a des machins intermédiaires, on ne sait pas qui fait quoi, la doc est nulle ou inexistante ou buggée, la complétion de code propose des choses que le compilateur refuse, bref je jette l'éponge.
Bon courage.

Avant de plier et de faire le ménage sur mon bureau, je t'invite cependant à lire cette discussion pas bien vieille, où on s'est joyeusement pris la tête entre les 24 et les 32 bits.
Peut-être y trouveras-tu une illumination, moi j'ai la tête gonflée, ce soir, après une semaine de bataille avec fpreadtiff.pas.

Salut Jipété,

Tu as raison, le graphisme en Lazarus c'est un truc de fou.
Comme TBitmap n'a pas repris le Scanline de Delphi, j'ai essayé d'autres bibliothèques : VampyreImaging, OpBitmap... puis j'ai porté mon choix sur BGRABitmap dont je dois dire que le ScanLine est même plus rapide que sous Delphi.

Hier soir, en fouinant dans les fichiers sources concernant le Tiff, j'ai trouvé d'où vient le problème.

Code:

---

1 2 3 4 5 6 7

Unit FPWriteTif: SamplesPerPixel:=3; // donc on est bien en 24 bits, mais c'est suivi par : AlphaBits:=StrToIntDef(Img.Extra[TiffAlphaBits],8); if AlphaBits>0 then begin BitsPerSample[SamplesPerPixel]:=AlphaBits; inc(SamplesPerPixel); end;

---

donc, si on n'a pas défini le TiffAlphaBits, on repasse en 32 bits.

Voici la solution que j'ai trouvée. Elle vaut ce qu'elle vaut, mais ça marche.
En partant d'un Tbitmap, il me faut 2 Lazintfimage.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

function SaveToTiff(AFileName: string; Bmp: TBitmap): boolean; var TempImg, Img: TLazintfimage; ImgFormatDescription: TRawImageDescription; Writer: TFPWriterTiff; begin Img:= TLazintfimage.Create(0,0); Writer:= TFPWriterTiff.create; try try TempImg:= Bmp.CreateIntfImage; // conversion de TBitmap vers Lazintfimage ImgFormatDescription.Init_BPP24_B8G8R8_BIO_TTB(Bmp.Width,Bmp.Height); // 24 bits Img.DataDescription:=ImgFormatDescription; Img.Extra[TiffAlphaBits]:= '0'; // obligatoire // par Extra j'ai accès à pas mal de choses, dont la compression //Img.Extra[TiffCompression]:= '5'; // compression LZW Img.CopyPixels(TempImg); // évidemment pas de Assign !!! Img.SaveToFile(AFileName, Writer); Result:= true; except Result:= false; end; finally TempImg.Free; Img.Free; Writer.Free; end; end;

---

Résultat : un fichier Tiff en 24bits, et la compression marche aussi.

Bon W.E.

Thierry

Yep !

Citation:

---

Envoyé par ThWilliam

Salut Jipété,

Tu as raison, le graphisme en Lazarus c'est un truc de fou.(...)

---

:ptdr:
Oh ben oui : Ctrl-Clic sur Img.DataDescription ouvre IntfGraphics.pp, et Ctrl-Clic sur Img.Extra ouvre FPimage.pas :koi:

Citation:

---

Envoyé par ThWilliam

(...) En partant d'un Tbitmap, il me faut 2 Lazintfimage.

---

Je me doutais d'un plan comme ça mais je ne voyais pas trop comment le mettre en œuvre.
Bien joué ! :ccool:
[EDIT] Un grand, un énorme bravo, parce que Extra n'est pas dans l'aide de TLazIntfImage : où as-tu trouvé ce truc-là ? [/EDIT]

Citation:

---

Envoyé par ThWilliam

(...) Résultat : un fichier Tiff en 24bits, et la compression marche aussi.

---

Alors là, moi je dis "méfiance" avec la compression : vérifie bien que tu peux ouvrir ton fichier Tiff comprimé LZW, car, au risque de me répéter, j'ai eu un énorme souci en début de semaine.
Je te la refais courte :
j'avais besoin de fichiers un peu gros pour des tests ; j'ai pris une douzaine de jpeg complètement au pif, je les ai ouverts avec The Gimp puis exportés en Tiff comprimés LZW et sur les 12 fichiers résultants il y en a un qui ne s'ouvre pas avec fpreadtiff.pas !
(mais il s'ouvre parfaitement avec d'autres outils, sous XP, etc., donc c'est pas un pb de fichier).

[EDIT] Bon, j'ai testé ta fonction avec compression, ma foi, ça a l'air de fonctionner tip-top ! [/EDIT]

Bon week,

Salut Jipété.

Où j'ai trouvé ce truc là ?
J'ai exploré l'unit FPWriteTiff où j'ai découvert l'existence des "extras".
Je les ai retrouvés dans l'unit FPTiffcmn : dans cette unité, tu as la liste de tous les extras (description, compression, date...).
Il me suffisait de trouver un composant qui rend public les extras : TLazIntfImage.

C'est quand même bizarre de ne pas avoir accès à Extras à partir du writer, ou à partir de TTiffImage !!!
Cela donne l'envie de refaire la classe TTiffImage...
Et à mon avis (mais je ne l'ai pas testé), TJpegImage ne donne pas accès aux données Exif.
Un peu tordu tous ces codes... Mais pourquoi faire simple alors qu'on peut faire compliqué ? ;)

A +
Thierry

Salut, ThWilliam,

Citation:

---

Envoyé par ThWilliam

(...) Et à mon avis (mais je ne l'ai pas testé), TJpegImage ne donne pas accès aux données Exif.
Un peu tordu tous ces codes... Mais pourquoi faire simple alors qu'on peut faire compliqué ? ;)

---

Exact, je m'en suis rendu compte hier après-midi (je l'ai exploré aussi :mrgreen:) en cherchant un accès simple et rapide à la vignette en général générée par les APN et donc incluse dans le fichier : hé bien c'est mission impossible, et c'est bien dommage.

Merci de ton retour, bonne journée, bons codes, 8-)

Je pense que tu peux cliquer sur :resolu: (tout en bas du premier post), mais juste un mot pour ceux qui liront tout ça plus tard, et qui risquent de coincer sur ce micro-souci : tu as écrit

Code:

---

1 2 3

Img.Extra[TiffAlphaBits] := '0'; // obligatoire // par Extra j'ai accès à pas mal de choses, dont la compression //Img.Extra[TiffCompression] := '5'; // compression LZW

---

et chez moi pour que ça fonctionne il faut des simples quotes :

Code:

---

1 2 3

Img.Extra['TiffAlphaBits'] := '0'; // obligatoire // par Extra j'ai accès à pas mal de choses, dont la compression Img.Extra['TiffCompression'] := '5'; // compression LZW

---

;)

Re bonjour Jipété,

Dans l'unité fpTiffcmn, TiffAlphaBits est une constante qui = 'TiffAlphaBits'.
Mais si dans les uses tu ne déclares pas fpTiffcmn, de fait, il faut utiliser les simples quotes ('TiffAlphaBits').

A +
Thierry