Write 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 
 
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 WriteExample() 
   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 = 0 
   rc.Width = 0 
   rc.Height = 0 
 
   Dim barcodeText As String() 
   barcodeText = New String(0) {} 
 
   Dim matrixData As BarcodeData = New BarcodeData() 
   matrixData.Location = rc 
   barcodeText(0) = "Data Matrix Default Size" 
   matrixData.Data = ConvertFromStringArray(barcodeText) 
 
   Dim postData As BarcodeData = New BarcodeData() 
   rc.X = 50 
   rc.Y = 50 
   rc.Width = 300 
   rc.Height = 200 
   postData.Location = rc 
   barcodeText(0) = "12345678901" 
   postData.Data = ConvertFromStringArray(barcodeText) 
 
   Dim standardData As BarcodeData = New BarcodeData() 
   rc.X = 360 
   rc.Y = 50 
   rc.Width = 300 
   rc.Height = 250 
   standardData.Location = rc 
   barcodeText(0) = "012345678901" 
   standardData.Data = ConvertFromStringArray(barcodeText) 
 
   Dim patchData As BarcodeData = New BarcodeData() 
   rc.X = 660 
   rc.Y = 50 
   rc.Width = 200 
   rc.Height = 450 
   patchData.Location = rc 
   barcodeText(0) = "1100" 
   patchData.Data = ConvertFromStringArray(barcodeText) 
 
   Dim stackedData As BarcodeData = New BarcodeData() 
   rc.X = 860 
   rc.Y = 50 
   rc.Width = 300 
   rc.Height = 450 
   patchData.Location = rc 
   stackedData.Location = rc 
   barcodeText(0) = "1234567890123" 
   stackedData.Data = ConvertFromStringArray(barcodeText) 
 
   Dim pdf417Data As BarcodeData = New BarcodeData() 
   rc.X = 50 
   rc.Y = 400 
   rc.Width = 0 
   rc.Height = 0 
   pdf417Data.Location = rc 
   barcodeText(0) = "Pdf417" 
   pdf417Data.Data = ConvertFromStringArray(barcodeText) 
 
   Dim microPdf417Data As BarcodeData = New BarcodeData() 
   rc.X = 200 
   rc.Y = 600 
   rc.Width = 0 
   rc.Height = 0 
   microPdf417Data.Location = rc 
   barcodeText(0) = "Micro Pdf417" 
   microPdf417Data.Data = ConvertFromStringArray(barcodeText) 
 
   Dim qrData As BarcodeData = New BarcodeData() 
   rc.X = 200 
   rc.Y = 400 
   rc.Width = 0 
   rc.Height = 0 
   qrData.Location = rc 
   barcodeText(0) = "QR Code Model 2 AutoSize" 
   qrData.Data = ConvertFromStringArray(barcodeText) 
 
   Dim barColor As BarcodeColor = New BarcodeColor() 
   barColor.BarColor = "Black" 
   barColor.SpaceColor = "White" 
 
   Dim bar1d As Barcode1d = New Barcode1d() 
   bar1d.OutShowText = True 
 
   Dim barPDF As BarcodeWritePdf = New BarcodeWritePdf() 
   barPDF.AspectHeight = 0 
   barPDF.AspectWidth = 0 
   barPDF.Columns = 0 
   barPDF.Rows = 0 
   barPDF.EccLevel = BarcodePdf417EccLevelFlags.UsePercent 
   barPDF.EccPercentage = 50 
   barPDF.Justify = BarcodeJustifyFlags.Right 
   barPDF.Module = 21 
   barPDF.ModAspectRatio = 4 
 
   Dim barDM As BarcodeWriteDatamatrix = New BarcodeWriteDatamatrix() 
 
   barDM.Justify = BarcodeJustifyFlags.Right 
   barDM.FileIdHigh = 0 
   barDM.FileIdLow = 0 
   barDM.GroupNumber = 0 
   barDM.GroupTotal = 0 
   barDM.XModule = 0 
 
   Dim barQR As BarcodeWriteQr = New BarcodeWriteQr() 
 
   Dim options As WriteOptions = New WriteOptions() 
   Dim dataMatrix As WriteBarcode2DDataMatrix = New WriteBarcode2DDataMatrix() 
   dataMatrix.Type = WriteBarcode2DDataMatrixType.DatamatrixDefault 
   dataMatrix.Data = matrixData 
 
   options.Add(dataMatrix) 
 
   Dim standard As WriteBarcode1dStandard = New WriteBarcode1dStandard() 
   standard.Type = WriteBarcodeStandardFlags.Ean13 
   standard.Data = standardData 
 
   options.Add(standard) 
 
   Dim post As WriteBarcode1dPost = New WriteBarcode1dPost() 
   post.Type = WriteBarcode1dPostType.Planet 
   post.Data = postData 
 
   options.Add(post) 
 
   Dim patch As WriteBarcode1dPatch = New WriteBarcode1dPatch() 
   patch.Type = WriteBarcode1dPatchType.Patchcode 
   patch.Data = patchData 
 
   options.Add(patch) 
 
   Dim stacked As WriteBarcode1dStacked = New WriteBarcode1dStacked() 
   stacked.Type = WriteBarcode1dStackedType.Rss14Stacked 
   stacked.Data = stackedData 
 
   options.Add(stacked) 
 
   Dim pdf417 As WriteBarcode2DPdf417 = New WriteBarcode2DPdf417() 
   pdf417.Type = WriteBarcode2DPdf417Type.Pdf417 
   pdf417.Data = pdf417Data 
 
   options.Add(pdf417) 
 
   Dim microPdf417 As WriteBarcode2DMicroPdf417 = New WriteBarcode2DMicroPdf417() 
   microPdf417.Type = WriteBarcode2DMicroPdf417Type.MicroPdf417 
   microPdf417.Data = microPdf417Data 
 
   options.Add(microPdf417) 
 
   Dim qr As WriteBarcode2DQr = New WriteBarcode2DQr() 
   qr.Type = WriteBarcode2DQrType.Default 
   qr.Data = qrData 
 
   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 
      If TypeOf response.Destination Is RawBinaryData Then 
         File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "Write_Barcode.Pdf"), (TryCast(response.Destination, RawBinaryData)).Data) 
      End If 
   End If 
 
   client.Close() 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class