• Welcome to Vampyre Imaging Library Forum. Please login or sign up.
 

LibTiff Error on BDS 2006.

Started by nomas, 23 June 2007, 02:28:44

Previous topic - Next topic

nomas

LibTiffDelphi is problem with BDS 2006.

In 'LibTiffDelphi.pas'

{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  ;D

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

24 June 2007, 03:47:44 #2 Last Edit: 24 June 2007, 03:49:27 by nomas
Quote from: Galfar on 23 June 2007, 23:24:39
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.

/*
* 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.  :D

Quick Reply

With Quick-Reply you can write a post when viewing a topic without loading a new page. You can still use bulletin board code and smileys as you would in a normal post.

Name:
Email:

Shortcuts: ALT+S save/post or ALT+P preview

SMF spam blocked by CleanTalk