Delphi
Codes à barres dans les projets Delphi

EnterpriseInfoPour utiliser cette fonctionnalité, vous avez besoin d'une licence de développeur

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

1

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.

1. Ajouter ActiveBarcode à l'environnement de développement Delphi


D'abord importer le contrôle ActiveBarcode dans un paquet. Lancez la fonction "Import Component" à partir du menu "Composant".

Barcode, Delphi

2

Le « dialogue de composants » apparaît :

Barcode, Delphi

3

Sélectionnez "Import ActiveX control" et cliquez sur "Suivant". Maintenant, une liste des contrôles disponibles sera affichée:

Barcode, Delphi

4

Sélectionnez "ActiveBarcode" de cette liste et cliquez sur "Suivant". Une page pour la configuration des composants s'affiche :

Barcode, Delphi

5

Vous n'avez pas besoin de changer quelque chose ici. Cliquez sur "Suivant". Une page pour "Créer l'unité" s'affiche.

Barcode, Delphi

6

Sélectionnez "Installer vers le nouveau paquet" ici et cliquez sur "Suivant". Le dialogue "Nouveau paquet" s'affiche:

Barcode, Delphi

7

Entrez un nom pour le nouveau package, par exemple ActiveBarcode. Ensuite, cliquez sur "Finir". Maintenant ActiveBarcode est ajouté comme un composant au nouveau paquet. Maintenant, vous devez compiler le paquet. Sélectionnez la fonction "Build ActiveBarcode" dans le menu "Projet":

Barcode, Delphi

8



2. Un exemple de la façon d'utiliser ActiveBarcode maintenant:

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

Barcode, Delphi

9

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":

Barcode, Delphi

10

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

Barcode, Delphi

11

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.

Barcode, Delphi

12

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

Barcode, Delphi

13

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

Barcode, Delphi

14

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.

Barcode, Delphi

15

Voilà. Maintenant, lancez le programme:

Barcode, Delphi

16

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