VB.NET TIFF - Start to Create, Load & Save TIFF

''' <summary>
''' Create TIFF document from an image source 
''' </summary>
''' <param name="images"></param>
''' <returns></returns>
Public Function CreateImageOnlyTiffDocumentDemo(images As List(Of REImage)) As TIFFDocument
   Return New TIFFDocument(images)
End Function

''' <summary>
''' Load a TIFF document from file path
''' </summary>
''' <param name="filePath"></param>
''' <returns></returns>
Public Function LoadTIFFDocumentFromFileDemo(filePath As [String]) As TIFFDocument
   Dim doc As TIFFDocument = DirectCast(REFile.OpenDocumentFile(filePath, New TIFDecoder()), TIFFDocument)

   'or you can use 
   'return new TIFFDocument(filePath);
End Function

''' <summary>
''' Load a TIFF Document from stream
''' </summary>
''' <returns></returns>
Public Function LoadTIFFDocumentFromStreamDemo(s As Stream) As TIFFDocument
   Dim buffer As Byte() = New Byte(s.Length - 1) {}

   Dim ms As New MemoryStream()
   s.Read(buffer, 0, CInt(s.Length))
   ms.Write(buffer, 0, CInt(s.Length))
   Dim test As New TIFDecoder()
   Return DirectCast(test.DecodeDocument(New FileIOMgr(ms)), TIFFDocument)

   ' or
   'return new TIFFDocument(s);
End Function

Public Function GetPageCountDemo(filePath As [String]) As Integer
	Dim doc As TIFFDocument = DirectCast(REFile.OpenDocumentFile(filePath, New TIFDecoder()), TIFFDocument)

	' or
	' TIFFDocument doc = new TIFFDocument(filePath);

	Return doc.GetPageCount()
End Function

''' <summary>
'''  Save TIFF document to file
''' </summary>
''' <param name="doc"></param>
''' <param name="filePath"></param>
Public Sub SaveTIFFDocumentoFileDemo(doc As TIFFDocument, filePath As [String])

   REFile.SaveDocumentFile(doc, filePath, New TIFEncoder())

   'or
   'doc.Save(filePath);
End Sub

''' <summary>
''' Save TIFF document to stream
''' </summary>
''' <param name="doc"></param>
''' <param name="s"></param>
Public Sub SaveTIFFDocumentToStreamDemo(doc As TIFFDocument, s As Stream)
   Dim test As New TIFEncoder()
   Dim buffer As Byte() = New Byte(s.Length - 1) {}

   Dim ms As New MemoryStream()

   s.Read(buffer, 0, CInt(s.Length))
   ms.Write(buffer, 0, CInt(s.Length))
   test.EncodeDocument(doc, New FileIOMgr(ms))

   ' or 
   'doc.Save(s);
End Sub