Génération Professionnelle de Codes-barres dans Delphi

Un guide complet pour intégrer les codes-barres linéaires et 2D dans vos applications VCL.

Prêt à commencer ?

Téléchargez les composants Delphi de Barcodesoft Encoder.

téléchargement base de données delphi code-barres

Les développeurs cherchant une méthode robuste pour générer des codes-barres dans Delphi ont trouvé la solution idéale. Le Barcodesoft Encoder offre une solution intelligente et performante pour générer des codes-barres linéaires (1D) et bidimensionnels (2D) au sein de vos applications Delphi natives.

1 Préparer votre environnement

Créez une nouvelle Application VCL Forms. Ajoutez un TButton et un TMemo. Le composant TMemo est essentiel pour les codes-barres 2D comme les QR Codes, car ils contiennent souvent plusieurs lignes de texte encodées.

2 Enregistrer la DLL de l'encodeur

Exécutez la commande DOS suivante pour enregistrer le composant :

regsvr32 crUFLbcs.dll
code-barres delphi

Conseil d'expert : Si l'enregistrement échoue, utilisez l'utilitaire du .NET Framework : Regtlibv12 _cruflbcs.tlb

3 Importer le composant

  1. Allez dans Component → Import Component.
  2. Choisissez Type Library et cliquez sur Suivant.
  3. Ajoutez cruflBCS_TLB à votre section uses.
  4. Sélectionnez la DLL dans C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil.
code-barres delphi

Exemples d'implémentation

Codes-barres linéaires (1D)

Supporte Code39, Code128, GS1-128, UPC-A, et EAN13.

// Implémentation 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;

Codes-barres 2D avancés

Intégrez PDF417, Data Matrix, QR Code, Aztec, et MaxiCode.

// Implémentation 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;

// Implémentation 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;