Delphi 4-7
Codes à barres dans les projets Delphi

Comment utiliser les codes à barres dans Delphi
Version 4.x, 7.x

Vous pouvez utiliser ActiveBarcode dans Delphi comme n'importe quel autre contrôle (par exemple comme un bouton). Vous devez d'abord ajouter le contrôle ActiveBarcode dans l'environnement de développement Delphi. Accédez au menu "Composant" et sélectionnez la fonction "Import ActiveX control":

Un dialogue apparaît sur votre écran. Sélectionnez "ActiveBarcode" à partir de cette liste de contrôles. Ensuite, cliquez sur le "Install..." bouton:

Suivez les instructions apparaissant sur votre écran.

Le contrôle ActiveBarcode est désormais ajouté à votre environnement de développement Delphi. Les icônes de code à barres d'ActiveBarcode apparaîtront dans la barre d'outils située dans "ActiveX":

Sélectionnez maintenant cette icône et placez-la n'importe où sous une forme. Le contrôle du code-barres sera placé sous cette forme. Ce sera un code-barres standard. Vous pouvez modifier ceci et toutes les autres propriétés de ce contrôle de code à barres dans le "Inspecteur d'objet".

Par exemple, vous pouvez sélectionner n'importe quel code à barres pris en charge par ActiveBarcode : QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18, ...

Programmation:
Définir les propriétés est très simple. Quelques exemples :

Barcode1.Text := '123456789012';
Barcode1.BackColor := clWhite;
Barcode1.ForeColor := clBlack;

Using the Picture Property:
How to copy the barcode image into a image object:

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.CleanupInstance;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Barcode1.Picture.graphic);

Clipboard:
How to copy a barcode into the Windows clipboard. First as meta file (WMF):

  Barcode1.CopyToClipboard;

And now as bitmap image:

Image1.Picture.Bitmap.Height := Barcode1.Height;
Image1.Picture.Bitmap.Width := Barcode1.Width;
Barcode1.Picture.PictureAdapter := nil;  // delphi workaround
Barcode1.Picture.CleanupInstance;
Clipboard.Assign(Image1.Picture.Bitmap);