'' This code is part of Document Solutions for PDF samples.
'' Copyright (c) MESCIUS inc. All rights reserved.
'' This sample loads the PDF file created by the HelloWorld sample,
'' adds a short text note to the first page, and saves the result.
Public Class LoadPDF
Function CreatePDF(ByVal stream As Stream) As Integer
Dim doc = New GcPdfDocument()
'' IMPORTANT: when working with an existing PDF file using GcPdfDocument.Load() method,
'' the stream passed to that method MUST REMAIN OPEN while working with the document.
'' This is because Load() does not load the whole PDF document into memory right away,
'' instead it loads the various parts of the PDF as needed.
'' The stream is only used for reading, and the original file itself is not modified.
'' To save the changes you need to call one of the GcPdfDocument.Save() overloads
'' as usual.
Using fs = New FileStream(Path.Combine("Resources", "PDFs", "HelloWorld.pdf"), FileMode.Open, FileAccess.Read)
'' Add note to the (only) page in the doc:
Dim page = doc.Pages.Last
"This text was added to the original ""Hello World"" PDF.",
New RectangleF(72, 72 * 3, page.Size.Width - 72 * 2, 72))