Document Class

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Forms.DocumentWriters
Imports Leadtools.Svg
Imports Leadtools.Documents
Imports Leadtools.Caching
Imports Leadtools.Annotations.Core
Imports Leadtools.Barcode
Imports Leadtools.Forms.Ocr

Public Shared Function CreateCache() As FileCache
   Dim cacheDir As String = Path.Combine(ImagesPath.Path, "cache")
   If Directory.Exists(cacheDir) Then
      Directory.Delete(cacheDir, True)
   End If
   Directory.CreateDirectory(cacheDir)

   Dim cache As New FileCache()
   cache.CacheDirectory = cacheDir

   Return cache
End Function

Public Shared Sub PrintOutDocumentInfo(ByVal document As Document)
   Console.WriteLine("General")
   Console.WriteLine("  DocumentId:" & document.DocumentId)
   If document.Uri <> Nothing Then
      Console.WriteLine("  Uri:" & document.Uri.ToString())
   End If
   Console.WriteLine("  IsDownloaded:" & document.IsDownloaded)
   Console.WriteLine("  DocumentFileName:" & document.GetDocumentFileName())
   Console.WriteLine("  IsReadOnly:" & document.IsReadOnly)
   Console.WriteLine("  MimeType:" & document.MimeType)
   Console.WriteLine("  IsEncrypted:" & document.IsEncrypted)
   Console.WriteLine("  IsDecrypted:" & document.IsDecrypted)
   Console.WriteLine("Cache")
   Console.WriteLine("  HasCache:" & document.HasCache)
   Console.WriteLine("  AutoDeleteFromCache:" & document.AutoDeleteFromCache)
   If document.HasCache Then
      Dim policy As CacheItemPolicy = document.CreateCacheItemPolicy()
      Console.WriteLine("  CacheItemPolicy:{0} {1}", policy.AbsoluteExpiration, policy.SlidingExpiration)
   Else
      Console.WriteLine("  CacheItemPolicy: none")
   End If
   Console.WriteLine("Metadata")
   For Each item As KeyValuePair(Of String, String) In document.Metadata
      Console.WriteLine("  {0} {1}", item.Key, item.Value)
   Next item
   Console.WriteLine("Annotations")
   If document.Annotations.AnnotationsUri <> Nothing Then
      Console.WriteLine("  AnnotationsUri:" & document.Annotations.AnnotationsUri.ToString())
   End If

   Console.WriteLine("Images")
   Console.WriteLine("  DefaultBitsPerPixel:{0}", document.Images.DefaultBitsPerPixel)
   Console.WriteLine("  ThumbnailPixelSize:{0}", document.Images.ThumbnailPixelSize)

   Console.WriteLine("Pages")
   Console.WriteLine("  DefaultPageSize:{0}", document.Pages.DefaultPageSize)
   Console.WriteLine("  DefaultResolution:{0}", document.Pages.DefaultResolution)
   Console.WriteLine("  Count:" & document.Pages.Count)

   For Each page As Leadtools.Documents.DocumentPage In document.Pages
      Console.WriteLine("    PageNumber:" & page.PageNumber)
      Console.WriteLine("      OriginalPageNumber:" & page.OriginalPageNumber)
      Console.WriteLine("      Size:{0}", page.Size)
      Console.WriteLine("      Resolution:{0}", page.Resolution)
      Console.WriteLine("      IsDeleted:" & page.IsDeleted)
      Console.WriteLine("      IsImageModified:" & page.IsImageModified)

      Using rasterImage As RasterImage = page.GetImage()
         If Not rasterImage Is Nothing Then
            Console.WriteLine("Image {0} by {1} {2}bpp", rasterImage.Width, rasterImage.Height, rasterImage.BitsPerPixel)
         Else
            Console.WriteLine("null")
         End If
      End Using

      Using thumbnail As RasterImage = page.GetThumbnailImage()
         If Not thumbnail Is Nothing Then
            Console.WriteLine("Thumbnail {0} by {1} {2}bpp", thumbnail.Width, thumbnail.Height, thumbnail.BitsPerPixel)
         Else
            Console.WriteLine("null")
         End If
      End Using

      Console.WriteLine("     Annotations")
      Console.WriteLine("       IsAnnotationsModified:" & page.IsAnnotationsModified)
      Console.WriteLine("       HasEmbeddedAnnotations:" & page.HasEmbeddedAnnotations)
      Dim container As AnnContainer = page.GetAnnotations(False)
      If Not container Is Nothing Then
         Console.WriteLine("       Size:" & container.Size.ToString())
         Console.WriteLine("       Objects:" & container.Children.Count)
         For Each child As AnnObject In container.Children
            Console.WriteLine("        FriendlyName:" & child.FriendlyName)
            Console.WriteLine("        Bounds:" & child.Bounds.ToString())
         Next child
      Else
         Console.WriteLine("       NULL")
      End If
   Next page

   Console.WriteLine("--------")
End Sub

<TestMethod()> _
Public Sub DocumentExample()
   DocumentFactory.Cache = CreateCache()

   Dim policy As CacheItemPolicy = New CacheItemPolicy()
   policy.AbsoluteExpiration = DateTime.Now + New TimeSpan(0, 0, 1)
   policy.SlidingExpiration = New TimeSpan(0, 0, 1)

   Dim options As LoadDocumentOptions = New LoadDocumentOptions()
   options.CachePolicy = policy

   Dim documentId As String = Nothing

   Using document As Document = DocumentFactory.LoadFromFile(Path.Combine(ImagesPath.Path, "Leadtools.pdf"), options)
      document.AutoDeleteFromCache = False

      PrintOutDocumentInfo(document)

      documentId = document.DocumentId
      document.SaveToCache()
   End Using

   System.Threading.Thread.Sleep(2000)

   Using document As Document = DocumentFactory.LoadFromCache(documentId)
      If document Is Nothing Then
         Console.WriteLine("Cached document was expired and deleted!")
      End If
   End Using
End Sub