Para expertos en codigo de barras

[Casimiro Noteví]

Empezado por JulioGO

  
 * FUNCTION _StrToEan13(tcString,.T.) * CODIGO EAN-13
 *------------------------------------------------------
 * Convierte un string para ser impreso con
 * fuente True Type "PF EAN P36" ó "PF EAN P72"
 * PARAMETROS:
 *   tcString: Caracter de 12 dígitos (0..9)
 *   tlCheckD: .T. Solo genera el dígito de control
 *			 .F. Genera dígito y caracteres a imprimir
 * USO: _StrToEan13('123456789012')
 * RETORNA: Caracter
 *------------------------------------------------------

Creo que ese código es de un lenguaje xBase, probablemente Clipper, no delphi.

Pero mi dilema es como genero la cadena la cual al ser enviada a una de estas funciones me generará el dichoso codigo de barras. Otra consulta cual formato uso para codificar los libros el EAN8, EAN13 u otro.

La cadena con el código lo tendrás que leer del artículo o en todo caso crearlo tú mismo.

Si usas el EAN13 deberás generar un código de máximo 12 caracteres más el de control.

Te recuerdo que casi todos los generadores de informes incorporan la posibilidad de convertir el código pasado a código de barras, ejemplo: si tienes un artículo con código: 123456789012 descripción: Don Quijote de La Mancha, en el generador de informes pones un componente "código de barras" y él solito te lo imprimirá con las barras correspondientes.

Si quieres validar que sea un código correcto puedes echar un vistazo al truco 465 de trucomanía

Creo que tu pregunta era esa, espero haberme explicado bien.