VoyForums

[ VoyUser Login optional ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, [2], 3, 4, 5, 6, 7, 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 09:47:17 04/28/04 Wed
Author: Gurkan Karagoz
Subject: Re: rowsperstrip
In reply to: Peter Rettig 's message, "Re: rowsperstrip" on 02:08:22 04/26/04 Mon

Hi,
I really need to learn rowsperstrip means of TIF G4 files. Why do you set a value? How to decide the value?

I have some problems.

>Hi Michel,
>
>yes that is OK.
>But for some reasons I have to create TIF's with FF FF
>FF FF as value for RowsPerStrip. With MaxInt there is
>only 7F FF FF FF. Is there any way to create something
>like this?
>
>Best Regards,
>
>Peter Rettig
>
>>
>>Hi Peter,
>>
>>MaxLongInt is 2147483647. Try with that value or
>>smaller for RowsPerStrip. You do not need to recompile
>>the package as it is only used at design time. Just
>>change the .Pas file.
>>
>>Best regards,
>>
>>Michel
>>
>>>Hi Michel,
>>>
>>>I have changed the file entifgr.pas like described,
>>>compiled. I have changed the files EnTifGr.dcu,
>>>En_D4.dcu, En_D4.dcp, En_D4.bpl. But the result is
>the
>>>same.
>>>
>>>procedure TForm1.Button1Click(Sender: TObject);
>>>var
>>> DestGraphic : TTiffGraphic;
>>> i, j: longint;
>>>begin
>>> j :=
>>>ImageScrollBox1.ImageCountFromFile(FilenameEdit1.File
>N
>>a
>>>me);
>>>
>ImageScrollBox1.LoadFromFile(FilenameEdit1.FileName,
>>>0);
>>> DestGraphic := TTiffGraphic.Create;
>>> DestGraphic.Compression := tcGroup4;
>>> DestGraphic.Assign(ImageScrollBox1.Graphic);
>>> DestGraphic.RowsPerStrip := 4294967295;
>>> DestGraphic.SaveToFile(FilenameEdit1.FileName +
>>>'.TIF');
>>> for i := 2 to j do begin
>>>
>>>ImageScrollBox1.AppendToFile(FilenameEdit1.FileName +
>>>'_neu.TIF');
>>> end;
>>>end;
>>>
>>>Can you advice?
>>>
>>>Best regards,
>>>
>>>Peter
>>>
>>>>
>>>>Hi Peter,
>>>>
>>>>This has been corrected in the latest code base. It
>>is
>>>>now limited to MaxLongInt, about 2Gig. The code is
>>>now,
>>>>
>>>>procedure TTiffGraphic.SetRowsPerStrip( const
>>>>InRowsPerStrip : LongInt );
>>>>begin
>>>> FRowsPerStrip := BoundInteger(InRowsPerStrip, 1,
>>>>MaxLongInt);
>>>>end;
>>>>
>>>>Let me know if you have problems. This change will
>be
>>>>in the next version.
>>>>
>>>>Best regards,
>>>>
>>>>Michel
>>>>
>>>>
>>>>>Hi,
>>>>>
>>>>>I tried to save a TIF-image with 4 294 967 295 (FF
>>FF
>>>>>FF FF) rowsperstrip. But the highest accepted value
>>>at
>>>>>this property semms to be 4095!?
>>>>>Is there a way to support larger values?
>>>>>
>>>>>Best regards,
>>>>>
>>>>>Peter

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Replies:

[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 2.94, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2008 Voyager Info-Systems. All Rights Reserved.