Read Method

'Declaration
 
<OperationContractAttribute("Read")>
<FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=False)>
Function Read( _
   ByVal request As ReadRequest _
) As ReadResponse

Public Sub ReadExample()
      Dim client As BarcodeServiceClient = New BarcodeServiceClient()
      Dim sourceBinaryData As RawBinaryData = New RawBinaryData()
      sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "barcode2.tif"))

      Dim searchRectangle As LeadRectangle = New LeadRectangle()
      searchRectangle.X = 0
      searchRectangle.Y = 0
      searchRectangle.Width = 0
      searchRectangle.Height = 0

      Dim bar1d As Barcode1d = New Barcode1d()

      bar1d.Direction = BarcodeDirectionFlags.LeftToRight
      bar1d.ErrorCheck = True
      bar1d.Granularity = 9
      bar1d.MaximumLength = 3
      bar1d.MinimumLength = 1
      bar1d.WhiteLines = 3
      bar1d.OutShowText = True
      bar1d.StandardFlags = Barcode1dStandardFlags.Barcode1dNormal

      Dim barPDF As BarcodeReadPdf = New BarcodeReadPdf()
      barPDF.Direction = BarcodeDirectionFlags.LeftToRight

      Dim barColor As BarcodeColor = New BarcodeColor()
      barColor.BarColor = "Black"
      barColor.SpaceColor = "White"

      Dim options As ReadOptions = New ReadOptions()

      Dim barcode1d4State As ReadBarcode1d4State = New ReadBarcode1d4State()
      barcode1d4State.Flags = ReadBarcode1d4StateFlags.AustralianPost
      options.Add(barcode1d4State)

      Dim barcode1dStandard As ReadBarcode1dStandard = New ReadBarcode1dStandard()
      barcode1dStandard.Flags = ReadBarcodeStandardFlags.All
      options.Add(barcode1dStandard)

      Dim barcode2DQr As ReadBarcode2DQr = New ReadBarcode2DQr()
      barcode2DQr.Flags = ReadBarcode2DQrFlags.QrCode
      options.Add(barcode2DQr)

      Dim barcode2DPdf417 As ReadBarcode2DPdf417 = New ReadBarcode2DPdf417()
      barcode2DPdf417.Flags = ReadBarcode2DPdf417Flags.Pdf417
      options.Add(barcode2DPdf417)

      Dim barcode2DMicroPdf417 As ReadBarcode2DMicroPdf417 = New ReadBarcode2DMicroPdf417()
      barcode2DMicroPdf417.Flags = ReadBarcode2DMicroPdf417Flags.MicroPdf417
      options.Add(barcode2DMicroPdf417)

      Dim request As ReadRequest = New ReadRequest()

      request.Code1d = bar1d
      request.CodeColor = barColor
      request.CodePdf = barPDF
      request.MultipleMaxCount = 0
      request.Options = options
      request.ReadFlags = BarcodeReadFlags.BlockSearch Or BarcodeReadFlags.Markers
      request.SearchRectangle = searchRectangle
      request.Source = sourceBinaryData
      request.TypeFlags = BarcodeMajorTypeFlags.Barcodes1d Or BarcodeMajorTypeFlags.Barcodes2dRead Or BarcodeMajorTypeFlags.BarcodesQrRead
      request.Unit = BarcodeUnit.ScanlinesPerPixels


      Dim response As ReadResponse = client.Read(request)

      If Not response.Barcodes Is Nothing Then
         Dim barcodeMsg As String = String.Format("Total Bar Code Symbols Found = {0}", response.Barcodes.Count)
         Console.WriteLine(barcodeMsg)

         Dim i As Integer = 0
         For Each data As BarcodeData In response.Barcodes
            i += 1
            barcodeMsg = String.Format("No. {0}" & Constants.vbLf & "Type {1}" & Constants.vbLf & "Units {2}" & Constants.vbLf & "PosX {3}" & _
                                       Constants.vbLf & "PosY {4}" & Constants.vbLf & "Width {5}" & Constants.vbLf & "Height {6}" & _
                                       Constants.vbLf & "Group {7}" & Constants.vbLf & "Duplicate Index {8}" & _
                                       Constants.vbLf, i, data.Type.ToString(), data.Unit.ToString(), data.Location.X.ToString(), _
                                       data.Location.Y.ToString(), data.Location.Width.ToString(), data.Location.Height.ToString(), data.Group.ToString(), _
                                       data.IndexDuplicate.ToString())

            Console.WriteLine(barcodeMsg)
         Next data
      End If

      client.Close()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class