2005.06.10 12:33 "WG: [Tiff] TIFF save", by Matthias Lach

Assuming you can get save or put your image data in a bitmap, this code can be helpful (it was for me). I use G4 compression.

   resoTiff:=200.0;

why u set a fix value here?

mAy i read this from the original file an put it in a variable and use it in the saveprocedure?

   hauteur:=BMP.Height;
   largeur:=BMP.Width;

imgtif:=TIFFOpen('test.tif', 'w') ;
 TIFFSetField(imgtif, TIFFTAG_IMAGEWIDTH, largeur);
  TIFFSetField(imgtif, TIFFTAG_IMAGELENGTH, hauteur);
  TIFFSetField(imgtif, TIFFTAG_BITSPERSAMPLE, 1);
  TIFFSetField(imgtif, TIFFTAG_SAMPLESPERPIXEL, 1);
  TIFFSetField(imgtif, TIFFTAG_ROWSPERSTRIP, hauteur);

I used this and i get a file in faxG4(or G3 as below) format - i can change to ccittfaxg3 this works fine.

But my original image is a fax, white background, black text and has this values from "asTifTagViewer":

ImageWidth (1 Long): 1728
ImageLength (1 Long): 2347
BitsPerSample (1 Short): 1
Compression (1 Short): Group 3 Fax (aka CCITT FAX3)
Photometric (1 Short): MinIsWhite
FillOrder (1 Short): Lsb2Msb
StripOffsets (1 Long): 8
SamplesPerPixel (1 Short): 1
RowsPerStrip (1 Short): 2347
StripByteCounts (1 Long): 15321
XResolution (1 Rational): 204
YResolution (1 Rational): 196
Group3Options (1 Long): 0
ResolutionUnit (1 Short): Inch

the outputfile from above has:

ImageWidth (1 Short): 1728
ImageLength (1 Short): 2251
BitsPerSample (1 Short): 1
Compression (1 Short): Group 3 Fax (aka CCITT FAX3)
Photometric (1 Short): MinIsWhite
FillOrder (1 Short): Msb2Lsb
StripOffsets (1 Long): 8
SamplesPerPixel (1 Short): 1
RowsPerStrip (1 Short): 2251
StripByteCounts (1 Long): 24341
XResolution (1 Rational): 200
YResolution (1 Rational): 200
PlanarConfig (1 Short): Contig
ResolutionUnit (1 Short): Inch
Software (14 ASCII): LibTiffDelphi
Artist (26 ASCII): none

if i open the file from the output above, AcDsee says "file corrupt" and it looks the other way round - background is black and text is white.

and it looks jolted a bit -.

sampels wrong output: http://de.geocities.com/der_maxem/test.tif (24604 byte) (less lines as the original because i cut 96 Lines off with my projecttool)

original file: http://de.geocities.com/der_maxem/61_zeilen.tif (15520 byte) (more lines, because it is the original file - uncut)

Mit freundlichen Gruessen

Matthias Lach

Editor's note: This mail was not originally archived, and has been reconstructed from quotes.