Discussion :

[ThWilliam]

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

[Jipété]

(...) Voyez-vous une solution ?

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

[ThWilliam]

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

Code :

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

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.

[Jipété]

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 :

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

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 :

invalid TIFF directory; tags are not sorted in ascending order

[ThWilliam]

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

[ThWilliam]

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

[Jipété]

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

[Jipété]

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.

[ThWilliam]

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 :

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

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 :

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

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

[Jipété]

Yep !

Salut Jipété,

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

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

(...) 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é !
[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]

(...) 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,

[ThWilliam]

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

[Jipété]

Salut, 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 ) 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,

Je pense que tu peux cliquer sur (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 :

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

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 :

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

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

[ThWilliam]

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