Standard ou superior

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

ActiveBarcode: Como usar códigos de barras no Delphi
1

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.

Criar um novo projeto: "arquivo"-"novo"-"aplicativo de formulários VCL":

ActiveBarcode: Barcode, Delphi

2

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":

ActiveBarcode: Barcode, Delphi

3

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.

ActiveBarcode: Barcode, Delphi

4

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.

ActiveBarcode: Barcode, Delphi

5

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

ActiveBarcode: Barcode, Delphi

6

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

ActiveBarcode: Barcode, Delphi

7

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.

ActiveBarcode: Barcode, Delphi

8

É só isso. Agora inicie o programa:

ActiveBarcode: Barcode, Delphi

9

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;
Usando a propriedade Picture:
Copie o código de barras para um objeto de imagem:
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);
Prancheta:
Copie o código de barras atual para a área de transferência. Metaficheiro (WMF):
  Barcode1.CopyToClipboard;
Bitmap:
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);

ActiveBarcode: InfoEsta documentação é mais adequada para uma versão diferente: