Scanning new page in multi-page TIFF

[jmantha]

Hi,

Could you give me a quick example on how to open an already existing multi-page tiff file, scanning a new page at the end and saving it back to file.

Thanks !

Joé

[Loïc]

Hi Joé,

See following sample:

Code: Select all

Private Sub Command4_Click()
 Dim nImageID As Long
 Dim nTiffImageID As Long

 If Imaging1.TwainOpenDefaultSource() Then
    nTiffImageID = Imaging1.TiffCreateMultiPageFromFile("c:\test.tif")
      nImageID = Imaging1.TwainAcquireToGdPictureImage(Me.hWnd)
      If nImageID <> 0 Then
         Call Imaging1.TiffAppendPageFromGdPictureImage(nTiffImageID, nImageID)
         Call Imaging1.CloseImage(nImageID)
         Call Imaging1.TiffSaveMultiPageToFile(nTiffImageID, "c:\out.tif")
      End If
     
      Call Imaging1.TwainCloseSource
      MsgBox "Done !"
 Else
      MsgBox "can't open default source, twain state is: " & Trim(Str(Imaging1.TwainGetState))
 End If
End Sub

Hope this helps !

Loïc

[jmantha]

Thanks !! Works great !