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:18:29 04/29/04 Thu
Author: Peter Rettig
Subject: Re: rowsperstrip
In reply to: Gurkan Karagoz 's message, "Re: rowsperstrip" on 09:47:17 04/28/04 Wed

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