Ver la Versión Completa : lector no lee codigos de barras generados por componete Barcode
ingabraham
06-09-2012, 00:33:04
al imprimir un codigo de barra generado por el componente barcode, e imprimirlo en una hoja normal de una impresora laser (epson stylus t50)
no me lo lee el lector de barra.
me bajo un recibo de pago mio de internet y lo imprimo y el lector si me lo lee.
no se pero me parece que este componente no esta funcionando bien, espero que los que ayan utilizado me orienten.
delphi 7.
espere k me entiendan.
ingabraham
06-09-2012, 01:00:19
este es el codigo que estoy utilizando para generar el codigo
Barcode1 := TAsBarcode.Create(self);
Barcode1.Top := 5 ;
Barcode1.Left := 10;
Barcode1.Typ := bcCodePostNet;
Barcode1.Modul := 2 ;
Barcode1.Ratio := 2.0;
Barcode1.Height := 45 ;
Barcode1.Typ := TBarcodeType(2);
Barcode1.ShowTextPosition := TShowTextPosition(5);
Barcode1.ShowText := TBarcodeOption(0);
Barcode1.Text := LCODBARRA.Caption;
Image1.Picture := nil;
Barcode1.DrawBarcode(Image1.Canvas);
cancun
06-09-2012, 04:38:35
Hola
Yo he utilizado el Barcode de PSoft y no he tenido problema (lo tuve pero con el PDF417 hace tiempo), en primer lugar mencionas que usas una impresora laser pero el modelo que mencionas corresponde a una de tinta y tal vez el código no se imprima bien, es mejor cuando se imprime en laser sobre todo si el código es pequeño, por otro lado me parece que el tipo de código que usas es para correo (si estoy mal que alguien me corrija), no sé si eso es lo que quieres, haz probado con otro tipo de código???
Saludos
ElKurgan
06-09-2012, 07:34:24
este es el codigo que estoy utilizando para generar el codigo
Barcode1 := TAsBarcode.Create(self);
Barcode1.Top := 5 ;
Barcode1.Left := 10;
Barcode1.Typ := bcCodePostNet; <<-------
Barcode1.Modul := 2 ;
Barcode1.Ratio := 2.0;
Barcode1.Height := 45 ;
Barcode1.Typ := TBarcodeType(2); <<-------
Barcode1.ShowTextPosition := TShowTextPosition(5);
Barcode1.ShowText := TBarcodeOption(0);
Barcode1.Text := LCODBARRA.Caption;
Image1.Picture := nil; Barcode1.DrawBarcode(Image1.Canvas);
¿¿ ?? ¿Tiene sentido esa duplicidad?
No entiendo
ingabraham
06-09-2012, 16:04:06
ya lo resolvi, creo que era por el tipo de grafica en el codigo de barra.
mi codigo quedo asi, para el k le sirva, y doy por terminado el hilo.
gracias a los k siguieron este hilo.
Barcode1 := TAsBarcode.Create(self);
Barcode1.Top := 5;
Barcode1.Left := 10;
Barcode1.Typ := bcCodePostNet;
Barcode1.Modul := 2;
Barcode1.Ratio := 2.0;
Barcode1.Height := 45;
Barcode1.OnChange := Self.Barcode1Change;
Barcode1.Typ := TBarcodeType(22);//cambie esto que es el stilo de la imagen del codigo de barra
Barcode1.ShowTextPosition := TShowTextPosition(5);
Barcode1.ShowText := TBarcodeOption(1);
Barcode1.Text := LCODBARRA.Caption;
movorack
07-09-2012, 00:34:01
Interesante... Aunque te dijeron que repetias Barcode1.Typ en tu solución no lo implementas... y además das por terminado el hilo... muy amable!!!
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.