Delphi 4-7
Códigos de barras em projetos Delphi

Como usar códigos de barras no Delphi
Version 4.x, 7.x

Você pode usar ActiveBarcode em Delphi como qualquer outro controle (por exemplo, como um botão). Primeiro você tem que adicionar o controle ActiveBarcode no ambiente de Desenvolvimento Delphi. Vá para o menu "componente" e selecione a função "Import controle ActiveX":

Uma caixa de diálogo aparece na tela. Selecione "ActiveBarcode" a partir dessa lista de controles. Em seguida, clique no "install..." Botão:

Siga as instruções apresentadas no ecrã.

Agora, o controle ActiveBarcode é adicionado ao seu ambiente de Desenvolvimento Delphi. Os ícones de código de barras do ActiveBarcode aparecerá na barra de ferramentas localizada em "ActiveX":

Agora selecione este ícone e coloque-o em qualquer lugar em um formulário. O controle de código de barras será colocado nesse formulário. Este será um código de barras padrão. Você pode alterar isso e todas as outras propriedades desse controle de código de barras no "Inspetor de objetos".

Por exemplo, você pode selecionar qualquer código de barras que é suportado pelo ActiveBarcode: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18, ...

Programação:
Para definir as propriedades é muito simples. Alguns exemplos:

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