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


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.Fi
>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.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.