TImageEnIO.AttachedIEBitmap

Declaration

property AttachedIEBitmap: TIEBitmap

Description

Contains the attached TIEBitmap object (same value as the IEBitmap property).

Example

// Print all frames of a multi-page TIFF (TIEBitmap)
procedure PrintAllPages(const Filename: string);
Var
  bmp: TIEBitmap;
  io: TImageEnIO;
  i: Integer;
Begin
  bmp := TIEBitmap.Create();
  io := TImageEnIO.Create(nil);
  io.AttachedIEBitmap := bmp;
  try
    io.LoadFromFile( Filename );

    Printer.Title := 'TIFF Pages';
    Printer.BeginDoc();
    for i := 0 to io.Params.ImageCount - 1 do
    begin
      io.Params.ImageIndex := i;
      if i > 0 then
        io.LoadFromFile( Filename );
      io.PrintImage();
    end;
    Printer.EndDoc();

  finally
    io.Free;
    bmp.Free;
  end;
End;

// Multi-threaded saving
Var
  bmp: TIEBitmap;
  io: TImageEnIO;
Begin
  bmp := TIEBitmap.Create;
  io := TImageEnIO.Create(nil);
  io.AttachedIEBitmap := bmp;
  try
    io.LoadFromFile('C:\input.bmp');
    io.AsyncMode := True; // So it will create a thread for each input/output task
    io.SaveToFile('D:\i1.jpg'); // thread 1
    io.SaveToFile('D:\i2.jpg'); // thread 2
    io.SaveToFile('D:\i3.jpg'); // thread 3
  finally
    io.Free; // Free method will wait for all tasks to end!
    bmp.Free;
  end;
End;

TImageEnIO.AttachedIEBitmap