Paulo777

Obrigado foi de grande ajuda. Baixei o repositório do endereço indicado e tenho um problema. Ocorreu o erro: "Erro na instalação: Não foi possível retornar o diretório do pacote" relacionado ao ACBR_synapse. Eu busquei no fórum uma saída e encontrei o pedido para baixar novamente o pacote neste post: [ O rapaz obteve sucesso ao instalar novamente o pacote. Eu também. Mas agora apareceu outro erro. Foi no "Erro ao compilar o pacote "ACBr_NFeDanfeFR.dpk". As informações referentes estão em anexo incluindo o LOG. Bom, como estamos no gerenciador de versionamento de código, é possível que os responsáveis pelo projeto vejam os arquivos, no meu nó, que foram modificados pelo sistema para melhor visualização. Ou não? log_Delphi_XE8.txt

Tenho do Delphi 2010 XE8, rodando em sistema operacional Windows 7 64Bits. Baixei o projeto pelo site https://sourceforge.net/projects/acbr/. Ao executar o programa para instalação, ocorre o erro descrito LIST INDEX OUT OD BOUNDS(1) [imagem abaixo]. Neste fórum pesquisei o problema e esta relacionado em ambiente de programação. O meu caso nem consegui instala-lo.

Ótimo. Infelizmente a Bematech esta deixando a desejar. Quanto aos componentes ACBr, trata-se de uma paleta em delphi para conexões com impressoras fiscais? Interessante. Baixe o instalador, e ao tentar instalar o segundo passo, na identificação da versão do DELPHI ele não encontra, e a instalação não passa daqui. A versão que tenho do DELPHI é a XE8. Os compoenntes possuem limitação de versões? E com quais impressoras eles podem se conectar? att

Estou com o emulador da BEMATECH MP-4200 e DELPHI 2010 XE8. Estou usando as Dlls 32 bits. Em sistema windows 7 64bits. Como referencia de uso das funções estou usando o manual da própria bematech http://www3.bematech.com.br/suporte/bemafi32/index.html?configuracao.htm Tenho uma procedure inicial : procedure TForm1.Button2Click(Sender: TObject); var iRetorno: integer; cCPF:string; iACK, iST1, iST2, iST3: integer; begin //cCPF := '11.111.111-11'; iRetorno := Bematech_FI_AbreCupom( pchar( cCPF ) ); ShowMessage(IntToStr(iRetorno)); iRetorno := Bematech_FI_RetornoImpressoraMFD( iACK, iST1, iST2, iST3 ); //ShowMessage(IntToStr(iRetorno)); end; Eu tentei também: procedure TForm1.Button2Click(Sender: TObject); var iRetorno: integer; iACK, iST1, iST2, iST3: integer; cCPF, cNome: string; begin // Abre o Cupom Fiscal cCPF := '11.111.111-11'; cNome := 'Fulano de Tal'; iRetorno := Bematech_FI_AbreCupom( PAnsiChar(AnsiString(Edit1.Text)) ); ShowMessage(IntToStr(iRetorno)); iRetorno := Bematech_FI_RetornoImpressoraMFD( iACK, iST1, iST2, iST3 ); ShowMessage(IntToStr(iRetorno)); end; O retorno é -2. Este valor, segundo o manual, vem a dizer que o parâmetro a ser enviado esta errado (sintaxe errada). Tentei uma busca no fórum da bematech mas este se encontra fora do ar. Novamente, tentando alguma possível solução em testes aleatórios, se retiro o cpf da função, deixando-o em branco, consigo abrir o cupom. Porém, para demais funcionalidades que usam o mesmo recurso de passagem de strings retornam o mesmo erro (-2). Procurei avaliar o código, se eu havia errado em alguma linha e segui, a "tira teima" alguns exemplos de livros de automação incluindo os exemplos práticos da prórpia bematech em delphi 7 (desatualiados). Ao baixar um exemplo completo, inserindo as dll necessárias sendo a BEMFI32.dll no projeto, e clicando no executável, o mesmo retorna o erro: "Não foi possível localizar o ponto de entrada do procedimento Bematech_FIR_FechaCupomResumidoRestaurante na biblioteca de vinculo dnamico BEMFI32.DLL". Levando-me a entender que o erro é do proprietário, pois segui todas as recomendações, configurações e tentei executar um sistema do proprietário para testes, sendo o mesmo, desatualizado. Fiz mais um teste com base em um livro de automação comercial, utilizando outra chamada 9detalhada) para abertura do cupom, veja a rotina: procedure TForm1.Button2Click(Sender: TObject); var iRetorno: integer; iACK, iST1, iST2, iST3: integer; cCPF, cNome: string; iCasas: integer; cCodigo, cDescricao, cAliquota, cTipoQuantidade, cQTDE, cValorUnitario, cTipoDesconto, cDesconto: string; cNumeroItem, cDescAcresc, cTipo, cValor: string; cValorDesc: string; begin // Abre o Cupom Fiscal cCPF := Edit1.Text; cNome := 'Fulano de Tal'; iRetorno := Bematech_FI_AbreCupomMFD( ( cCPF ), ( cNome ), PAnsichar( 'dd' ) ); ShowMessage(IntToStr(iRetorno)); {..etc} end; Esse código retorna "alguma coisa" na impressora sendo apenas o primeiro caracter sendo "F" e "d". Teoricamente, suponho que o problema seja com o emulador (ou dll) na declaração do tamanho da variável dada por parâmetro. A IMAGEM EM ANEXO É O RETORNO NO EMULADOR. Conclusão: Segui todos os passos das instruções da BEMATECH. Tentei entrar em contado nos inúmeros "contados disponibilizados pela mesma" sem sucesso, estão no site proprietário, porem, em vão. Preciso inserir na nota o CPF, nome e endereço e não consigo por um suposto BUG no emulador ou na DLL e não tenho suporte do fabricante, por incrível que pareça. Desta forma, nesta respeitável associação, alguém poderia, com conhecimento suficiente, me esclarecer esse evento. Eu estou errado em algum parâmetro ou o produto do proprietario realmente esta com um BUG? Obrigado. att