Delphiでのプロフェッショナルなバーコード生成

リニアおよび2DバーコードをVCLアプリケーションに統合するための包括的なガイド。

準備はよろしいですか？

Barcodesoft Encoder Delphiコンポーネントをダウンロードしてください。

Delphiでバーコードを生成するための確実な方法をお探しの開発者にとって、これ以上のソリューションはありません。 Barcodesoft Encoderは、独自のDelphiアプリケーション内でリニア（1D）および2次元（2D）バーコードを生成するための、スマートでシンプルなソリューションを提供します。

1 環境の準備

新しい VCLフォームアプリケーション を作成します。TButton と TMemo を追加してください。 2Dバーコードには複数行のエンコード済みテキストが含まれることが多いため、表示には TMemo コンポーネントが適しています。

2 エンコーダーDLLの登録

次のDOSコマンドを実行してコンポーネントを登録します：

regsvr32 crUFLbcs.dll

プロのヒント： 登録に失敗した場合は、Windows .NET Framework ユーティリティを使用してください： Regtlibv12 _cruflbcs.tlb

3 コンポーネントのインポート

メニューから Component → Import Component を選択します。
Type Library を選択して「次へ」をクリックします。
コードを記述する前に、uses セクションに cruflBCS_TLB を追加します。
次のフォルダからDLLを選択します：C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil

実装例

リニアバーコード (1D)

Code39, Code128, GS1-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, MaxiCodeの統合。

// QRコードの実装

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;