Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   lector no lee codigos de barras generados por componete Barcode (https://www.clubdelphi.com/foros/showthread.php?t=80130)

ingabraham 06-09-2012 00:33:04

lector no lee codigos de barras generados por componete Barcode
 
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

Código Delphi [-]

   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

Cita:

Empezado por ingabraham (Mensaje 441974)
este es el codigo que estoy utilizando para generar el codigo

Código Delphi [-]
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.

Código Delphi [-]
 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!!!


La franja horaria es GMT +2. Ahora son las 00:33:01.

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