Delphi
Códigos de barras em projetos Delphi

EnterpriseInfoPara usar esta funcionalidade você precisa de uma licença de desenvolvedor

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

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.

1. Adicionar ActiveBarcode ao ambiente de Desenvolvimento Delphi


Primeiro importe o controle ActiveBarcode em um pacote. Inicie a função "importar componente" no menu "componente".

Barcode, Delphi

2

A "caixa de diálogo componente" aparece:

Barcode, Delphi

3

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

Barcode, Delphi

4

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

Barcode, Delphi

5

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

Barcode, Delphi

6

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

Barcode, Delphi

7

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

Barcode, Delphi

8



2. um exemplo de como usar o ActiveBarcode agora:

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

Barcode, Delphi

9

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

Barcode, Delphi

10

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.

Barcode, Delphi

11

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.

Barcode, Delphi

12

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

Barcode, Delphi

13

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

Barcode, Delphi

14

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.

Barcode, Delphi

15

É só isso. Agora inicie o programa:

Barcode, Delphi

16

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