Delphi
Códigos de barras em projetos Delphi

Como usar códigos de barras no 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

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.

1. Adicionar ActiveBarcode ao ambiente de Desenvolvimento Delphi

A "caixa de diálogo componente" aparece:

Selecione "importar controle ActiveX" e clique em "Next". Agora uma lista dos controles disponíveis será mostrada:

Selecione "ActiveBarcode" a partir dessa lista e clique em "Next". Uma página para a configuração do componente será mostrada:

Você não precisa mudar algo aqui. Clique em "Next". Aparece uma página para "criar unidade".

Selecione "instalar para novo pacote" aqui e clique em "Next". A caixa de diálogo "novo pacote" está aparecendo:

Insira um nome para o novo pacote, por exemplo, ActiveBarcode. Em seguida, clique em "Finish". Agora ActiveBarcode é adicionado como um componente para o novo pacote. Agora você deve compilar o pacote. Selecione a função "Build ActiveBarcode" no menu "projeto":

2. um exemplo de como usar o ActiveBarcode agora:

Para colocar o ActiveBarcode em um formulário, você seleciona o controle ActiveBarcode na paleta de ferramentas. Você encontrará isso em "ActiveX" como um componente "TBarcode":

Selecione TBarcode e coloque o componente no formulário. Infelizmente, Delphi adiciona o objeto de código de barras com uma cor de fundo preto.

Mas, não há problema, basta corrigir isso. No Inspetor de objetos, você pode personalizar as propriedades do componente. Então defina a cor de fundo para branco.

Voila, o objeto de código de barras parece bem agora:

Neste exemplo, adicionamos mais um controle, um TEdit ao formulário. Agora seu formulário pôde olhar como segue:

Em seguida, vinculamos o campo de edição diretamente ao controle. Abra o código-fonte para o evento "TextChange" clicando duas vezes no campo de edição. Esse evento sempre é chamado, se o conteúdo do campo de edição for alterado. Idealmente para o nosso exemplo. Damos esta atualização imediatamente para o controle.

É só isso. Agora inicie o programa:

Altere o conteúdo do campo de edição para alterar o código de barras.

Programação:
Definir propriedades é muito simples. Alguns exemplos:

Barcode1.Text := '123456789012';
Barcode1.BackColor := clWhite;
Barcode1.ForeColor := clBlack;

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

  Barcode1.CopyToClipboard;

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

From our FAQ