WriteOption Class

'Declaration
 
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode2DPdf417)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode1d4State)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode2DMicroPdf417)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode1dPost)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode1dPatch)>
<DataContractAttribute(Namespace="http://Leadtools.Services.Barcode.DataContracts/2009/01", Name="WriteOption")>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode1dStacked)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode2DDataMatrix)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode2DQr)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.Barcode.DataContracts.WriteBarcode1dStandard)>
Public MustInherit Class WriteOption 

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