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, "Leadtools.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 PDFDocument = New PDFDocument(pdfFileName) 
      document.Resolution = 200 
 
      ' Parse the objects of the first page 
      document.ParsePages(PDFParsePagesOptions.Fonts Or PDFParsePagesOptions.Objects, 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 Bitmap = 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 StringBuilder = 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(CInt(rc.Left), CInt(rc.Top), CInt(rc.Right), CInt(rc.Bottom)) 
                        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 obj 
            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 LeadRect = 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(CInt(rc.Left), CInt(rc.Top), CInt(rc.Right), CInt(rc.Bottom)) 
 
   ' 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 Font = New Font(faceName, CSng(textFontHeight) * 72 / g.DpiY, fontStyle) 
      Using brush As Brush = New SolidBrush(RasterColorConverter.ToColor(textProperties.Color)) 
         Dim rect As Rectangle = New Rectangle(textRect.X, textRect.Y, textRect.Width, textRect.Height) 
 
         Using sf As StringFormat = 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