Codigo barras

[Wonni]

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.