2005.12.12 22:19 "[Tiff] Writing EXIF data?", by Paul J. Lucas
Thread
2006.01.17 07:43 "Re: [Tiff] TiffReadEncodedStrip - problem in Delphi", by Patryk Palasz
> Why are you handling the fill order in your own code? I believe that
> libtiff already handles that for you. So you are likely scrambling the > data yourself. Also, what does ChangeLinesOrder() do?
This is not the point. I was using TiffReverseBits instead of ChangeBitsOrder but in case of those two pictures this code is simply not used. ChangeLinesOrder function changes line order in bitmap from up-bottom to bottom-up (TiffReadRGBA* make it automaticall but TiffReadEncodedStrip not). I was trying with and without this function - no success :(.
>>
>> BitmapBuff := FBitmap.ScanLine[ FImgHeight - 1];
>> for i := FStripsCnt - 1 downto 0 do
>> begin
>> read := TiffReadEncodedStrip( FTiffFile, i, Buff, -1);
>> if read <> -1 then
>> begin
>> if FFillOrder <> FILLORDER_MSB2LSB then
>> ChangeBitsOrder( Buff, read);
>> ChangeLinesOrder( Buff, BitmapBuff, read);
>> Inc( BitmapBuff, read);
>> end;
>> end;