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
using Leadtools.Services;
using Leadtools.Services.Barcode.ServiceContracts;
using Leadtools.Services.Barcode.ServiceImplementations;
using leadtools.services.barcode.datacontracts._2009._01;
using leadtools.services.datacontracts._2009._01;
using leadtools.services.raster.datacontracts._2009._01;
public void ReadExample()
{
BarcodeServiceClient client = new BarcodeServiceClient();
RawBinaryData sourceBinaryData = new RawBinaryData();
sourceBinaryData.Data = File.ReadAllBytes(LeadtoolsExamples.Common.ImagesPath.Path + "barcode2.tif");
LeadRectangle searchRectangle = new LeadRectangle();
searchRectangle.X = 0;
searchRectangle.Y = 0;
searchRectangle.Width = 0;
searchRectangle.Height = 0;
Barcode1d bar1d = 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;
BarcodeReadPdf barPDF = new BarcodeReadPdf();
barPDF.Direction = BarcodeDirectionFlags.LeftToRight;
BarcodeColor barColor = new BarcodeColor();
barColor.BarColor = "Black";
barColor.SpaceColor = "White";
ReadOptions options = new ReadOptions();
ReadBarcode1d4State barcode1d4State = new ReadBarcode1d4State();
barcode1d4State.Flags = ReadBarcode1d4StateFlags.AustralianPost;
options.Add(barcode1d4State);
ReadBarcode1dStandard barcode1dStandard = new ReadBarcode1dStandard();
barcode1dStandard.Flags = ReadBarcodeStandardFlags.All;
options.Add(barcode1dStandard);
ReadBarcode2DQr barcode2DQr = new ReadBarcode2DQr();
barcode2DQr.Flags = ReadBarcode2DQrFlags.QrCode;
options.Add(barcode2DQr);
ReadBarcode2DPdf417 barcode2DPdf417 = new ReadBarcode2DPdf417();
barcode2DPdf417.Flags = ReadBarcode2DPdf417Flags.Pdf417;
options.Add(barcode2DPdf417);
ReadBarcode2DMicroPdf417 barcode2DMicroPdf417 = new ReadBarcode2DMicroPdf417();
barcode2DMicroPdf417.Flags = ReadBarcode2DMicroPdf417Flags.MicroPdf417;
options.Add(barcode2DMicroPdf417);
ReadRequest request = new ReadRequest();
request.Code1d = bar1d;
request.CodeColor = barColor;
request.CodePdf = barPDF;
request.MultipleMaxCount = 0;
request.Options = options;
request.ReadFlags = BarcodeReadFlags.BlockSearch | BarcodeReadFlags.Markers;
request.SearchRectangle = searchRectangle;
request.Source = sourceBinaryData;
request.TypeFlags = BarcodeMajorTypeFlags.Barcodes1d | BarcodeMajorTypeFlags.Barcodes2dRead | BarcodeMajorTypeFlags.BarcodesQrRead;
request.Unit = BarcodeUnit.ScanlinesPerPixels;
ReadResponse response = client.Read(request);
if (response.Barcodes != null)
{
string barcodeMsg = string.Format("Total Bar Code Symbols Found = {0}", response.Barcodes.Count);
Console.WriteLine(barcodeMsg);
int i = 0;
foreach (BarcodeData data in response.Barcodes)
{
i++;
barcodeMsg = string.Format("No. {0}\nType {1}\nUnits {2}\nPosX {3}\nPosY {4}\nWidth {5}\nHeight {6}\nGroup {7}\nDuplicate Index {8}\n",
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);
}
}
client.Close();
}