LibTiff Error on BDS 2006.

[nomas]

LibTiffDelphi is problem with BDS 2006.

In 'LibTiffDelphi.pas'

Code: [Select]

{const

  _TIFFBuiltinCODECS: array[0..17] of TIFFCodec = (
       (name:'None'; scheme: COMPRESSION_NONE; init: TIFFInitDumpMode),
       (name:'LZW'; scheme: COMPRESSION_LZW; init: TIFFInitLZW),
       (name:'PackBits'; scheme: COMPRESSION_PACKBITS; init: TIFFInitPackBits),
       (name:'ThunderScan'; scheme: COMPRESSION_THUNDERSCAN; init: TIFFInitThunderScan),
       (name:'NeXT'; scheme: COMPRESSION_NEXT; init: TIFFInitNeXT),
       (name:'JPEG'; scheme: COMPRESSION_JPEG; init: TIFFInitJPEG),
       (name:'Old-style JPEG'; scheme: COMPRESSION_OJPEG; init: NotConfigured),
       (name:'CCITT RLE'; scheme: COMPRESSION_CCITTRLE; init: TIFFInitCCITTRLE),
       (name:'CCITT RLE/W'; scheme: COMPRESSION_CCITTRLEW; init: TIFFInitCCITTRLEW),
       (name:'CCITT Group 3'; scheme: COMPRESSION_CCITTFAX3; init: TIFFInitCCITTFax3),
       (name:'CCITT Group 4'; scheme: COMPRESSION_CCITTFAX4; init: TIFFInitCCITTFax4),
       (name:'ISO JBIG'; scheme: COMPRESSION_JBIG; init: NotConfigured),
       (name:'Deflate'; scheme: COMPRESSION_DEFLATE; init: TIFFInitZIP),
       (name:'AdobeDeflate'; scheme: COMPRESSION_ADOBE_DEFLATE; init: TIFFInitZIP),
       (name:'PixarLog'; scheme: COMPRESSION_PIXARLOG; init: TIFFInitPixarLog),
       (name:'SGILog'; scheme: COMPRESSION_SGILOG; init: TIFFInitSGILog),
       (name:'SGILog24'; scheme: COMPRESSION_SGILOG24; init: TIFFInitSGILog),
       (name:nil; scheme:0; init:nil));}
is commented, and It works fine.

The problem is that 'init' address value of record is mismatching with obj between delphi implementaion record.

Thanks for reading 

[Galfar]

I am not sure what exactly you mean but I suppose it is record field alignment mismatch.
I have added few compiler options to LibTiffDelphi unit that may help you (and updated SVN).
Please let me know if it helps.

[nomas]

I am not sure what exactly you mean but I suppose it is record field alignment mismatch.
I have added few compiler options to LibTiffDelphi unit that may help you (and updated SVN).
Please let me know if it helps.

I use libtiff 3.8.2 obj files.

It has table in tif_codec.obj.

Code: [Select]

/*
 * Compression schemes statically built into the library.
 */
 
#ifdef VMS
const TIFFCodec _TIFFBuiltinCODECS[] = {
#else
TIFFCodec _TIFFBuiltinCODECS[] = {
#endif
    { "None", COMPRESSION_NONE, TIFFInitDumpMode },
    { "LZW", COMPRESSION_LZW, TIFFInitLZW },
    { "PackBits", COMPRESSION_PACKBITS, TIFFInitPackBits },
    { "ThunderScan", COMPRESSION_THUNDERSCAN,TIFFInitThunderScan },
    { "NeXT", COMPRESSION_NEXT, TIFFInitNeXT },
    { "JPEG", COMPRESSION_JPEG, TIFFInitJPEG },
    { "Old-style JPEG", COMPRESSION_OJPEG, TIFFInitOJPEG },
    { "CCITT RLE", COMPRESSION_CCITTRLE, TIFFInitCCITTRLE },
    { "CCITT RLE/W", COMPRESSION_CCITTRLEW, TIFFInitCCITTRLEW },
    { "CCITT Group 3", COMPRESSION_CCITTFAX3, TIFFInitCCITTFax3 },
    { "CCITT Group 4", COMPRESSION_CCITTFAX4, TIFFInitCCITTFax4 },
    { "ISO JBIG", COMPRESSION_JBIG, TIFFInitJBIG },
    { "Deflate", COMPRESSION_DEFLATE, TIFFInitZIP },
    { "AdobeDeflate",   COMPRESSION_ADOBE_DEFLATE , TIFFInitZIP },
    { "PixarLog", COMPRESSION_PIXARLOG, TIFFInitPixarLog },
    { "SGILog", COMPRESSION_SGILOG, TIFFInitSGILog },
    { "SGILog24", COMPRESSION_SGILOG24, TIFFInitSGILog },
    { NULL,             0,                      NULL }
};
thanks for reading.