lector no lee codigos de barras generados por componete Barcode

[ingabraham]

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]

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]

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]]

Empezado por ingabraham

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]

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]]

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!!!