Read Method

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