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: 15:18:48 05/06/04 Thu
Author: Peter Rettig
Subject: Re: rowsperstrip
In reply to: Michel 's message, "Re: rowsperstrip" on 07:34:41 05/04/04 Tue

Hi Michel,

I have tried this but the result is not OK.
The highest value for RowsPerStrip is 7F FF FF FF.
If I tried to set a higher value the tag was not written!

Best regards,

Peter

>
>Hi Peter,
>
>I thought MaxLongInt would be enough as a maximum. Try
>removing the call to BoundInteger and make the
>parameter a DWord in SetRowsPerStrip. Let me know how
>it goes, if it works I will change the code base.
>
>Best regards,
>
>Michel
>
>>Hi,
>>
>>normally there is no need to set a specific value for
>>the tag RowsPerStrip!
>>Unfortunately german National Health Insurances use
>>the TIF G4 format for dataexchange of prescriptions
>>and there is a new regulation to use only FF FF FF FF
>>for this value :-(
>>
>>Peter
>>
>>>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.F
>i
>>l
>>>e
>>>>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.FileNam
>e
>>>+
>>>>>>'_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.