HOW TO: Determine if a PDF is Searchable in V20

            //Set License and Key here
            string licFile = @"";
            string keyFile = "";
            RasterSupport.SetLicense(licFile, keyFile);

            string pdfFile = @"C:\Users\cthompson\Desktop\leadtools.pdf";
            string result = "This PDF is NOT Readable";
            
            PDFDocument pdfDoc = new PDFDocument(pdfFile);
            pdfDoc.ParsePages(PDFParsePagesOptions.AllIgnoreWhiteSpaces, 1, 1); // For this sample we only check the first page
            PDFDocumentPage firstPage = pdfDoc.Pages[0];

            if(firstPage.Objects[0].ObjectType == PDFObjectType.Text) // Indicates the document has searchable text
            {
                result = "Yes, This PDF is Readable";
                Console.WriteLine(result);
            }
            
            Console.ReadLine();

Sub Main()
        Dim licFile = File.ReadAllBytes("")
        Dim keyFile As String = ""

        RasterSupport.SetLicense(licFile, keyFile)

        Dim pdfFile As String = "C:\Users\cthompson\Desktop\leadtools.pdf"
        Dim result As String = "This PDF is NOT Readable"

        Dim pdfDoc As PDFDocument = New PDFDocument(pdfFile)
        pdfDoc.ParsePages(PDFParsePagesOptions.AllIgnoreWhiteSpaces, 1, 1) 'For this sample we only check the first page

        Dim firstPage As PDFDocumentPage = pdfDoc.Pages(0)

        If firstPage.Objects(0).ObjectType = PDFObjectType.Text Then
            result = "Yes, This PDF is Readable"
            Console.WriteLine(result)
        End If

        Console.ReadLine()

    End Sub

static void Main(string[] args)
        {
            //Set License and Key here
            string licFile = @"";
            string keyFile = "";
            RasterSupport.SetLicense(licFile, keyFile);
            RasterCodecs codecs = new RasterCodecs();

            string pdfFile = @"C:\Users\cthompson\Desktop\leadtools.pdf";
            string[] data = { "Filename:   ", "Readable?   ", "Is a PDF?   ", "Encrypted?  ", "Searchable? " };
            
            data[0] += Path.GetFileName(pdfFile);

            try
            {
                CodecsImageInfo fileInfo = codecs.GetInformation(pdfFile, false);  // Determine if file is valid (if the file is corrupted this will throw an exception)
                data[1] += "Yes";

                if (IsPDF(fileInfo.Format))   // Some corrupted files do not throw an exception, but we cannot determine their format.  So check to ensure we see the file as a PDF.
                                              // Also, some files may just have the PDF extension, but are not actually PDF files.  It is best to ensure we see it as a PDF file.
                {
                    data[2] += "Yes";
                    if (!PDFFile.IsEncrypted(pdfFile))  // Determine if the file requires a password to open
                    {
                        data[3] += "No";
                        PDFDocument pdfDoc = new PDFDocument(pdfFile); // Create PDFDocument object to determine if file is searchable or not
                        pdfDoc.ParsePages(PDFParsePagesOptions.AllIgnoreWhiteSpaces, 1, 1); // For this sample we only check the first page
                        PDFDocumentPage firstPage = pdfDoc.Pages[0];
                        for (int i = 0; i < firstPage.Objects.Count; i++)
                        {
                            if (firstPage.Objects[i].ObjectType == PDFObjectType.Text) // Indicates the document has searchable text
                            {
                                data[4] += "Yes";
                                break;
                            }
                        }
                    }
                    else
                    {
                        data[3] += "Yes";
                        data[4] += "N/A";
                    }
                }
                else
                {
                    data[2] += "No";
                    data[3] += "N/A";
                    data[4] += "N/A";
                }
            }
            catch (Exception ex)
            {
                // If we throw "PDF Error - File is corrupted" we've determined the file to be PDF, but it is corrupted and cannot be read
                if (ex.Message == "PDF Error - File is corrupted")
                {
                    data[1] += "No";
                    data[2] += "Yes";
                    data[3] += "N/A";
                    data[4] += "N/A";
                }
            }

            DisplayResults(data);
            Console.ReadLine();
        }

        private static void DisplayResults(string[] data)
        {
            foreach (string result in data)
            {
                Console.WriteLine(result);
            }
            Console.ReadLine();
        }

        private static bool IsPDF(RasterImageFormat rasterImageFormat)
        {
            return ((rasterImageFormat == RasterImageFormat.RasPdf) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfCmyk) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfG31Dim) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfG32Dim) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfG4) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfJbig2) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfJpeg) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfJpeg411) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfJpeg422) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfLzw) ||
                     (rasterImageFormat == RasterImageFormat.RasPdfLzwCmyk));
        }

Sub Main()
        'Set License And Key here
        Dim licFile As String = ""
        Dim keyFile As String = ""
        RasterSupport.SetLicense(licFile, keyFile)
        Dim codecs As RasterCodecs = New RasterCodecs()
        Dim pdfFile As String = "C:\Users\cthompson\Desktop\leadtools.pdf"


        Dim Data As String() = {"Filename:   ", "Readable?   ", "Is a PDF?   ", "Encrypted?  ", "Searchable? "}

        Data(0) += Path.GetFileName(pdfFile)

        Try

            Dim fileInfo As CodecsImageInfo = codecs.GetInformation(pdfFile, False)  ' Determine if file Is valid (if the file Is corrupted this will throw an exception)
            data(1) += "Yes"

            ' Some Then corrupted files Do Not Throw an exception, but we cannot determine their format.  So check To ensure we see the file As a PDF.
            ' Also, some files may just have the PDF extension, but are Not actually PDF files.  It Is best to ensure we see it as a PDF file.
            If IsPDF(fileInfo.Format) Then

                data(2) += "Yes"

                If Pdf.PDFFile.IsEncrypted(pdfFile) = False Then ' Determine Then If the file requires a password To open

                    Data(3) += "No"
                    Dim pdfDoc As PDFDocument = New PDFDocument(pdfFile) ' Create PDFDocument object to determine if file Is searchable Or Not
                    pdfDoc.ParsePages(PDFParsePagesOptions.AllIgnoreWhiteSpaces, 1, 1) ' For this sample we only check the first page
                    Dim firstPage As PDFDocumentPage = pdfDoc.Pages(0)
                    For i As Integer = 0 To firstPage.Objects.Count '(Int() i = 0; i < firstPage.Objects.Count; i++)

                        If (firstPage.Objects(i).ObjectType = PDFObjectType.Text) Then ' Indicates the document has searchable text

                            Data(4) += "Yes"
                            Exit For

                        End If
                    Next

                Else
                    Data(3) += "Yes"
                    data(4) += "N/A"
                End If
            Else
                data(2) += "No"
                data(3) += "N/A"
                data(4) += "N/A"
            End If

        Catch ex As Exception
            ' If we throw "PDF Error - File is corrupted" we've determined the file to be PDF, but it is corrupted and cannot be read
            If ex.Message = "PDF Error - File is corrupted" Then

                data(1) += "No"
                data(2) += "Yes"
                data(3) += "N/A"
                data(4) += "N/A"

            End If
        End Try

        DisplayResults(data)
        Console.ReadLine()

    End Sub
    Sub DisplayResults(ByRef data As String())
        For Each result As String In data
            Console.WriteLine(result)
        Next

        Console.ReadLine()

    End Sub
    Function IsPDF(ByRef rasterImageFormat As RasterImageFormat) As Boolean
        Return (rasterImageFormat = RasterImageFormat.RasPdf) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfCmyk) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfG31Dim) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfG32Dim) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfG4) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfJbig2) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfJpeg) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfJpeg411) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfJpeg422) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfLzw) Or
                     (rasterImageFormat = RasterImageFormat.RasPdfLzwCmyk)
    End Function