• 

Keywords: code 39 barcode, Delphi, Code128, UPCA, EAN13, PDF417, Data Matrix, QRCode, GS1128

Anyone who needs to know how to generate barcode in Delphi application needs look no further. Barcodesoft Encoder is a smart and simple solution to generate linear and two-dimensional barcode in your own Delphi application.

1. Create a new VCL Forms application. Add a TButton and a TMemo.
TMemo is able to display 2D barcode because 2D barcode contains multiple lines of texts.

2. Open DOS prompt. If you are using Windows 10 or Windows 7, please Open DOS prompt as administrator.
Please go to the following folder
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
Type in the following DOS command to register crUFLbcs.dll
regsvr32 crUFLbcs.dll


3. Click menu Component ==> Import Component, then choose Type Library and click Next button as shown below. Add cruflBCS_TLB in uses section before add code snippet to your button onclick event handler.

Click Add button and choose cruflbcs.dll from C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil folder. Or C:\Program Files (X86)\Common Files\Barcodesoft\FontUtil folder on 64-bit systems.

linear barcode:

Code39, code128, GS1-128 (UCC/EAN-128), UPC-A, EAN13 etc. Please copy and modify the following code snippet.

For Code39 Barcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.Code39('BARCODE DELPHI');
Memo1.Text := str;
Memo1.Font.Name := 'Code39mHr';
end;

For Code128 Barcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.Code128A('BARCODE DELPHI');
Memo1.Text := str;
Memo1.Font.Name := 'Code128AmHr';
end;

For GS1-128 Barcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.UCCEAN128('011234567890123456');
Memo1.Text := str;
Memo1.Font.Name := 'Code128m';
end;

For UPCA Barcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.UPCA('12345678901');
Memo1.Text := str;
Memo1.Font.Name := 'UpcEanM';
end;

For Intelligent Mail Barcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I :ILinear;
str : WideString;
begin
I := CoCLinear.Create;
str := I.IM('Intelligent Mail BARCODE DELPHI');
Memo1.Text := str;
Memo1.Font.Name := 'BcsIM';
end;

For GS1-Databar Barcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I :IDatabar;
str : WideString;
begin
I := CoCDatabar.Create;
str := I.Databar14('GS1-Databar DELPHI');
Memo1.Text := str;
Memo1.Font.Name := 'BcsDatabarM';
end;

2D Barcode

PDF417, Data Matrix, QR Code, Aztec code, MaxiCode and Code16K. Please copy and modify the following code snippet.

PDF417 barocde:

procedure TForm1.Button1Click(Sender: TObject);
var
I : IPDF417;
str : WideString;
begin
I := CoCPDF417.Create;
str := I.Encode('PDF417 Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'BcsPdf417';
end;

Data Matrix barcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I : IDataMatrix;
str : WideString;
begin
I := CoCDataMatrix.Create;
str := I.Encode('Delphi Data Matrix Barcode');
Memo1.Text := str;
Memo1.Font.Name := 'BcsDatamatrix';
end;

QR Code barcode:

procedure TForm1.Button1Click(Sender: TObject);
var
I : IQRCode;
str : WideString;
begin
I := CoCQrcode.Create;
str := I.Encode('QRCode Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'BcsQrcode';
end;

Aztec Code:

procedure TForm1.Button1Click(Sender: TObject);
var
I : IAztec;
str : WideString;
begin
I := CoCAztec.Create;
str := I.Encode('Aztecd Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'BcsAztec';
end;

MaxiCode:

procedure TForm1.Button1Click(Sender: TObject);
var
I : IBCSMaxiCode;
str : WideString;
begin
I := CoCMaxiCode.Create;
str := I.Encode('Maxicode Barcode Delphi');
Memo1.Text := str;
Memo1.Font.Name := 'BcsMaxicode';
end;

You can modify code snippet above and start playing around from here.