Writes linear, PDF417, MicroPDF417, Data Matrix, and QR barcode symbols over the image.
[OperationContractAttribute(Action="Write",
AsyncPattern=false,
IsOneWay=false,
IsInitiating=true,
IsTerminating=false)]
[FaultContractAttribute(System.Type)]
public WriteResponse Write(
WriteRequest request
)
<OperationContractAttribute("Write")>
<FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault,
Action="",
Name="",
Namespace="",
ProtectionLevel=ProtectionLevel.None,
HasProtectionLevel=False)>
Function Write( _
ByVal request As Leadtools.Services.Barcode.Datacontracts.WriteRequest _
) As Leadtools.Services.Barcode.Datacontracts.WriteResponse
[OperationContractAttribute("Write")]
[FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault,
Action="",
Name="",
Namespace="",
ProtectionLevel=ProtectionLevel.None,
HasProtectionLevel=false)]
Leadtools.Services.Barcode.Datacontracts.WriteResponse^ Write(
Leadtools.Services.Barcode.Datacontracts.WriteRequest^ request
)
request
A System.Runtime.Serialization.DataContractAttribute containing the data that will be used by this Write operation.
A System.Runtime.Serialization.DataContractAttribute containing the document data resulting from the Write operation.
This operation supports all image formats currently supported by LEADTOOLS. Pass a valid image to this operation, if not, the operation will throw an exception.
The Write operation will write the barcode symbol over the image using the rectangle defined by the Leadtools.Services.Barcode.DataContracts.BarcodeData.Location property.
However, if the bitmap has a region, this operation will write the barcode using the region boundaries. If the region is non-rectangular, the barcode will be written to the rectangle bounding the region and subsequently clipped to the given region. This might cause the resulting barcode to be unreadable.
If you set the Leadtools.Services.Barcode.DataContracts.WriteRequest.WriteFlags property to Leadtools.Services.Barcode.DataContracts.BarcodeWriteFlags.UseColors, then this operation will use the Leadtools.Services.Barcode.DataContracts.WriteRequest.CodeColor property. Otherwise the operation will ignore it and use the default colors (i.e. black for bars and white for spaces).
The Leadtools.Services.Barcode.DataContracts.BarcodeReadFlags.UseColors enumeration value does not apply to 1 bit per pixel images.
The Leadtools.Services.Barcode.DataContracts.BarcodeWriteFlags.UseColors and Leadtools.Services.Barcode.DataContracts.BarcodeWriteFlags.Transparent values are used with all barcode types.
using Leadtools.Services;
using Leadtools.Services.Barcode.ServiceContracts;
using Leadtools.Services.Barcode.ServiceImplementations;
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";
}
Imports Leadtools.Services
Imports Leadtools.Services.Barcode.ServiceContracts
Imports Leadtools.Services.Barcode.ServiceImplementations
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
Raster .NET | C API | C++ Class Library | JavaScript HTML5
Document .NET | C API | C++ Class Library | JavaScript HTML5
Medical .NET | C API | C++ Class Library | JavaScript HTML5
Medical Web Viewer .NET
Your email has been sent to support! Someone should be in touch! If your matter is urgent please come back into chat.
Chat Hours:
Monday - Friday, 8:30am to 6pm ET
Thank you for your feedback!
Please fill out the form again to start a new chat.
All agents are currently offline.
Chat Hours:
Monday - Friday
8:30AM - 6PM EST
To contact us please fill out this form and we will contact you via email.