IBarcodeService Interface

Imports Leadtools.Services
Imports Leadtools.Services.Barcode.ServiceContracts
Imports Leadtools.Services.Barcode.ServiceImplementations
Imports leadtools.services.barcode.datacontracts._2009._01
Imports leadtools.services.datacontracts._2009._01
Imports leadtools.services.raster.datacontracts._2009._01

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