2006.01.16 15:33 "Re: [Tiff] TiffReadEncodedStrip - problem in Delphi", by Bob Friesenhahn

But the second one makes me a lot of problems - because I CAN NOT display it! I mean - there are some strange stripes and it doesn't look like it should - simply unrecognizable! Here is a small part of code I use - works fine with first picture.

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?

Bob

BitmapBuff := FBitmap.ScanLine[ FImgHeight - 1];
:= FStripsCnt - 1 downto 0 do for i

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;

The Bitmap's PixelFormat is of course pf1bit.

======================================
Bob Friesenhahn
bfriesen@simple.dallas.tx.us, http://www.simplesystems.org/users/bfriesen/
GraphicsMagick Maintainer, http://www.GraphicsMagick.org/