PDFObject Structure

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Pdf
Imports Leadtools.WinForms
Imports Leadtools.Drawing

Public Sub PDFObjectExample()
   Dim pdfFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "LEAD.pdf")
   Dim pngFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "LEAD_png.png")

   ' Create a PDF document for file at 200 DPI
   Using document As New PDFDocument(pdfFileName)
      document.Resolution = 200

      ' Parse the objects of the first page
      document.ParsePages(PDFParsePagesOptions.Fonts Or PDFParsePagesOptions.Objects Or PDFParsePagesOptions.Fonts, 1, 1)

      ' Get the page
      Dim page As PDFDocumentPage = document.Pages(0)

      ' Get the image of the page so we can use it to get the source image objects
      Using pageImage As RasterImage = document.GetPageImage(Nothing, page.PageNumber)
         ' Create the bitmap to draw the objects to
         Using btmp As New Bitmap(page.WidthPixels, page.HeightPixels)
            btmp.SetResolution(document.Resolution, document.Resolution)
            Using g As Graphics = Graphics.FromImage(btmp)
               g.Clear(Color.White)

               ' Render the objects

               ' Text is line at a time
               Dim textRect As LeadRect = LeadRect.Empty
               Dim textFontHeight As Double = 0
               Dim textLine As New StringBuilder()

               For Each obj As PDFObject In page.Objects
                  Select Case obj.ObjectType
                     Case PDFObjectType.Image
                        RenderImage(g, pageImage, page, obj)

                     Case PDFObjectType.Text
                        ' Add the text code and rects together
                        textLine.Append(obj.Code)
                        Dim rc As PDFRect = page.ConvertRect(PDFCoordinateType.Pdf, PDFCoordinateType.Pixel, obj.Bounds)
                        Dim objRect As LeadRect = LeadRect.FromLTRB(CType(rc.Left, Integer), CType(rc.Top, Integer), CType(rc.Right, Integer), CType(rc.Bottom, Integer))
                        If textRect.IsEmpty Then
                           textRect = objRect
                        Else
                           textRect = LeadRect.Union(textRect, objRect)
                        End If

                        textFontHeight = Math.Max(textFontHeight, obj.TextProperties.FontHeight)

                        ' If this is the last object in a line, render it
                        If obj.TextProperties.IsEndOfLine Then
                           RenderText(g, page, textLine.ToString(), textRect, obj.TextProperties, textFontHeight)

                           textLine = New StringBuilder()
                           textRect = LeadRect.Empty
                        End If
                  End Select
               Next
            End Using

            btmp.Save(pngFileName, System.Drawing.Imaging.ImageFormat.Png)
         End Using
      End Using
   End Using
End Sub

Private Shared Sub RenderImage(ByVal g As Graphics, ByVal pageImage As RasterImage, ByVal page As PDFDocumentPage, ByVal obj As PDFObject)
   Dim destRect As New LeadRect(0, 0, page.WidthPixels, page.HeightPixels)

   ' Get the object coordinates in pixels
   Dim rc As PDFRect = page.ConvertRect(PDFCoordinateType.Pdf, PDFCoordinateType.Pixel, obj.Bounds)
   Dim destClipRect As LeadRect = LeadRect.FromLTRB(CType(rc.Left, Integer), CType(rc.Top, Integer), CType(rc.Right, Integer), CType(rc.Bottom, Integer))

   ' Draw from the page image to the destination graphics
   Dim props As RasterPaintProperties = RasterPaintProperties.Default
   props.PaintEngine = RasterPaintEngine.GdiPlus
   RasterImagePainter.Paint( _
      pageImage, _
      g, _
      LeadRect.Empty, _
      LeadRect.Empty, _
      destRect, _
      destClipRect, _
      props)
End Sub

Private Shared Sub RenderText(ByVal g As Graphics, ByVal page As PDFDocumentPage, ByVal text As String, ByVal textRect As LeadRect, ByVal textProperties As PDFTextProperties, ByVal textFontHeight As Double)
   ' Create the font
   Dim font As PDFFont = page.Fonts(textProperties.FontIndex)
   Dim faceName As String = font.FaceName
   If String.IsNullOrEmpty(faceName) Then
      ' Could be an embedded font, use Arial
      faceName = "Arial"
   End If

   Dim fontStyle As FontStyle = fontStyle.Regular

   If (font.FontStyle And PDFFontStyle.Bold) = PDFFontStyle.Bold Then
      fontStyle = fontStyle Or fontStyle.Bold
   End If

   If (font.FontStyle And PDFFontStyle.Italic) = PDFFontStyle.Italic Then
      fontStyle = fontStyle Or fontStyle.Italic
   End If

   If (font.FontStyle And PDFFontStyle.Underline) = PDFFontStyle.Underline Then
      fontStyle = fontStyle Or fontStyle.Underline
   End If

   Using f As New Font(faceName, CType(textFontHeight * 72 / g.DpiY, Single), fontStyle)
      Using brush As New SolidBrush(RasterColorConverter.ToColor(textProperties.Color))
         Dim rect As New Rectangle(textRect.X, textRect.Y, textRect.Width, textRect.Height)

         Using sf As New StringFormat()
            sf.Alignment = StringAlignment.Center
            sf.LineAlignment = StringAlignment.Center
            sf.FormatFlags = sf.FormatFlags Or StringFormatFlags.NoClip Or StringFormatFlags.NoWrap

            g.DrawString(text, f, brush, rect, sf)
         End Using
      End Using
   End Using
End Sub

Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class