Delphi 4-7
Códigos de barras en proyectos Delphi

Delphi 4-7

Cómo usar los códigos de barras en Delphi
Version 4.x, 7.x

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. Vaya al menú "Componente" y seleccione la función "Importar control ActiveX":

Barcode, Delphi 4-7

2

Aparece un cuadro de diálogo en la pantalla. Seleccione "ActiveBarcode" en esa lista de controles. A continuación, haga clic en "Instalar..." Botón:

Barcode, Delphi 4-7

3

Siga las instrucciones que aparecen en la pantalla.

Ahora el control ActiveBarcode se agrega a su entorno de desarrollo de Delphi. Los iconos de código de barras de ActiveBarcode aparecerán en la barra de herramientas situada en "ActiveX":

Barcode, Delphi 4-7

4

Ahora seleccione este icono y colóquelo en cualquier lugar de un formulario. El control de código de barras se colocará en ese formulario. Este será un código de barras estándar. Puede cambiar esta y todas las demás propiedades de ese control de código de barras en el "Inspector de objetos".

Barcode, Delphi 4-7

5

Por ejemplo, puede seleccionar cualquier código de barras compatible con ActiveBarcode: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18, ...

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

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