VoyForums

[ Login ] [ 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: 03:53:27 06/16/03 Mon
Author: Isaac Aaron
Subject: Re: Insert an Image to a TTiffGraphic (or a TDIBGraphic)
In reply to: Isaac Aaron 's message, "Insert an Image to a TTiffGraphic (or a TDIBGraphic)" on 10:05:03 06/08/03 Sun

Hi Michel

I have made the changes and it worked.

Comments:
1. I only tested InsertImage. Append should work, but I really don't have enough time to check it.
2. I changed EnTiffGr and not the dib unit because the subclasses provide the ability to span multiple pages by themselves (that's a bit more than what I want to get into).

Now what I'm really looking for is some form of annotations... Perhaps we can work on it together?

Thanks,
Isaac (Itzik) Aaron
Quality Bytes



// Quality Bytes
procedure TTiffGraphic.InsertImage(Graphic: TTiffGraphic);

var
i : Integer;
tmpGraphic : TDibGraphic;
begin
FMultiLoad := True;

tmpGraphic := TTiffGraphic.Create;
tmpGraphic.Assign( Self );
FFrames.Add( tmpGraphic ); // Memory leaks?

tmpGraphic := TTiffGraphic.Create;
tmpGraphic.Assign( Graphic );

if tmpGraphic.FrameCount = 0 then // Single/Multi Page
begin
FFrames.Insert(0, tmpGraphic );
FCurrentFrame := FCurrentFrame + 1;
end
else
begin
for i := tmpGraphic.FrameCount downto 1 do
FFrames.Insert(0, tmpGraphic.Frames[i] );
FCurrentFrame := FCurrentFrame + tmpGraphic.FrameCount;
end;
end;

// Quality Bytes
procedure TTiffGraphic.AppendImage(Graphic: TTiffGraphic);

var
i : Integer;
tmpGraphic : TDibGraphic;
begin
FMultiLoad := True;

tmpGraphic := TTiffGraphic.Create;
tmpGraphic.Assign( Self );
FFrames.Add( tmpGraphic ); // Memory leaks?

tmpGraphic := TTiffGraphic.Create;
tmpGraphic.Assign( Graphic );

if tmpGraphic.FrameCount = 0 then // Single/Multi Page
FFrames.Add( tmpGraphic )
else
for i := 1 to tmpGraphic.FrameCount do
FFrames.Add(tmpGraphic.Frames[i] );
end;


>Hi
>
>I need to load images from two different BLOB streams,
>which contain TIFF images, into one sequential
>TDIBGraphic and display it one the screen.
>
>How can I do that?
>
>Thanks,
>Isaac Aaron
>Quality Bytes

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

Replies:

[ Contact Forum Admin ]

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