Foros Club Delphi

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

truequeman 14-01-2007 05:11:33

Codigo barras
 
hola.. me gustaria integrarle un lector de codigo de barras a una aplicacion que hice... tengo que configurar algo adicional para que me funcione? o que me recomiendan para trabajar con codigos de barras.
saludos.

Wonni 14-01-2007 13:13:53

No tienes que configurar nada especial. El lector lo conectas a la entrada del teclado y el teclado al lector y no tienes que instalar nada. Lo mismo da que escribas con el teclado que pases el codigo por el lector.

Si tu aplicacion va a generar codigos de barras, entonces necesitaras algun componente. Por ejemplo: http://www.psoft.sk/

truequeman 14-01-2007 18:47:33

codigo
 
ah orale. osea que capturando el codigo primero (ya teniendolo en la base de datos) luego scanneando el codigo ya lo lee? :eek: ...
Ups la pagina que me pasaste no jala.. te sabes alguna otra?.
y para yo hacer en mi aplicacion que me haga un codigo de barras de los "codigos de mis articulos" que ya hice en mi base de datos. (hacer una forma impresa como un sticker para despues imprimirla y luego scanearla despues),
saludos y gracias.

Wonni 15-01-2007 17:10:34

Yo, el unico programa en el que genero codigos de barras lo hago en el formato Ean13 utilizando esta funcion:

Código Delphi [-]
Function CrearEan13(Cadena:String):String;

 Var
   SumaImp, Sumapar, SumaTotal, DC:Integer;

Begin
 If Length(Cadena)<10 Then
  Repeat
    Cadena:='0'+Cadena;
  Until
    Length(Cadena)=10;

 Cadena:='84'+Cadena;



 SumaImp:=StrToInt(Cadena[1])+StrToInt(Cadena[3])+StrToInt(Cadena[5])+
          StrToInt(Cadena[7])+StrToInt(Cadena[9])+StrToInt(Cadena[11]);

  SumaPar:=StrToInt(Cadena[2])+StrToInt(Cadena[4])+StrToInt(Cadena[6])+
          StrToInt(Cadena[8])+StrToInt(Cadena[10])+StrToInt(Cadena[12]);

 SumaPar:=SumaPar*3;

 SumaTotal:=SumaPar+SumaImp;

 DC:=10-StrToInt(IntToStr(SumaTotal)[Length(IntToStr(SumaTotal))]);


 If DC>0 Then
 Begin
 Result:=Cadena+IntToStr(DC);
 End Else
  Begin
   Result:=Cadena+'0';
  End;

End;


Como calcular el digito de control del Ean13 lo saque de aqui:

http://www.argcon.net/normalizacion/norma10.htm



Este programa lo tengo en 3 tiendas de ropa y todas tienen esta impresora para sacar las etiquetas:

http://www.siliconblue.net/index.php...ucts&man_id=32

Pero si haces una busqueda con google encontraras otras y mejores que esta.

Simplemente crea un reporte con la/s medidas de las etiquetas y ya esta. Lo suyo es que sea configurable.

En cuanto al componente de codigos de barras, pues yo en su dia probe varios, incluso fuentes. Pero al final di con el que te he indicado arriba y va de maravilla. Pero si haces una busqueda con google encontraras varios, pero eso ya, tendras que probarlos tu mismo y ver cual te satisface.

Onti 15-01-2007 17:27:47

Yo también uso los componentes de Psoft y van muy bien y no he tenido ningun problema con ellos, son de pago...pero los valen

Wonni 16-01-2007 23:51:45

Cita:

Empezado por Onti
Yo también uso los componentes de Psoft y van muy bien y no he tenido ningun problema con ellos, son de pago...pero los valen

Efectivamente, valen la pena. Hace ya mucho tiempo que los utilizo. Y como ya mencioné, llegué a probar varias opciones. Y la verdad, no son caros.

Onti 16-01-2007 23:57:48

Por si acaso el sitio web www.psoft.sk/ ya esta activo nuevamente

truequeman 17-01-2007 07:33:14

cual es mejor.
 
ya probe muchos y ya tengo los codigos de algunos..
pero mi duda es cual es mejor:?
probe uno que solo genera el ean 13. que son 13 numeros a fuerzas con la ultima conversion manual del numero. eso lo he probado con un lector (scanner) y si me lee los codigos.. igual cuando los genero.
y ahora tengo otro que genera todos los formatos.. probe el ean128 y me gusta por que puede capturar un solo caracter en codigo de barras incluyendo texto. la cosa es.. si genero un codigo asi (impreso) lo puedo leer en otro lugar? o a fuerzas en donde lo hice?.


La franja horaria es GMT +2. Ahora son las 18:23:51.

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