Delphi
Códigos de barras en proyectos Delphi

EnterpriseInfoPara utilizar esta funcionalidad se requiere una licencia de desarrollador

Delphi

Cómo usar los códigos de barras en 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

Puede utilizar ActiveBarcode en Delphi como cualquier otro control (por ejemplo, como un botón). En primer lugar, debe agregar el control ActiveBarcode al entorno de desarrollo de Delphi.

1. Añadir ActiveBarcode al entorno de desarrollo de Delphi


En primer lugar, importe ActiveBarcode Control en un paquete. Inicie la función "Importar componente" desde el menú "Componente".

Barcode, Delphi

2

Aparece el "Diálogo de componentes":

Barcode, Delphi

3

Seleccione "Importar control ActiveX" y haga clic en "Siguiente". Ahora se mostrará una lista de los controles disponibles:

Barcode, Delphi

4

Seleccione "ActiveBarcode" en esa lista y haga clic en "Siguiente". Se mostrará una página para la configuración de componentes:

Barcode, Delphi

5

No necesitas cambiar algo aquí. Haga clic en "Siguiente". Aparece una página para "Crear unidad".

Barcode, Delphi

6

Seleccione "Instalar en nuevo paquete" aquí y haga clic en "Siguiente". Aparece el cuadro de diálogo "Nuevo paquete":

Barcode, Delphi

7

Introduzca un nombre para el nuevo paquete, por ejemplo, ActiveBarcode. A continuación, haga clic en "Finalizar". Ahora ActiveBarcode se agrega como un componente al nuevo paquete. Ahora debe compilar el paquete. Seleccione la función "Build ActiveBarcode" en el menú "Proyecto":

Barcode, Delphi

8



2. Un ejemplo de cómo utilizar ActiveBarcode ahora:

Cree un nuevo proyecto: "Archivo" - "Nuevo" - "Aplicación de formularios VCL":

Barcode, Delphi

9

Para colocar ActiveBarcode en un formulario, seleccione ActiveBarcode Control en la paleta de herramientas. Encontrará esto en "ActiveX" como un componente "TBarcode":

Barcode, Delphi

10

Seleccione TBarcode y coloque el componente en el formulario. Lamentablemente, Delphi añade el objeto de código de barras con un color de fondo negro.

Barcode, Delphi

11

Pero, no hay problema, simplemente arregle esto. En el inspector de objetos puede personalizar las propiedades del componente. Así que establece el color de fondo en blanco.

Barcode, Delphi

12

Voila, el objeto de código de barras se ve bien ahora:

Barcode, Delphi

13

En este ejemplo agregamos un control más, un TEdit al formulario. Ahora su formulario podría tener el siguiente aspecto:

Barcode, Delphi

14

A continuación, vinculamos el campo de edición directamente al control. Abra el código fuente para el evento "textchange" haciendo doble clic en el campo de edición. Siempre se llama a este evento, si se cambia el contenido del campo de edición. Idealpara nuestro ejemplo. Damos esta actualización inmediatamente al control.

Barcode, Delphi

15

Eso es todo. Ahora inicie el programa:

Barcode, Delphi

16

Cambie el contenido del campo de edición para cambiar el código de barras.

Programación:
Establecer propiedades es muy simple. Algunos ejemplos:

Barcode1.Text := '123456789012';
Barcode1.BackColor := clWhite;
Barcode1.ForeColor := clBlack;
Uso de la propiedad Picture:
Copie el código de barras en un objeto de imagen:
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);
Portapapeles:
Copie el código de barras actual en el portapapeles. Metaarchivo (WMF):
  Barcode1.CopyToClipboard;
Bits:
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);