Take the following steps to start a project and to add some code that creates an EMF file, adds some shapes and text, then uses LEADTOOLS Document Writers to convert the EMF file to PDF:

• Start Visual Studio .NET.

• Choose File->New->Project from the menu.

• In the New Project dialog box, choose either "Visual C# Projects" or "Visual Basic Projects" in the Projects Type List, and choose "Windows Application" in the Templates List.

• Type the project name as "DocumentWritersTutorial" in the Project Name field, and then click OK. If desired, type a new location for your project or select a directory using the Browse button, and then click OK.

• In the Solution Explorer window, right-click on the References folder, and select "Add Reference..." from the context menu. In the "Add Reference" dialog box, select the ".NET" tab, browse to the "\LEAD Technologies\LEADTOOLS 17\Bin\DotNet\Win32" folder, and select the following DLLs:

  • Leadtools.dll
  • Leadtools.Codecs.dll
  • Leadtools.Codecs.Raw.dll
  • Leadtools.Codecs.Tif.dll
  • Leadtools.Codecs.Bmp.dll
  • Leadtools.Codecs.Cmp.dll
  • Leadtools.Forms.dll
  • Leadtools.Forms.DocumentWriters.dll

  Click the Select button and then press the OK button to add the above DLLs to the application.

• Make sure Form1 is in design view. Go to the toolbox (View->Toolbox from the menu) and add the following controls to the form:

  Type	Name	Text
  Button	convertEmfToPdfButton	Convert EMF to PDF
  CheckBox	imageOverTextCheckBox	Image over text
  CheckBox	pdfACheckBox	pdf/a

• Switch to Form1 code view (right-click Form1 in the solution explorer then select View Code) and add the following lines at the beginning of the file:

  [Visual Basic]

              Imports System.IO
              Imports System.Diagnostics
              Imports System.Runtime.InteropServices
              Imports Leadtools
              Imports Leadtools.Codecs
              Imports Leadtools.Forms.DocumentWriters
              
  

  [C#]

              using System.IO;
              using System.Diagnostics;
              using System.Runtime.InteropServices;
              using Leadtools;
              using Leadtools.Codecs;
              using Leadtools.Forms.DocumentWriters;
              
  

• Add the following code snippet to Form1:

  [Visual Basic]

              ' Windows API functions used in this demo
              <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 codecs As RasterCodecs ' RasterCodecs object to use when loading TIF files
              
  

  [C#]

              // Windows API functions used in this demo
              [DllImport("gdi32.dll")]
              private static extern IntPtr GetEnhMetaFile(string lpszMetaFile);
              [DllImport("gdi32.dll")]
              private static extern bool DeleteEnhMetaFile(IntPtr hemf);
              private RasterCodecs codecs; // RasterCodecs object to use when loading TIF files
              
  

• Add the following code to the Form1 constructor (in Visual Basic, you can copy/paste the whole Sub New code from here):

  [Visual Basic]

              Public Sub New()
                 ' This call is required by the Windows Form Designer.
                 InitializeComponent()
                 ' Add any initialization after the InitializeComponent() call.
                 ' Replace with your own key
                 RasterSupport.Unlock(RasterSupportType.DocumentWriters, "Replace with your own key here")
                 RasterSupport.Unlock(RasterSupportType.DocumentWritersPdf, "Replace with your own key here")
                 RasterSupport.Unlock(RasterSupportType.Document, "Replace with your own key here")
                 ' Initialize RasterCodecs
                 codecs = new RasterCodecs()
              End Sub
              
  

  [C#]

              public Form1()
              {
                 InitializeComponent();
                 // Please replace with your own key
                 RasterSupport.Unlock(RasterSupportType.DocumentWriters, "Replace with your own key here");
                 RasterSupport.Unlock(RasterSupportType.DocumentWritersPdf, "Replace with your own key here");
                 RasterSupport.Unlock(RasterSupportType.Document, "Replace with your own key here");
                 // Initialize RasterCodecs
                 codecs = new RasterCodecs();
              }
              
  

• Add the following code as the OnFormClosed method for Form1 to clean up the resources used in the demo:

  [Visual Basic]

              Protected Overrides Sub OnFormClosed(ByVal e As FormClosedEventArgs)
                 ' Clean up
                 codecs.Dispose()
              End Sub
              
  

  [C#]

              protected override void OnFormClosed(FormClosedEventArgs e)
              {
                 // Clean up
                 codecs.Dispose();
              }
              
  

• Add the following code for the convertEmfToPdfButton (Convert EMF to PDF) control’s Click handler:

  [Visual Basic]

              Private Sub convertEmfToPdfButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convertEmfToPdfButton.Click
                 ' Get the output file name
                 Dim pdfFileName As String
                 Using dlg As New SaveFileDialog()
                    ' Get the PDF friendly name and extension to use in the common dialog
                    Dim friendlyName As String = DocumentWriter.GetFormatFriendlyName(DocumentFormat.Pdf)
                    Dim extension As String = DocumentWriter.GetFormatFileExtension(DocumentFormat.Pdf)
                    dlg.Filter = String.Format("{0}(*.{1})|*.{1}|All Files|*.*", friendlyName, extension)
                    If (dlg.ShowDialog(Me) = DialogResult.OK) Then
                       pdfFileName = dlg.FileName
                    Else
                       Return
                    End If
                 End Using
                 ' Create an instance of the LEADTOOLS DocumentWriter
                 Dim docWriter As New DocumentWriter()
                 ' Set the PDF options
                 Dim pdfOptions As PdfDocumentOptions = DirectCast(docWriter.GetOptions(DocumentFormat.Pdf), PdfDocumentOptions)
                 Dim imageOverText As Boolean = imageOverTextCheckBox.Checked
                 If (imageOverText) Then
                    pdfOptions.ImageOverText = True
                 Else
                    pdfOptions.ImageOverText = False
                 End If
                 If (pdfACheckBox.Checked) Then
                    pdfOptions.DocumentType = PdfDocumentType.PdfA
                 Else
                    pdfOptions.DocumentType = PdfDocumentType.Pdf
                 End If
                 docWriter.SetOptions(DocumentFormat.Pdf, pdfOptions)
                 ' Begin a new PDF document
                 docWriter.BeginDocument(pdfFileName, DocumentFormat.Pdf)
                 ' Add the pages
                 ' LEADTOOLS ships with Ocr1.emf to Ocr4.emf in the images folder
                 Dim imagesFolder As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "LEADTOOLS Images")
                 For page As Integer = 1 To 4
                    ' Load the EMF
                    Dim emfFileName As String = Path.Combine(imagesFolder, String.Format("Ocr{0}.emf", page))
                    Dim tifFileName As String = Path.Combine(imagesFolder, String.Format("Ocr{0}.tif", page))
                    ' Add the page
                    Dim docPage As DocumentPage = DocumentPage.Empty
                    docPage.EmfHandle = GetEnhMetaFile(emfFileName)
                    If (imageOverText) Then
                       docPage.Image = codecs.Load(tifFileName)
                    Else
                       docPage.Image = Nothing
                    End If
                    docWriter.AddPage(docPage)
                    ' Clean up
                    If docPage.EmfHandle <> IntPtr.Zero Then
                       DeleteEnhMetaFile(docPage.EmfHandle)
                    End If
                    If Not IsNothing(docPage.Image) Then
                       docPage.Image.Dispose()
                    End If
                 Next
                 ' Finish the document
                 docWriter.EndDocument()
                 ' We successfuly created the PDF, ask the user if they want to view it
                 Dim question As String = String.Format("PDF document was successfully created at {0}\n\nDo you want to view it now?", pdfFileName)
                 If MessageBox.Show(Me, question, "DocumentWriter", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                    Process.Start(pdfFileName)
                 End If
              End Sub
              
  

  [C#]

              private void convertEmfToPdfButton_Click(object sender, EventArgs e)
              {
                 // Get the output file name
                 string pdfFileName;
                 using(SaveFileDialog dlg = new SaveFileDialog())
                 {
                    // Get the PDF friendly name and extension to use in the common dialog
                    string friendlyName = DocumentWriter.GetFormatFriendlyName(DocumentFormat.Pdf);
                    string extension = DocumentWriter.GetFormatFileExtension(DocumentFormat.Pdf);
                    dlg.Filter = string.Format("{0}(*.{1})|*.{1}|All Files|*.*", friendlyName, extension);
                    if(dlg.ShowDialog(this) == DialogResult.OK)
                       pdfFileName = dlg.FileName;
                    else
                       return;
                 }
                 // Create an instance of the LEADTOOLS DocumentWriter
                 DocumentWriter docWriter = new DocumentWriter();
                 // Set the PDF options
                 PdfDocumentOptions pdfOptions = docWriter.GetOptions(DocumentFormat.Pdf) as PdfDocumentOptions;
                 bool imageOverText = imageOverTextCheckBox.Checked;
                 if(imageOverText)
                    pdfOptions.ImageOverText = true;
                 else
                    pdfOptions.ImageOverText = false;
                 if(pdfACheckBox.Checked)
                    pdfOptions.DocumentType = PdfDocumentType.PdfA;
                 else
                    pdfOptions.DocumentType = PdfDocumentType.Pdf;
                 docWriter.SetOptions(DocumentFormat.Pdf, pdfOptions);
                 // Begin a new PDF document
                 docWriter.BeginDocument(pdfFileName, DocumentFormat.Pdf);
                 // Add the pages
                 // LEADTOOLS ships with Ocr1.emf to Ocr4.emf in the images folder
                 string imagesFolder = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), @"LEADTOOLS Images");
                 for(int page = 1; page <= 4; page++)
                 {
                    // Load the EMF
                    string emfFileName = Path.Combine(imagesFolder, string.Format("Ocr{0}.emf", page));
                    string tifFileName = Path.Combine(imagesFolder, string.Format("Ocr{0}.tif", page));
                    // Add the page
                    DocumentPage docPage = DocumentPage.Empty;
                    docPage.EmfHandle = GetEnhMetaFile(emfFileName);
                    if(imageOverText)
                       docPage.Image = codecs.Load(tifFileName);
                    else
                       docPage.Image = null;
                    docWriter.AddPage(docPage);
                    // Clean up
                    if(docPage.EmfHandle != IntPtr.Zero)
                       DeleteEnhMetaFile(docPage.EmfHandle);
                    if(docPage.Image != null)
                       docPage.Image.Dispose();
                 }
                 // Finish the document
                 docWriter.EndDocument();
                 // We successfuly created the PDF, ask the user if they want to view it
                 string question = string.Format("PDF document was successfully created at {0}\n\nDo you want to view it now?", pdfFileName);
                 if(MessageBox.Show(this, question, "DocumentWriter", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)
                 {
                    Process.Start(pdfFileName);
                 }
              }
              
  

• Build and Run the program to test it.

• Click the "Convert EMF To PDF" button. Try with different options for the PDF file and check the results.

• For information on using the LEADTOOLS Document Writers, see Programming with the LEADTOOLS Document Writers.

  NOTE: If you encounter an "Invalid File Format" or "Feature Not Supported" exception, please refer to the topic Invalid File Format/Feature Not Supported.

 

 

---

Products | Support | Contact Us | Copyright Notices

© 2006-2011 All Rights Reserved. LEAD Technologies, Inc.