Código de Barras EAN 13 e EAN 8

Nesse artigo mostrarei como desenhar dois tipos de código de barras EAN 13 e EAN 8, em um PictureBox, não enfocarei nesse artigo a explicação de como construir o algaritimo de desenho do Código de Barra, é necessário um estudo especifico no Padrão EAN para entender como é construído um Código de Barra, estaria disponibilizando as funções necessárias e explicando o processo para a confecção de um aplicativo simples.

Em outro artigo estarei demonstrando como imprimir esse Código de barra usando o componente PrintDocument.

Vamos iniciar uma novo Projeto Windows Forms, coloque um Label altere o Text para Código de Barra, um TextBox, um PictureBox altere a BackColor para Window, um Button altere o Text para Desenhar, seu formulário deve ficar parecido com a Figura 1.

Clique para ver a imagem em seu tamanho real

Figura 1. Como deve ficar os componentes no Formulário

Declare a Função EANCodeBin, ela transforma o Código EAN em Binário essa função é usada pela função PrintEanBarcode, acompanhe a Listagem 1.

Listagem 1. Função EANCodeBIN

Agora vamos a declarar a função PrintEANBarCode, é necessário passar os seguintes parâmetros, o Código de Barra e o Objeto PictureBox aonde será desenhado as Brras do Código de Barra, os outros parâmetros são opcionais, os quatro parâmetros seguintes são as posições e tamanho do desenho e o ultimo é a fonte da linha que imprimirá o código de barra, acompanhe a Listagem 2.

Listagem 2. Função PrintEANCode

procedure PrintEANBarCode(strEANCode : String; objPicBox : PictureBox;
  const sngX1 : Single = -1; const sngY1 : Single = -1;
  const sngX2 : Single = -1; const sngY2 : Single = -1;
  const FontForText: Font = nil);
var
  I : Integer;
  sngPosX : Single;
  sngPosY : Single;
  sngScaleX : Single;
  strEANBin : String;
  strFormat : StringFormat;
  FontText : Font;
  sngXX1, sngYY1, sngXX2, sngYY2 : Single;
  BrushX : Brush;
begin
  StrFormat := StringFormat.Create;
  strEANBin := EANCodeBIN(strEANCode);
 
  If (FontForText = nil) Then
    FontText := Font.Create('Courier New', 10)
  else
    FontText := FontForText;
 
  If sngX1 = (-1) Then
    sngXX1 := 0
  else
    sngXX1 := sngX1;
 
  If sngY1 = (-1) Then
    sngYY1 := 0
  else
    sngYY1 := sngY1;
 
  If sngX2 = (-1) Then
    sngXX2 := objPicBox.Width
  else
    sngXX2 := sngX2;
 
  If sngY2 = (-1) Then
    sngYY2 := objPicBox.Height
  else
    sngYY2 := sngY2;
 
  sngPosX := sngXX1;
  sngPosY := sngYY2 - (1.5 * FontText.Height);
 
  BrushX := SolidBrush.Create(objPicBox.BackColor);
  objPicBox.CreateGraphics.FillRectangle(BrushX, sngXX1, sngYY1, sngXX2 - sngXX1, sngYY2 - sngYY1);
 
  sngScaleX := (sngXX2 - sngXX1) / strEANBin.Length;
 
  for I := 1 To Length(strEANBin) do
  begin
    If Copy(strEANBin, I, 1) = '1' Then
    begin
      BrushX := SolidBrush.Create(objPicBox.ForeColor);
      objPicBox.CreateGraphics.FillRectangle(BrushX, sngPosX, sngYY1, sngScaleX, sngPosY);
    end;
    sngPosX := sngXX1 + (I * sngScaleX);
 end;
 strFormat.Alignment := StringAlignment.Center;
 strFormat.FormatFlags := StringFormatFlags.NoWrap;
 BrushX := SolidBrush.Create(objPicBox.ForeColor);
 objPicBox.CreateGraphics.DrawString(strEANCode, FontText, BrushX, Convert.ToSingle((sngXX2 - sngXX1) / 2), Convert.ToSingle(sngYY2 - FontText.Height), strFormat);
 
end;

No evento Click do Button1 coloque o seguinte código para executar a Função de desenhar as barras do código de barra, Listagem 3.

Listagem 3. Executando a Função para Desenhar Barra

PrintEANBarCode(TextBox1.Text, PictureBox1, 10, 10, PictureBox1.Width - 20, PictureBox1.Height - 20);

Não esqueça de colocar no uses SysUtils, agora basta você digitar um Código de Barra e clicar em desenhar que ele desenhará as barras no PictureBox veja a Figura 2 e Figura 3.

Figura 2. Código de Barra EAN 13

Figura 3. Código de Barra EAN 8

Abraços a Todos.

Conheça nosso parceiro:

Enviar um Artigo

Enviado por: Emmanuel Alves

Outros artigos

Assine o Feed desta categoria

Classe Helpers - 13/07/2006
Procurando Letras, Palavras em um TMemo. - 26/04/2006
Programação Orientada a Objetos - 19/03/2005
Lendo e gravando arquivos de texto em Delphi - 10/03/2005
Ver mais...

Comentários do artigo [Novo comentário]

carlos escudeiro - 11 de Outubro de 2008 - 17:46

Só faltou o codigo do botão desenhar

Edilson Alves de Oliveira - 18 de Novembro de 2008 - 17:23

onde encontro esse tal de pictueBox no delphi?

ELIAS PAULINO - 26 de Outubro de 2009 - 12:59

tambem gostaria de saber onde eu encontro esse componente picturebox no delphi 7 , utilizo o quickreport 4.5

Everton Eberhardt - 24 de Abril de 2011 - 12:54

Não funciona?
o código do botão desenhar gera um erro!

Vicente Miras - 27 de Maio de 2011 - 11:06

Bom Dia,
Sei que já foi perguntado abaixo, mas não encontrei a resposta, gostaria de saber onde encontro o componente PictureBox, no Delphi 7 não tem.

Para adicionar um comentário você deve efetuar o login

» Procurando iPhones?
... e que tal iPods?

Gostou do CódigoFonte.net? Quer indicar a um amigo? Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:

Login:
Senha: