VB.NET PDF-417 Reader & Scanner SDK

' Scan and decode PDF-417 barcode from image file
Dim datas As String() = BarcodeScanner.Scan("pdf-417-barcode-image.gif", BarcodeType.PDF417)

' Initialize scanning configuration for PDF417
Dim ops As New ScanOptions(BarcodeType.PDF417)
' Perform PDF417 barcode scanning
Dim result As BarcodeDetail() = BarcodeScanner.Scan(imgFilePath, ops)

' Validate scanning results
If result IsNot Nothing AndAlso result.Length > 0 Then
    ' Iterate all detected barcode records
    For Each b As BarcodeDetail In result
        Console.WriteLine("Message: {0}", b.GetMessage())

        ' Check if the barcode type is PDF417
        If b.Type = BarcodeType.PDF417 Then
            ' Convert to dedicated PDF417 property object
            Dim props As PDF417Props = CType(b.GetBarcodeProps(), PDF417Props)

            ' Output basic structure properties
            Console.WriteLine("Column:      {0}", props.ColumnCount.ToString())
            Console.WriteLine("Row:         {0}", props.RowCount.ToString())
            Console.WriteLine("Data Mode:   {0}", props.DataMode.ToString())
            Console.WriteLine("ECL:         {0}", props.ECL.ToString())

            ' Check and output Macro PDF417 information
            Console.WriteLine("Is Macro PDF417:       {0}", props.IsMacro)
            If props.IsMacro Then
                Console.WriteLine("Segment Index:       {0}", props.MacroSegmentIndex)
                Console.WriteLine("File ID:             ")

                ' Output Macro File ID codewords
                If props.MacroFileID IsNot Nothing AndAlso props.MacroFileID.Length > 0 Then
                    For Each v As Integer In props.MacroFileID
                        Console.WriteLine("                     " & v)
                    Next
                End If

                Console.WriteLine("Is Last Segment:     {0}", props.IsMacroLastSegment)
                Console.WriteLine("Optional Field Enable:   {0}", props.MacroOptFieldEnable)

                ' Output optional Macro fields if enabled
                If props.MacroOptFieldEnable Then
                    Console.WriteLine("File Name:               {0}", props.MacroFileName)
                    Console.WriteLine("Segment Count:           {0}", props.MacroSegmentCount)
                    Console.WriteLine("Timestamp:               {0}", props.MacroTimeStamp)
                    Console.WriteLine("Sender:                  {0}", props.MacroSender)
                    Console.WriteLine("Addressee:               {0}", props.MacroAddressee)
                    Console.WriteLine("File Size:               {0}", props.MacroFileSize)
                    Console.WriteLine("Checksum:                {0}", props.MacroChecksum)
                End If
            End If
        End If
    Next
End If

Public Shared Sub ReadMacroPDF417()
    ' Define the path of the barcode image file
    Dim imageFilePath As String = "..."
    
    ' Scan all PDF417 symbols in the target image
    Dim datas As BarcodeDetail() = BarcodeScanner.ScanInDetails(imageFilePath, BarcodeType.PDF417)
    
    ' Iterate all scanned barcode records
    For j As Integer = 0 To datas.Length - 1
        ' Check if current barcode is Macro PDF417
        Console.WriteLine(" Is Macro PDF417:    " & datas(j).isMacroPDF417())
        ' Get Macro PDF417 File ID
        Console.WriteLine(" File id:      " & datas(j).getMacroPDF417FileID())
        ' Check if it is the last segment
        Console.WriteLine(" Is Last Segment:    " & datas(j).isMacroPDF417LastSegment())
        ' Get segment index (starts from 0)
        Console.WriteLine(" Segment Index:      " & datas(j).getMacroPDF417SegmentIndex())
        ' Get File ID string (3 digits = one 900-based value)
        Console.WriteLine(" File ID:            " & datas(j).getMacroPDF417FileID())
        
        ' Extract raw data if it is a valid Macro PDF417
        If datas(j).isMacroPDF417() Then
            Dim barcodeSegmentData As String = datas(j).Data
            ' Add your data reconstruction logic here
        End If
    Next
End Sub