Delphi
Códigos de barras en proyectos 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

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.

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

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

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.

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.

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

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

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.

Eso es todo. Ahora inicie el programa:

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