Cómo generar códigos de barras EAN8 y EAN13 desarrollando una aplicación con el lenguaje de programación Delphi 6. Incluimos una aplicación con código fuente gratuito: AjpdSoft Generador de códigos de barras, que servirá como ejemplo. Publicamos esta aplicación gratuita y open source (con código fuente en Delphi 6) que permite generar códigos de barras EAN8 y EAN13. La aplicación permite imprimir el código generado o guardarlo en fichero de imagen y calcular el dígito de control.

Videotutorial AjpdSoft Generador de códigos de barras, uso y funcionamiento

A continuación mostramos un videotutorial sobre cómo usar y cómo funciona AjpdSoft Generador de códigos de barras:

Estructura de un código de barras EAN13

En el siguiente enlace mostramos un tutorial donde explicamos la estructura de un código de barras EAN13:

Aplicación AjpdSoft Generador de códigos de barras en Delphi 6

El desarrollo de la aplicación es bastante sencillo, en Delphi 6 crearemos un formulario donde coloraremos los siguientes componentes:

  • TLabel: para etiquetar los cuadros de texto y mostrar información.
  • TEdit: para la introducción de los códigos de barras EAN8 y EAN13.
  • TButton: para generar el código de barras, imprimir, guardar en fichero de imagen y cerrar la aplicación.
  • TImage: para mostrar el código de barras generado en pantalla.
  • TQuickRep: para mostrar el código de barras generado en vista previa antes de imprimir.

A continuación mostramos cómo quedarían los componentes en el formulario principal de la aplicación AjpdSoft Generador de códigos de barras:

Aplicación AjpdSoft Generador de códigos de barras en Delphi 6

Más abajo listamos el código fuente de cada botón de la aplicación:

Y la aplicación completa con el código fuente gratuito y open source:

La aplicación en funcionamiento, generando un código de barras EAN8:

Aplicación AjpdSoft Generador de códigos de barras en Delphi 6

Generando un código de barras EAN13:

Aplicación AjpdSoft Generador de códigos de barras en Delphi 6

Si el dígito de control introducido por el usuario es incorrecto mostrará un mensaje con el dígito de control del código de barras correcto, lo modificará y lo generará:

Aplicación AjpdSoft Generador de códigos de barras en Delphi 6

Código fuente AjpdSoft Generador de códigos de barras en Delphi 6

A continuación mostramos el listado del código fuente completo de AjpdSoft Generador de códigos de barras. Mostramos un ejemplo práctico sobre cómo generar códigos de barras EAN8 y EAN13 mediante Delphi sin usar componentes adicionales y cómo calcular el dígito de control de un EAN8 y EAN13, pues la aplicación AjpdSoft Generador de códigos de barras obtiene el último dígito introducido por el usuario y comprueba si es el dígito de control correcto, si no lo es muestra el correcto y genera el código de barras con el dígito recalculado: