Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   codigos de barras (https://www.clubdelphi.com/foros/showthread.php?t=9185)

the darkness 16-04-2004 16:07:22

codigos de barras
 
como puedo hacer para imprimir en mis quick reports codigos de barras que puedan ser leidos por un lector común. y donde puedo conseguir una buena fuente de peferencia gratis, ya que he conseguido algunas y lo que hago es cambiar la fuente de una qrlabel al código de barras, pero al leerlo con el lector no funciona, conocen alguna forma???
les agradeceria mucho me pudieran ayudar.
the darkness :(

mrmanuel 16-04-2004 16:49:09

Hola,

lo primero tienes que especificar es que tipo de codigo de barras quieres generar.

Code 39, Code 128, Code Ean 128 .............. etc ......

Otra cosa a tener en cuenta es que los codigos de barra van codificados a traves de caracteres ASCII y estos se calculas en funcion del tipo de codigo (Code).

Ejm: Code 39 --> 1TDatoACodificar*

Las fuentes las puedes sacar gratuitamente de Internet, yo uso Code128-wide-Bt (Vale para cualquier tipo de Code deseado).

Si tienes alguna duda...

the darkness 20-04-2004 19:25:43

antes que nada te agradesco que me hayas contestado.
supongamos que decido generar el codebar 39, ya lo tengo como fuente.

ahora investigando y por lo que me cuentas se que de lo que yo escriba debo generar una o dos últimas barras para que el lector lo lea por medio de un calculo.
mi pregunta es como debo hacerlo, ojala me puerdas ayudar.
otra vez muchas gracias.
saludos

mrmanuel 22-04-2004 11:56:31

Hola

Perdon por la demora,

lo quetienes que poner:

2 caracteres de inicio--> 1T
el datos a codificar (tal cual, sin codificar)
el digito de control
1 caracter de fin--> * (asterisco)

todo junto sin espacios, ni comillas.
si el dato a enviar es : 12548899

se quedaria de la siguiente manera: 1T12548899x*

donde x es el dígito de control que tienes que haber calculado previamente.


La fuente se encarga de transformarlo en Código de Barras.

the darkness 22-04-2004 14:27:49

codigos de barra
 
de nueva cuenta muchas gracias mrmanuel, no sabes lo que me servira toda esta información. ahora, como hago el calculo para el caracter x debo contar todos los caracteres y a partir de eso decidir que caracter dar??, ojala me puedas ayudar. lo de los caracteres de inicio ya lo engo anotado.
de nueva cuenta muchas gracias.
atte.
eduardo maldonado

mrmanuel 22-04-2004 15:24:23

Hola nuevamente

Fallo mio,
el Code 39 lo puedes tener con digito de control o sin él.

Si es sin digito tienes que ponerlo así:

Barras_Lote.Caption:= '*' + '1T' + datos + '*';


y si necesitas Digito:

el digito de control lo tienes que sacar usando una formula de codificacion.
Mi formula se llama "Codificar_39 ('1T' + Datos)". En internet puedes encontrar un monton de funciones que hagan esto.

(Yo no uso el digito, pero si te hace falta dilo).

the darkness 22-04-2004 18:02:29

insertar còdigo
 
muchas gracias mrmanuel, lo probarè y de seguro ha de funcionar, de hecho lo ùnico que debo hacer es imprimirlo en un quickreport con algunos otros datos.

llevgo algunos años programando en delphi, asì que he hecho varios inventos, si de algo te sirve mi ayuda con gusto lo harè.

saludos.
eduardo maldonado :)


La franja horaria es GMT +2. Ahora son las 22:28:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi