'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports System.TextImports GrapeCity.Documents.PdfImports GrapeCity.Documents.TextImports GrapeCity.Documents.Drawing
'' This sample loads a PDF (we use the document generated by the Wetlands sample)'' and extracts all images from it. It then prints those images into a new PDF,'' centered one per page.Public Class GetImages    Function CreatePDF(ByVal stream As Stream) As Integer        Dim tf = New TextFormat() With {.Font = StandardFonts.Times, .FontSize = 12}        Using fs = New FileStream(Path.Combine("Resources", "PDFs", "Wetlands.pdf"), FileMode.Open, FileAccess.Read)            Dim docSrc = New GcPdfDocument()            '' Load an existing PDF with some images:            docSrc.Load(fs)            '' This call extracts information about images from the loaded PDF,            '' note that for large files it may take a while to complete:            Dim imageInfos = docSrc.GetImages()
            Dim doc = New GcPdfDocument()            Dim textPt = New PointF(72, 72)            Dim imageRc = New RectangleF(72, 72 * 2, doc.PageSize.Width - 72 * 2, doc.PageSize.Height - 72 * 3)
            For Each imageInfo In imageInfos                '' The same image may appear on multiple locations,                '' imageInfo includes page indices and locations on pages                '' for simplicity sake we only print page numbers here:                Dim sb = New StringBuilder()                imageInfo.Locations.ForEach(Function(il_) sb.Append((il_.Page.Index + 1).ToString() + ", "))                Dim g = doc.NewPage().Graphics                g.DrawString($"This image appears on page(s) {sb.ToString().TrimEnd(" "c, ","c)} of the original PDF:", tf, New PointF(72, 72))                g.DrawImage(imageInfo.Image, imageRc, Nothing, ImageAlign.ScaleImage)            Next            '' Done:            doc.Save(stream)            Return doc.Pages.Count        End Using    End FunctionEnd Class