VintaSoft Imaging .NET SDK and Plug-ins Discussions
Questions, comments and suggestions concerning VintaSoft Imaging .NET SDK.
Board index < VintaSoft Imaging < VintaSoft Imaging .NET SDK and Plug-ins Discussions
Private Function AppendPage(ByVal sourceFile As String, ByVal newPage As String) As Boolean
Dim tif As New Vintasoft.Imaging.Codecs.Tiff.TiffFile(sourceFile)
Try
tif.Pages.Add(New VintasoftImage(newPage))
tif.SaveChanges()
Catch ex As Exception
Throw
End Try
Return True
End Function
' Subsequent delete generates the error:
IO.File.Delete(newPage)
[/color]Private Function AppendPage(ByVal sourceFile As String, ByVal newPage As String) As Boolean
Using tif As New Vintasoft.Imaging.Codecs.Tiff.TiffFile(sourceFile)
Try
Using image As VintasoftImage = New VintasoftImage(newPage)
tif.Pages.Add(image)
tif.SaveChanges()
End Using
Catch ex As Exception
Throw
End Try
End Using
Return True
End Function
Best regards, Alexander