Barcode components for Delphi

The dLSoft dBarcode DLL products consist of C/C++ DLLs and include Delphi components (derived from TImage) and full sample source code illustrating the writing of barcode applications in Delphi. These components are currently for ANSI versions of Delphi and do not support Delphi 2010.

Delphi component screen shot - click on images to enlarge

Design view in Delphi

Products

There are 12 dLSoft dBarcode DLL products, each supporting a range of barcode types

- the barcode image creators for your C/C++ Windows programs based on a DLL; includes Delphi Components derived from TImage.

Download a TestWare version now

Features

• - Create high resolution barcode images for Windows applications with a single call
• - Optionally include text, bearer bars, margin indicators and generate checksums
• - Set text justification, bar and background colours, orientation
• - Creates image files in WMF, BMP, GIF, PCX, PNG formats
• - Creates a pattern string for developers who wish to print their own bars
• - Suitable for Visual Basic, VBA, Visual C/C++, Delphi and many other development systems
• - DLL includes built-in dialog box for selecting barcode properties.
• - 2D versions can produce mirror image barcodes

View the product Help files - see the Home menu above.

dBarcode DLL - Universal supports: 2 of 5, 3 of 9, Australia Post, Codabar, Code 11, Code 39, Extended Code 39, Code 93, Extended Code 93, Code 128, Code B, Deutschen Post, DUN14, EAN- 8, EAN-13, EAN-14, EAN-128/UCC-128, ISBN, ISMN, ISSN, IATA 2 of 5, ITF-14, ITF-6, Interleaved 2 of 5, InfoMail, Italian Post 2/5, Italian Post 3/9, Japan Post, JAN, Korean Postal Authority, Matrix 2 of 5, MSI (Modified Plessey), OneCode, Planet, Plessey, PostNet & FIM, Royal Mail 4 State, SSCC, SICI/SISAC, Swiss Post, Telepen (numeric and ASCII), UCC-14, UPC-A, UPC-E

System Requirements

Windows 2000/XP
Delphi Development environment, v6 or later.

Licensing*

Each dLSoft dBarcode DLL may licensed as a single computer product or as a developer version which permits Royalty-free distribution of the DLL as part of the developer's own project for up to 10,000 distributions.

Using the components

The barcode component is based on the TImage and so inherits many of its properties from this object. Over and above this, the component supports properties specific to its application, in this case the production of Barcodes. The component can be placed on a form and its properties set a Design time or altered through code at Run-Time.
A sample application is included in the form of the dBarcode1 project, which includes the UNIT1.PAS source file.
A typical example is shown below

procedure TForm1.DoBarcode();
begin
Barcode1.Xunit:=20;
Barcode1.BarcodeType:=8;
Barcode1.Caption:=Edit1.Text;
errormessage.Text:=Barcode1.GetError(Barcode1.Error);
end;

Printing the barcode

To print a barcode image one approach is to Draw the Picture on the Printer.Canvas, as shown in the code sample below.
Note that the Picture is created in HIMETRIC units, and so to print the image at the correct size these must be converted into printer pixel units using the GetDeviceCaps() function.

procedure TForm1.Button2Click(Sender: TObject);
var
ii: integer;
jj: integer;
Rect: TRect;
pScalex: Integer;
pScaley: integer;
begin
DoBarcode(); {recreate the barcode image}
{set the target rectangle for drawing on the printer}
{change from mm to pixels}
pScalex:=GetDeviceCaps((Printer.Handle),LOGPIXELSX);
pScaley:=GetDeviceCaps((Printer.Handle),LOGPIXELSY);
ii:=(Barcode1.ImageWidth*pScalex) div 2540;
jj:=(Barcode1.ImageHeight*pScaley) div 2540;
Rect.Left:=200;
Rect.Top:=200;
Rect.Right:=Rect.Left+ii;
Rect.Bottom:=Rect.Top+jj;
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Rect, Barcode1.Picture.Graphic);
Printer.EndDoc;
end;