Public Class LtdDocumentOptions 
   Inherits DocumentOptions

Dim instance As LtdDocumentOptions

public class LtdDocumentOptions : DocumentOptions 

public ref class LtdDocumentOptions : public DocumentOptions 

' Windows API functions needed to load/delete an EMF
   <DllImport("gdi32.dll")> _
   Private Shared Function GetEnhMetaFile(ByVal lpszMetaFile As String) As IntPtr
   End Function
   <DllImport("gdi32.dll")> _
   Private Shared Function DeleteEnhMetaFile(ByVal hemf As IntPtr) As Boolean
   End Function

   Private Sub LtdDocumentOptionsExample()
      ' Unlock the support needed for LEADTOOLS Document Writers (with PDF output)
      RasterSupport.Unlock(RasterSupportType.DocumentWriters, "Replace with your own key here")
      RasterSupport.Unlock(RasterSupportType.DocumentWritersPdf, "Replace with your own key here")

      Dim pdfFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Test.pdf")
      Dim ltdFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Test.ltd")

      Dim tifFileNames() As String = _
      { _
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr1.tif"), _
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr2.tif"), _
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr3.tif"), _
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr4.tif") _
      }

      Dim emfFileNames() As String = _
      { _
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr1.emf"), _
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr2.emf"), _
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr3.emf"), _
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr4.emf") _
      }

      ' Check if the LTD file exists, if so, delete it so we start a new session
      If (File.Exists(ltdFileName)) Then
         File.Delete(ltdFileName)
      End If

      ' Loop through the TIF/EMF pairs and add them to the LTD
      For i As Integer = 0 To tifFileNames.Length - 1
         AppendToLtd(ltdFileName, tifFileNames(i), emfFileNames(i))
      Next

      ' Create a new instance of the LEADTOOLS Document Writer
      Dim docWriter As New DocumentWriter()

      ' Set the PDF options to be PDF/A with Image/Text
      dim pdfOptions as PdfDocumentOptions = directcast(docWriter.GetOptions(DocumentFormat.Pdf) , PdfDocumentOptions)
      pdfOptions.DocumentType = PdfDocumentType.PdfA
      pdfOptions.ImageOverText = True
      docWriter.SetOptions(DocumentFormat.Pdf, pdfOptions)

      ' Now convert the LTD file we generated to PDF
      Console.WriteLine("Converting LTD to PDF")
      docWriter.Convert(ltdFileName, pdfFileName, DocumentFormat.Pdf)
   End Sub

   Private Sub AppendToLtd(ByVal ltdFileName As String, ByVal tifFileName As String, ByVal emfFileName As String)
      ' This assumes we are in a separate session than the main program, so create
      ' a new instance of the RasterCodecs and DocumentWriter objects we need
      Dim codecs As New RasterCodecs()

      Dim docWriter As New DocumentWriter()

      ' Create a new (or append if the file exists) LTD document
      docWriter.BeginDocument(ltdFileName, DocumentFormat.Ltd)

      ' Add the page

      ' Use the Windows API to load the EMF
      Dim emfHandle As IntPtr = GetEnhMetaFile(emfFileName)
      Dim image As RasterImage = codecs.Load(tifFileName, 0, CodecsLoadByteOrder.BgrOrGray, 1, 1)

      ' Add the page, notice we will be using image/text feature
      Dim page As DocumentPage = DocumentPage.Empty
      page.EmfHandle = emfHandle
      page.Image = image

      Console.WriteLine("Adding page...")
      docWriter.AddPage(page)

      ' Use the Windows API to delete the EMF
      DeleteEnhMetaFile(emfHandle)

      ' We don't need the image anymore
      image.Dispose()

      ' Finally finish writing the PDF file on disk
      docWriter.EndDocument()

      codecs.Dispose()
   End Sub

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

// Windows API functions needed to load/delete an EMF
   [DllImport("gdi32.dll")]
   private static extern IntPtr GetEnhMetaFile(string lpszMetaFile);
   [DllImport("gdi32.dll")]
   private static extern bool DeleteEnhMetaFile(IntPtr hemf);
   private void LtdDocumentOptionsExample()
   {
      // Unlock the support needed for LEADTOOLS Document Writers (with PDF output)
      RasterSupport.Unlock(RasterSupportType.DocumentWriters, "Replace with your own key here");
      RasterSupport.Unlock(RasterSupportType.DocumentWritersPdf, "Replace with your own key here");

      string pdfFileName = Path.Combine(LEAD_VARS.ImagesDir,"Test.pdf");
      string ltdFileName = Path.Combine(LEAD_VARS.ImagesDir, "Test.ltd");

      string[] tifFileNames =
      {
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr1.tif"),
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr2.tif"),
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr3.tif"),
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr4.tif")
      };

      string[] emfFileNames =
      {
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr1.emf"),
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr2.emf"),
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr3.emf"),
         Path.Combine(LEAD_VARS.ImagesDir, "Ocr4.emf")
      };

      // Check if the LTD file exists, if so, delete it so we start a new session
      if(File.Exists(ltdFileName))
         File.Delete(ltdFileName);

      // Loop through the TIF/EMF pairs and add them to the LTD
      for(int i = 0; i < tifFileNames.Length; i++)
      {
         AppendToLtd(ltdFileName, tifFileNames[i], emfFileNames[i]);
      }

      // Create a new instance of the LEADTOOLS Document Writer
      DocumentWriter docWriter = new DocumentWriter();

      // Set the PDF options to be PDF/A with Image/Text
      PdfDocumentOptions pdfOptions = docWriter.GetOptions(DocumentFormat.Pdf) as PdfDocumentOptions;
      pdfOptions.DocumentType = PdfDocumentType.PdfA;
      pdfOptions.ImageOverText = true;
      docWriter.SetOptions(DocumentFormat.Pdf, pdfOptions);

      // Now convert the LTD file we generated to PDF
      Console.WriteLine("Converting LTD to PDF");
      docWriter.Convert(ltdFileName, pdfFileName, DocumentFormat.Pdf);
   }

   private void AppendToLtd(string ltdFileName, string tifFileName, string emfFileName)
   {
      // This assumes we are in a separate session than the main program, so create
      // a new instance of the RasterCodecs and DocumentWriter objects we need
      RasterCodecs codecs = new RasterCodecs();

      DocumentWriter docWriter = new DocumentWriter();

      // Create a new (or append if the file exists) LTD document
      docWriter.BeginDocument(ltdFileName, DocumentFormat.Ltd);

      // Add the page

      // Use the Windows API to load the EMF
      IntPtr emfHandle = GetEnhMetaFile(emfFileName);
      RasterImage image = codecs.Load(tifFileName, 0, CodecsLoadByteOrder.BgrOrGray, 1, 1);

      // Add the page, notice we will be using image/text feature
      DocumentPage page = DocumentPage.Empty;
      page.EmfHandle = emfHandle;
      page.Image = image;

      Console.WriteLine("Adding page...");
      docWriter.AddPage(page);

      // Use the Windows API to delete the EMF
      DeleteEnhMetaFile(emfHandle);

      // We don't need the image anymore
      image.Dispose();

      // Finally finish writing the PDF file on disk
      docWriter.EndDocument();

      codecs.Dispose();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}