// Add a page from the scanner procedure TMainForm.btnAddFromScannerClick(Sender: TObject); var io: TImageEnIO; insertPos: integer; begin io := TImageEnIO.Create( nil ); try if io.Acquire() then begin insertPos := Tiff.GetPagesCount; // Append to end
// Insert it into our TIFF Tiff.InsertPageAsImage( io.IEBitmap, insertPos ); finally io.Free; end; end;