在 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;