在 Delphi 中实现专业的条形码生成

在您的 VCL 应用程序中集成线性及二维条形码的全面指南。

准备好开始了？

下载 Barcodesoft Encoder Delphi 组件。

如果您正在寻找一种在 Delphi 中生成条形码 的可靠方法，那么这就是您的最佳选择。 Barcodesoft Encoder 提供了一个智能且简单的方案，可以在您的原生 Delphi 应用程序中生成线性（一维）和二维条形码。

1 准备开发环境

新建一个 VCL 窗体应用程序 (VCL Forms Application)。添加一个 TButton 和一个 TMemo。由于二维条码通常包含多行文本，因此使用 TMemo 来展示是最佳选择。

2 注册编码器 DLL

输入以下 DOS 命令来注册 crUFLbcs.dll：

regsvr32 crUFLbcs.dll

专业提示： 如果注册失败，请使用 Windows .NET Framework 2.0 工具： Regtlibv12 _cruflbcs.tlb

3 导入组件

点击菜单 Component → Import Component。
选择 Type Library 并点击 Next。
在向按钮的 onclick 事件添加代码前，先在 uses 部分添加 cruflBCS_TLB。
从 C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil 文件夹中选择 DLL。

代码实现示例

线性条形码 (1D)

支持 Code39, Code128, GS1-128 (UCC/EAN-128), UPC-A, EAN13 等。

// Code 39 实现

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;

// GS1-128 (UCC/EAN-128) 实现

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;

高级二维条形码 (2D)

包括 PDF417, Data Matrix, QR Code, Aztec code, MaxiCode 及 Code16K。

// QR Code 实现

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;

// Data Matrix 实现

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;