MessageBox.Show( "PDF: The PDF file has failed to load. Status: " + status.ToString(), "TIFF to PDF Example", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show( "PDF: The OCR process has failed. MessageBox.Show( "PDF: The OCR process has been finished successfully.", "TIFF to PDF Example", MessageBoxButtons.OK, MessageBoxIcon.Information) Status = oGdPicturePDF.LoadFromFile( "output.pdf", False) Status: " + status.ToString(), "TIFF to PDF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)Įnd If End Using 'Second step - Processing OCR on the created PDF document. MessageBox.Show( "Converter: The TIF file has failed to load. MessageBox.Show( "Converter: The PDF file has failed to save. MessageBox.Show( "Converter: The PDF file has been saved successfully.", "TIFF to PDF Example", MessageBoxButtons.OK, MessageBoxIcon.Information) Status = oConverter.SaveAsPDF( "output.pdf", PdfConformance.PDF) Status = oConverter.LoadFromFile( "input.tif", ) Using oConverter As GdPictureDocumentConverter = New GdPictureDocumentConverter() ![]() 'First step - Converting your source TIF file to PDF document. Status: " + oGdPicturePDF.GetStat().ToString(), "TIFF to PDF Example", MessageBoxButtons.OK, MessageBoxIcon.Error)Įnd If End Sub Dim status As GdPictureStatus = GdPictureStatus.OK MessageBox.Show( "PDF: The OCR-ed file has failed to save. MessageBox.Show( "PDF: The OCR-ed file has been saved successfully.", "TIFF to PDF Example", MessageBoxButtons.OK, MessageBoxIcon.Information) If oGdPicturePDF.SaveToFile( "output.pdf") = GdPictureStatus.OK Then ![]() 'Saving the resulting document when the OCR process is finished. Sub OcrPagesDone(status As GdPictureStatus) Handles oGdPicturePDF.OcrPagesDone 'We assume that GdPicture has been correctly installed and unlocked.ĪddHandler oGdPicturePDF.OcrPagesDone, AddressOf OcrPagesDone
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |