BarcodeWriteQr Class

Imports Leadtools.Services
Imports leadtools.services.barcode.datacontracts
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

Private Function ConvertFromStringArray(ByVal data As String()) As Byte()
   If data Is Nothing OrElse data.Length = 0 Then
      Return Nothing
   End If
   Dim list As New List(Of Byte())
   Dim ascii As ASCIIEncoding = New ASCIIEncoding()

   Dim length As Integer = 0
   Dim i As Integer = 0
   Do While i < data.Length
      Dim bytes As Byte() = ascii.GetBytes(data(i))
      list.Add(bytes)
      length += bytes.Length
      length += 1
      i += 1
   Loop

   Dim ret As Byte() = New Byte(length - 1) {}
   Dim index As Integer = 0
   i = 0
   Do While i < list.Count
      Dim bytes As Byte() = list(i)
      bytes.CopyTo(ret, index)
      index += bytes.Length + 1
      i += 1
   Loop

   Return ret
End Function

Public Sub BarcodeWriteQrExample()
   Dim client As BarcodeServiceClient = New BarcodeServiceClient()

   Dim sourceBinaryData As RawBinaryData = New RawBinaryData()
   sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "barcode1.tif"))

   Dim convertOptions As RasterConvertOptions = New RasterConvertOptions()
   convertOptions.Source = sourceBinaryData
   convertOptions.Destination = Nothing
   convertOptions.Format = RasterImageFormat.RasPdf
   convertOptions.FirstPage = 1
   convertOptions.LastPage = 1
   convertOptions.BitsPerPixel = 24
   convertOptions.QualityFactor = 2

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

   Dim barcodeText As String()
   barcodeText = New String(0) {}
   barcodeText(0) = "QR Default Size"

   Dim data As BarcodeData = New BarcodeData()
   data.Location = rc

   data.Data = ConvertFromStringArray(barcodeText)

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

   Dim bar1d As Barcode1d = New Barcode1d()
   Dim barPDF As BarcodeWritePdf = New BarcodeWritePdf()
   Dim barDM As BarcodeWriteDatamatrix = New BarcodeWriteDatamatrix()

   Dim barQR As BarcodeWriteQr = New BarcodeWriteQr()
   barQR.EccLevel = BarcodeQrEccLevel.LevelL
   barQR.GroupNumber = 0
   barQR.GroupTotal = 0
   barQR.Justify = BarcodeJustifyFlags.Right
   barQR.XModule = 0

   Dim options As WriteOptions = New WriteOptions()

   Dim qr As WriteBarcode2DQr = New WriteBarcode2DQr()
   qr.Type = WriteBarcode2DQrType.Default
   qr.Data = data

   options.Add(qr)

   Dim request As WriteRequest = New WriteRequest()

   request.Code1d = bar1d
   request.CodeColor = barColor
   request.CodeDatamatrix = barDM
   request.CodePdf = barPDF
   request.CodeQr = barQR
   request.ConvertOptions = convertOptions
   request.TypeFlags = BarcodeMajorTypeFlags.BarcodesDatamatrixWrite
   request.Unit = BarcodeUnit.ScanlinesPerPixels
   request.WriteFlags = BarcodeWriteFlags.UseColors Or BarcodeWriteFlags.Transparent Or BarcodeWriteFlags.InitializationReader Or BarcodeWriteFlags.DisableCompression
   request.WriteOptions = options

   Dim response As WriteResponse = client.Write(request)

   If Not response.Destination Is Nothing Then
      File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "BarcodeWriteQR.Pdf"), (TryCast(response.Destination, RawBinaryData)).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