Ir para conteúdo
  • Cadastre-se

dev botao

SAT na Impressora Leopardo


Pedro_Manoel
  • Este tópico foi criado há 1892 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

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.. ;)

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

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

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

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

 

 

 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1892 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.