Delphi
Codes à barres dans les projets Delphi

Comment utiliser les codes à barres dans Delphi
Delphi 2005, 2006, 2007, 2009, 2010, XE, XE2, XE3, XE4, XE5, XE6, XE7, XE8, 10 Seattle, 10.1 Berlin, 10.2 Tokyo, 10.3 Rio

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.

Créer un nouveau projet: "File" - "Nouveau" - "VCL Forms Application":

Pour placer ActiveBarcode sur un formulaire, vous sélectionnez le contrôle ActiveBarcode à partir de la palette d'outils. Vous trouverez ceci sous "ActiveX" en tant que composant "TBarcode":

Sélectionnez TBarcode et placez le composant sur le formulaire. Malheureusement, Delphi ajoute l'objet de code à barres avec une couleur de fond noir.

Mais, pas de problème, il suffit de résoudre ce problème. Dans l'inspecteur d'objet, vous pouvez personnaliser les propriétés du composant. Alors définir la couleur de fond au blanc.

Voila, l'objet de code à barres semble bien maintenant:

Dans cet exemple, nous ajoutons un contrôle de plus, un TEdit au formulaire. Maintenant, votre formulaire peut ressembler à suit:

Ensuite, nous lions le champ d'édition directement au contrôle. Ouvrez le code source de l'événement "textchange" en cliquant en deux clics sur le champ d'édition. Cet événement est toujours appelé, si le contenu du champ d'édition est modifié. Idéalement pour notre exemple. Nous donnons cette mise à jour immédiatement au contrôle.

Voilà. Maintenant, lancez le programme:

Modifier le contenu du champ d'édition pour modifier le code-barres.

Programmation:
Le réglage des propriétés est très simple. Quelques exemples :

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

Utilisation de la propriété image:
Copiez le code-barres à un objet d'image :

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:
Copiez le code-barres actuel sur le presse-papiers. Metafile (WMF):

  Barcode1.CopyToClipboard;

Bitmap:

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.Assign(Image1.Picture.Bitmap);