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: 17:23:51 06/13/01 Wed
Author: Ron Link
Subject: Tiff Compression

I'm trying the Envision Image Lib Demo version 1.1 with Delphi 5 and want to open a bmp and then save it as a compressed tif. My saved tif is the same size as the original bmp and therfore must not be compressing correctly. I've replaced the EnTifGr.dcu in the Envision / D5 directory with the updated version from the Envision website as mentioned in similar posted messages. Can you point me in the right direction?

Here's my code:

procedure TForm1.Button1Click(Sender: TObject);
var
TifGraphic : TTiffGraphic;
begin
TifGraphic := TTiffGraphic.Create;
TifGraphic.Compression := tcGroup3_1d;
try
ImageScrollBox1.FileName := 'c:\windows\desktop\ron.bmp';
TifGraphic.Assign(ImageScrollBox1.Graphic);
TifGraphic.SaveToFile('c:\windows\desktop\ron.tif');
ImageScrollBox1.FileName := 'c:\windows\desktop\ron.tif';
ImageScrollBox1.Redraw(true);
finally
TifGraphic.Free;
end;
end;


Thanks,
Ron Link

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