Projet intéressant tiff2bmp.zip

**colorid** · 30/11/2013, 19h40

En décompressant le fichier zip à l'adresse :

http://delphi.icm.edu.pl/ftp/d20free/tiff2bmp.zip

On obtient un projet delphi qui permet de charger un fichier TIF sans problème si le tif est en couleur 24 bits. Par contre impossible de charger un fichier TIFF 1bit.

Y aurait-il un spécialiste qui peut corriger les sources pour pouvoir lire un fichier TIFF 1bit ?

Si oui ce serait formidable

**Jipété** · 01/12/2013, 01h17

Salut,

Envoyé par colorid

(...) Y aurait-il un spécialiste qui peut corriger les sources pour pouvoir lire un fichier TIFF 1bit ?

Si oui ce serait formidable

Je vais faire mon ch13ur, mais tu devrais fournir un fichier qui pose problème, parce que, tant bien j'en crée un avec un logiciel quelconque et ça passe : on n'est pas avancé

Envoyé par colorid

(...) Par contre impossible de charger un fichier TIFF 1bit.

Message d'erreur ?

[ EDIT ] : je viens de tester viteuf' avec Lazarus sous Debian, j'ai pris la première tiff qui me tombait sous la main et je gagne :

Cant read compressed RGB Full Color Image

Tu vois ce que je veux dire quand je parle de fournir un fichier ?

**colorid** · 01/12/2013, 08h39

Problème: la fonction pièce jointe du site refuse les TIF 1bit. Elle me met l'erreur "fichier invalide". J'ai essayé de t'envoyer le PDF correspondant d'où tu aurais pu extraire l'image 1bit mais le site refuse les fichiers supérieurs à 2Mo et le mien fait 2.21 Mo

C'est du lourd car il s'agit d'un composant pour imprimerie. L'image 1bit représente la forme imprimante, c'est à dire que chaque pixel ouvert laisse passer l'encre l'autre pas...

Peux-tu me donner une adresse mail où je peux t'adresser l'image TIF en pièce jointe ?

Mon problème est de convertir un Tif 1bit en BMP 1bit.

Merci de ton concours.

**Jipété** · 01/12/2013, 11h32

Salut salut (bien matinal pour un dimanche, je trouve

)

Envoyé par colorid

Problème: la fonction pièce jointe du site refuse les TIF 1bit. Elle me met l'erreur "fichier invalide". J'ai essayé de t'envoyer le PDF correspondant d'où tu aurais pu extraire l'image 1bit mais le site refuse les fichiers supérieurs à 2Mo et le mien fait 2.21 Mo
(...)
Peux-tu me donner une adresse mail où je peux t'adresser l'image TIF en pièce jointe ? (...)

Bon, avec un éditeur graphique tu coupes ton fichier en deux, il sera deux fois moins lourd (à la louche), et on s'en fiche pour le moment que l'image ne soit pas professionnellement valide, tant que sa structure TIF est bonne.
Et ensuite, plutôt que de l'extraire d'un pdf, pourquoi ne zippe-tu pas ce demi .TIF ?
Même s'il n'y a pas de compression, le site accepte les zip, donc pas de souci, et d'autres pourront participer

Tu n'indiques pas le message d'erreur retourné par le logiciel quand tu essayes d'ouvrir ce fichier...

**tourlourou** · 01/12/2013, 11h57

Sans oublier les sites d'UpLoad où on peut stocker un fichier puis publier un lien de téléchargement.
Ceci permettant à plusieurs personnes intéressées de tester la fonction, dans différents environnements.

En outre, je plussoie Jean-Pierre : une description précise de l'erreur aiguillerait le chaland !

**tourlourou** · 01/12/2013, 12h34

Dans ReadTIFF.pas , mon premier exemple de TIFF 1 Bit trouvé sur le net ne décode pas ; en effet :

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
29
30
31
32
33
procedure TIFFBilevelImage(FileName : string; GraphTiff : TGraphicTiff; var Bitmap : TBitmap);
//...
begin
//...  
Compression := PTag^.Value;
  	// 1 = No Compression
    // 2 = CCITT Group 3 (1-Dimensional Modified Huffman run length encoding)
    // 32773 = PxckBits compression, a simple byte-oriented run length scheme.
 
	if Compression = 1 then			// NO Compression
  begin
    CreateBilevelColTab( PhotometricInterpretation );
 
    	// Read Image Data
		if ReadImageDataFromFile( FileName, ImageBuffer, GraphTiff) = 0 then
    begin
			AlignBmpRows(ImageBuffer, GraphTiff);
    	DisplayImage(ImageWidth, ImageHeight, 1, ImageBuffer, Bitmap);
      FreeMem(ImageBuffer);
    end
    else
    begin
  		showmessage('Error reading image data');
    end;
  end
  else
  begin
		showmessage('Cant read compressed bilevel image'+#13+#13+
  	            'feel free to implement this type of image'+#13+
    	          'and send it back to krug@sdm.de');
    exit;
  end;
end;

dans cet exemple Compression vaut 4 (4 = Facsimile-compatible CCITT Group 4) => décodage non implémenté : la librairie n'est pas forcément boguée : elle n'est pas complète !

A toi de définir précisément le besoin : TIFF 1 Bit avec quelle compression ? La librairie est-elle adaptée à ton besoin ou le format absent ?

**colorid** · 01/12/2013, 14h27

C'est en effet le message 'Cant read compressed bilevel image'+#13+#13+
'feel free to implement this type of image'+#13+
'and send it back to krug@sdm.de' qui est adressé lors de l'exécution de la conversion.

Je ne peux pas modifier le fichier TIFF produit par un logiciel externe.

Comment repérer la valeur du flag compression et comment la prendre en compte pour la conversion TIFF To Bitmap ?

Merci pour tes précieuses informations

**colorid** · 01/12/2013, 14h47

J'ai coupé le fichier TIFF avec Photoshop CS6, mais comme il faut paramétrer le TIF je ne suis pas certain de l'avoir correctement fait et de surcroît l'outil pièce jointe du site ne semble pas fonctionner sur ce format ! Si je te l'envoie en ZIP j'ai peur qu'il soit contaminé, as-tu une autre idée ?

**Jipété** · 01/12/2013, 14h54

Envoyé par colorid

C'est en effet le message 'Cant read compressed bilevel image'+#13+#13+
'feel free to implement this type of image'+#13+
'and send it back to krug@sdm.de' qui est adressé lors de l'exécution de la conversion.

Bon, c'est clair, le truc que tu as trouvé (et qui n'est pas tout jeune...) ne décode pas les fichiers compressés, donc ou tu oublies cet outil, ou tu trouves le moyen d'implémenter la décompression (je passe sur ce coup-là).

Envoyé par colorid

Je ne peux pas modifier le fichier TIFF produit par un logiciel externe.

Bien sûr que oui !
PaintShopPro, Photoshop, The GIMP pour n'en citer que trois : tu recopies ton image en "testbilevel.tif" par exemple, tu l'ouvres avec l'éditeur, tu sélectionnes la moitié ou le quart, puis "image / recadrer" et tu enregistres et hop !
Et tant qu'à enregistrer, pense à ne pas activer la compression, pour pouvoir vraiment tester le bilevel.
Edit : croisement de posts

Envoyé par colorid

Comment repérer la valeur du flag compression et comment la prendre en compte pour la conversion TIFF To Bitmap ?

C'est marqué dans le code :

Code :

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

1
2
3
4
  Compression := PTag^.Value;
  // 1 = No Compression
  // 2 = CCITT Group 3 (1-Dimensional Modified Huffman run length encoding)
  // 32773 = PxckBits compression, a simple byte-oriented run length scheme.

Ensuite il faut implémenter des routines de décompression, et comme dit plus haut, je passe...

[MP] Coucou, Yves !

Ah, quand j'ai vu venir ce problème, me suis douté que tu apparaîtrais,

Tu l'as trouvé où, ton sample ?

**Jipété** · 01/12/2013, 14h59

1 problème à la fois

Envoyé par colorid

J'ai coupé le fichier TIFF avec Photoshop CS6, mais comme il faut paramétrer le TIF je ne suis pas certain de l'avoir correctement fait

Que dit ton outil avec ce nouveau fichier ?

Envoyé par colorid

Si je te l'envoie en ZIP j'ai peur qu'il soit contaminé, as-tu une autre idée ?

Et pourquoi donc ? Ton zippeur inclut un virus dans l'archive ?

De toute façon, m'en fiche, suis sous Linux

Au pire il reste la soluce donnée par tourlourou, l'hébergeur (jamais utilisé en upload, j'sais pas comment ça fonctionne et je n'en connais pas)

**colorid** · 01/12/2013, 15h11

Mais comment sous delphi 2007 convertir un fichier TIFF 1bit en BMP 1bit ?

J'ai trouvé une librairie LibTiffDelphi mais qui ne fonctionne qu'à partir de XE

Il doit bien y avoir une solution Delphi 2007 quand Windows ne connaissait que le 32 bits

A vous

**Jipété** · 01/12/2013, 15h49

Envoyé par colorid

Mais comment sous delphi 2007 convertir un fichier TIFF 1bit en BMP 1bit ?

J'ai trouvé une librairie LibTiffDelphi mais qui ne fonctionne qu'à partir de XE

Enlève ce qui est spécifique à XE ?

Fais voir cette librairie (ou un lien).

**tourlourou** · 01/12/2013, 16h37

http://www.awaresystems.be/imaging/t...mpression.html
Ouch ! pour CCIT4, c'est pas d'la tarte ! http://www.fileformat.info/mirror/egff/ch09_05.htm ou http://www.mikekohn.net/file_formats/tiff.php

Possibilité d'utiliser la LibTiff ? http://www.libtiff.org/man/tiff2rgba.1.html

tiff2rgba [ options ] input.tif output.tif
OPTIONS
-c
Specify a compression scheme to use when writing image data: -c none for no compression (the default), -c packbits for the PackBits compression algorithm, -c zip for the Deflate compression algorithm, -c jpeg for the JPEG compression algorithm, and -c lzw for Lempel-Ziv & Welch.

@Jean-Pierre :

Je ne suis pas plus étonné de t'y voir !

**colorid** · 01/12/2013, 17h51

Le problème c'est que le fichier TIFF à convertir est sur 1bit alors que tiff2rgba convertit des Tiff 24bits

**colorid** · 01/12/2013, 18h09

avec LibTiffDelphi je suis arrivé à compiler mais le compilateur ne supporte pas la grosseur du fichier Tiff 1bitdui fait 3671 ko

Par contre je voulais essayer le code suivant :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
   t: TWICImage;
begin
   t := TWICImage.Create;
   t.LoadFromFile('MonFichier.TIF');// 3671 ko
   Image1.Picture.Bitmap.Assign(t);
end;

Il parait que cela fonctionne sous XE2 car on dispose VCL.Graphics qui supporte le type TWICImage. Sous Delphi 2007 Impossible d'installer VCL.Graphics

**Jipété** · 01/12/2013, 18h59

Envoyé par colorid

avec LibTiffDelphi je suis arrivé à compiler mais le compilateur ne supporte pas la grosseur du fichier Tiff 1bitdui fait 3671 ko

Super !
Où est ma boule de cristal, qu'on sache ce que dit le compilateur...

Parce que, je voudrais pas me fâcher, mais on te demande des trucs et tu ne réponds pas, tu pars ailleurs, alors bon...

Exemples :

Envoyé par Jipété

Que dit ton outil avec ce nouveau fichier ?

Pas de réponse.

Envoyé par Jipété

Ton zippeur inclut un virus dans l'archive ?

Pas de réponse.

Envoyé par Jipété

Fais voir cette librairie (ou un lien).

Pas de réponse.

- - - - -

Envoyé par tourlourou

@Jean-Pierre :

Je ne suis pas plus étonné de t'y voir !

Hé hé hé !
Bien reçu ton mail, je me pencherai sur cette histoire de unknown dans la semaine.

Et toi aussi tu ne m'as pas répondu

: où as-tu trouvé ton fichier bilevel ? Que je puisse un peu tester...

**tourlourou** · 01/12/2013, 19h36

Envoyé par Jipété

où as-tu trouvé ton fichier bilevel ? Que je puisse un peu tester...

Euh, j'ai réussi à retrouver le site, grâce au nom de l'image que j'avais copiée...

http://www.fileformat.info/format/tiff/internal.htm

**Jipété** · 01/12/2013, 21h06

Envoyé par tourlourou

Euh, j'ai réussi à retrouver le site, grâce au nom de l'image que j'avais copiée...

http://www.fileformat.info/format/tiff/internal.htm

Cool ! Et merci.

Et donc ce fichier part en erreur de "compression non supportée", donc je l'ouvre avec The Gimp et l'exporte en virant la compression et ensuite il s'ouvre très bien.

**Jipété** · 03/12/2013, 21h36

Bon, on en est où, là ?

48 h sans plus aucune nouvelle c'est inquiétant, moi j'dis...

Projet intéressant tiff2bmp.zip

Langage Delphi

Discussions similaires

Partager

Partager