LEADTOOLS WCF Barcode (Leadtools.Services.Barcode.DataContracts assembly)

WriteResponse Class

Show in webframe
Example 





Members 
The WriteResponse object provides options for the Leadtools.Services.Barcode.ServiceContracts.IBarcodeService.Write(Leadtools.Services.Barcode.DataContracts.WriteRequest) operation.
Object Model
Syntax
[DataContractAttribute(Namespace="http://Leadtools.Services.Barcode.DataContracts/2009/01", Name="WriteResponse")]
public class WriteResponse 
'Declaration
 
<DataContractAttribute(Namespace="http://Leadtools.Services.Barcode.DataContracts/2009/01", Name="WriteResponse")>
Public Class WriteResponse 
'Usage
 
Dim instance As WriteResponse

            

            
[DataContractAttribute(Namespace="http://Leadtools.Services.Barcode.DataContracts/2009/01", Name="WriteResponse")]
public ref class WriteResponse 
Example
Copy Code  
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
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;

   byte[] ConvertFromStringArray(string [] data)
{
   if(data == null || data.Length == 0)
      return null;

   List<byte[]> list = new List<byte[]>();
   ASCIIEncoding ascii = new ASCIIEncoding();

   int length = 0;
   for(int i = 0; i < data.Length; i++)
   {
      byte[] bytes = ascii.GetBytes(data[i]);
      list.Add(bytes);
      length+= bytes.Length;
      length++;
   }

   byte[] ret = new byte[length];
   int index = 0;
   for(int i = 0; i < list.Count; i++)
   {
      byte[] bytes = list[i];
      bytes.CopyTo(ret, index);
      index += bytes.Length + 1;
   }

   return ret;
}


   public void WriteExample()
   {
      BarcodeServiceClient client = new BarcodeServiceClient();

      RawBinaryData sourceBinaryData = new RawBinaryData();
      sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"barcode1.tif"));

      RasterConvertOptions convertOptions = new RasterConvertOptions();
      convertOptions.Source = sourceBinaryData;
      convertOptions.Destination = null;
      convertOptions.Format = RasterImageFormat.RasPdf;
      convertOptions.FirstPage = 1;
      convertOptions.LastPage = 1;
      convertOptions.BitsPerPixel = 24;
      convertOptions.QualityFactor = 2;

      LeadRectangle rc = new LeadRectangle();
      rc.X = 100;
      rc.Y = 0;
      rc.Width = 0;
      rc.Height = 0;

      string[] barcodeText;
      barcodeText = new string[1];

      BarcodeData matrixData = new BarcodeData();
      matrixData.Location = rc;
      barcodeText[0] = "Data Matrix Default Size";
      matrixData.Data = ConvertFromStringArray(barcodeText);

      BarcodeData postData = new BarcodeData();
      rc.X = 50;
      rc.Y = 50;
      rc.Width = 300;
      rc.Height = 200;
      postData.Location = rc;
      barcodeText[0] = "12345678901";
      postData.Data = ConvertFromStringArray(barcodeText);

      BarcodeData standardData = new BarcodeData();
      rc.X = 360;
      rc.Y = 50;
      rc.Width = 300;
      rc.Height = 250;
      standardData.Location = rc;
      barcodeText[0] = "012345678901";
      standardData.Data = ConvertFromStringArray(barcodeText);

      BarcodeData patchData = new BarcodeData();
      rc.X = 660;
      rc.Y = 50;
      rc.Width = 200;
      rc.Height = 450;
      patchData.Location = rc;
      barcodeText[0] = "1100";
      patchData.Data = ConvertFromStringArray(barcodeText);

      BarcodeData stackedData = 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);

      BarcodeData pdf417Data = new BarcodeData();
      rc.X = 50;
      rc.Y = 400;
      rc.Width = 0;
      rc.Height = 0;
      pdf417Data.Location = rc;
      barcodeText[0] = "Pdf417";
      pdf417Data.Data = ConvertFromStringArray(barcodeText);

      BarcodeData qrData = 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);

      BarcodeData microPdf417Data = 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);

      BarcodeColor barColor = new BarcodeColor();
      barColor.BarColor = "Black";
      barColor.SpaceColor = "White";

      Barcode1d bar1d = new Barcode1d();
      bar1d.OutShowText = true;

      BarcodeWritePdf barPDF = 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;

      BarcodeWriteDatamatrix barDM = new BarcodeWriteDatamatrix();

      barDM.Justify = BarcodeJustifyFlags.Right;
      barDM.FileIdHigh = 0;
      barDM.FileIdLow = 0;
      barDM.GroupNumber = 0;
      barDM.GroupTotal = 0;
      barDM.XModule = 0;

      BarcodeWriteQr barQR = new BarcodeWriteQr();

      WriteOptions options = new WriteOptions();
      WriteBarcode2DDataMatrix dataMatrix = new WriteBarcode2DDataMatrix();
      dataMatrix.Type = WriteBarcode2DDataMatrixType.DatamatrixDefault;
      dataMatrix.Data = matrixData;

      options.Add(dataMatrix);

      WriteBarcode1dStandard standard = new WriteBarcode1dStandard();
      standard.Type = WriteBarcodeStandardFlags.Ean13;
      standard.Data = standardData;

      options.Add(standard);

      WriteBarcode1dPost post = new WriteBarcode1dPost();
      post.Type = WriteBarcode1dPostType.Planet;
      post.Data = postData;

      options.Add(post);

      WriteBarcode1dPatch patch = new WriteBarcode1dPatch();
      patch.Type  = WriteBarcode1dPatchType.Patchcode;
      patch.Data = patchData;

      options.Add(patch);

      WriteBarcode1dStacked stacked = new WriteBarcode1dStacked();
      stacked.Type  = WriteBarcode1dStackedType.Rss14Stacked;
      stacked.Data = stackedData;

      options.Add(stacked);

      WriteBarcode2DPdf417 pdf417 = new WriteBarcode2DPdf417();
      pdf417.Type  = WriteBarcode2DPdf417Type.Pdf417;
      pdf417.Data = pdf417Data;

      options.Add(pdf417);

      WriteBarcode2DMicroPdf417 microPdf417 = new WriteBarcode2DMicroPdf417();
      microPdf417.Type = WriteBarcode2DMicroPdf417Type.MicroPdf417;
      microPdf417.Data = microPdf417Data;

      options.Add(microPdf417);

      WriteBarcode2DQr qr = new WriteBarcode2DQr();
      qr.Type  = WriteBarcode2DQrType.Default;
      qr.Data = qrData;

      options.Add(qr);

      WriteRequest request = 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 | BarcodeWriteFlags.Transparent | BarcodeWriteFlags.InitializationReader | BarcodeWriteFlags.DisableCompression;
      request.WriteOptions = options;

      WriteResponse response = client.Write(request);

      if (response.Destination != null)
       {
          if (response.Destination is RawBinaryData)
          {
             File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"Write_Barcode.Pdf"), (response.Destination as RawBinaryData).Data);
          }
       }

      client.Close();
   }

   static class LEAD_VARS
   {
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
   }
Requirements

Target Platforms

See Also

Reference

WriteResponse Members
Leadtools.Services.Barcode.DataContracts Namespace

 

 


Products | Support | Contact Us | Copyright Notices
© 2006-2014 All Rights Reserved. LEAD Technologies, Inc.

Applications developed with LEADTOOLS WCF components require runtime licenses. Server licensing is required for applications on a server. For more information, refer to: LEADTOOLS Toolkit Features