SAT na Impressora Leopardo

[EduardoElias]

5 minutos atrás, Daniel Simoes disse:

Estou lendo novamente o artigo...

http://web.archive.org/web/20141207201042/http://nicholas.piasecki.name/blog/2009/12/sending-a-bit-image-to-an-epson-tm-t88iii-receipt-printer-using-c-and-escpos/

Vou tentar implementar algo... Não me agrada o ACBrPosPrinter não ser capaz de subir um Logo para a Impressora...

Se me permite... vai precisar primeiro gerar o QRCode em forma de bitmap, para entao aplicar este codigo ai para virar ESCPOS

aqui esta a solucao pronta para VCL / FMX para gerar o QRCode se nao existe no ACBr

http://zarko-gajic.iz.hr/firemonkey-mobile-android-ios-qr-code-generation-using-delphi-xe-5-delphizxingqrcode/

Forte abraco. Se der certo e precisar testar estou a disposicao.

[Daniel Simoes]

Já geramos o QRCode, na impressão em Fortes Report e Fast... optamos por usar uma Unit simples, de terceiros... ela está em:

http://svn.code.sf.net/p/acbr/code/trunk2/Fontes/Terceiros/DelphiZXingQRCode/ACBrDelphiZXingQRCode.pas

(fiz pequenos ajustes, em relação a Unit original)

 

Humm.. só agora notei que estamos falando da mesma Unit..

[EduardoElias]

3 horas atrás, Daniel Simoes disse:

Humm.. só agora notei que estamos falando da mesma Unit..

Legal, so a diferenca que no link que te passei acima, o Zarko descreve como voce ter compatibilidade em varias plataformas fazendo a coisa funcionar em vcl e fmx ao mesmo tempo. 

[Daniel Simoes]

Consegui implementar no componente ACBrPosPrinter os métodos:

    procedure ImprimirBMP(ABMPStream: TStream); overload;
    procedure ImprimirBMP(ArquivoBMP: String); overload;
    procedure ImprimirLogo(AKC1: Integer = -1; AKC2: Integer = -1;
      AFatorX: Integer = -1; AFatorY: Integer = -1);
    procedure GravarLogo(ABMPStream: TStream; AKC1: Integer = -1;
      AKC2: Integer = -1); overload;
    procedure GravarLogo(ArquivoBMP: String; AKC1: Integer = -1;
      AKC2: Integer = -1); overload;
    procedure ApagarLogo(AKC1: Integer = -1; AKC2: Integer = -1);

Não usei o formato de Download indicado no artigo (column format), pois ele parece ser antigo,e extremamente confuso...

Estou usando o comando GS 8 L, função 112, que utiliza a imagem em "raster format", que é mais natural para conversão de um BMP monocromático...

http://www.nonov.io/convert_bmp_to_ascii

Ainda falta implementar uma "Tag", para permitir a impressão de uma Imagem em disco (por exemplo)... devo subir tudo em breve...

[EduardoElias]

16 horas atrás, Daniel Simoes disse:

 

Ainda falta implementar uma "Tag", para permitir a impressão de uma Imagem em disco (por exemplo)... devo subir tudo em breve...

Obviamento estou aguardando ansioso, assim que voce subir faco teste nas impressoras que tenho aqui e dou feedback.

Muito Obrigado

[Daniel Simoes]

Enquanto não termino as demais implementações... se possível, por favor me auxilie nos testes com as Units abaixo...

 

 

 

[Daniel Simoes]

Finalmente... consegui enviar tudo para o SVN...

 

[EduardoElias]

Em 20/01/2019 at 00:04, Daniel Simoes disse:

 

Daniel, nao consegui baixar e testar ainda, minha esposa foi internada e tive de dar atencao a isto. Mais no fim da semana pretendo dar uma atencao especial para isto, com certeza deve ter feito um excelente trabalho!

 

Obrigado

[Daniel Simoes]

Tranquilo @EduardoElias.... Família em 1o Lugar... Agradeço os testes