Code: Select all
Dim oGdPictureImaging As New GdPicture.GdPictureImaging
oGdPictureImaging.SetLicenseNumber("XXX") 'Replace xxx by valid key
'Step1: Apply white background to src image. This can be done drawing the metafile on an empty white canvas
Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromMetaFile("d:\test.emf")
Dim ImageWidth As Integer = oGdPictureImaging.GetWidth(ImageID)
Dim ImageHeight As Integer = oGdPictureImaging.GetHeight(ImageID)
Dim NewImage As Integer = oGdPictureImaging.CreateNewGdPictureImage(ImageWidth, ImageHeight, Imaging.PixelFormat.Format24bppRgb, Color.White)
oGdPictureImaging.DrawGdPictureImage(ImageID, NewImage, 0, 0, ImageWidth, ImageHeight, Drawing2D.InterpolationMode.NearestNeighbor)
oGdPictureImaging.ReleaseGdPictureImage(ImageID)
'Step2: convert new bitmap to searchable PDF
oGdPictureImaging.ConvertTo1Bpp(NewImage) 'Comment this line to keep true colour PDF
Dim PdfID As Integer = oGdPictureImaging.PdfOCRStart("d:\out.pdf", True, "", "", "", "", "")
oGdPictureImaging.PdfAddGdPictureImageToPdfOCR(PdfID, NewImage, GdPicture.TesseractDictionary.TesseractDictionaryEnglish, "C:\Program Files\GdPicture.NET\Redist\Commons\OCR", "")
oGdPictureImaging.PdfOCRStop(PdfID)
oGdPictureImaging.ReleaseGdPictureImage(NewImage)