i use AppendImage(Stream) to insert Images into a ImageenMView. For AppendImage(File) i found in the help a syntax to insert only the pages i want
// Append all pages of a TIFF to the current content
iPageCount := EnumTIFFIm( sFileName );
for I := 0 to iPageCount - 1 do
ImageEnMView1.AppendImage( sFileName + IEM_Path_Index_Delimiter + IntToStr( I ));
Can i do the same when i use a Stream? Or is there a function to get every Page from a TIFF Stream Like for example GetTiffPage(MStream,idx,PageStream).
Unfortunately, only a complete TIFF file can be loaded directly into a TImageEnMView via a stream. You would need to do something like:
io := TImageEnIO.Create(nil);
totalFrames := io.ParamsFromStream( stream );
for i : 0 to totalFrames do
if WantFrame( i ) do
begin
stream.Position := 0;
io.Params.ImageIndex := i;
io.LoadFromStream( stream );
ImageEnMView1.AppendImage( io.IEBitmap );
end;
i also tried to load the complete Multipage Tiff at once. The Result was that only one Page was loaded. Hier what i tried. Normale the Screen is not a file on Disk it comes from Database.
io := TImageEnIO.Create(nil);
if io.ParamsFromStream( stream ) then
begin
totalFrames:=io.params.imagecount;
for i : 0 to totalFrames do
if WantFrame( i ) do
begin
stream.Position := 0;
io.Params.ImageIndex := i;
io.LoadFromStream( stream );
ImageEnMView1.AppendImage( io.IEBitmap );
end;
...
Search
AppendImage(Stream) single Pages for TIFF
Posted - Jan 19 2017 : 04:26:09
