djtatao Aprendiz

Registrado: Quinta-Feira, 14 de Dezembro de 2006 Mensagens: 256
|
Enviada: Qua Abr 15, 2009 2:04 pm Assunto: componente acbr (***RESOLVIDO***) |
|
|
Boa tarde.
Ouvi falar muito do componente acbrecf e baixei para fazer os testes, mas estou com problemas para executar o comando..
Sei que esta tudo certo, pois o demo que vem junto com o componente esta funcionando normalmente no emulador da Bematech.
coloquei no form os componentes AcbrECF e um botão apenas para executar o comando como esta abaixo.
ACBrECF1.Modelo := ecfBematech;
ACBrECF1.Porta := 'COM2';
If Not ACBrECF1.Ativo Then ACBrECF1.Ativar ;
MessageDlg('Modelo: '+ACBrECF1.ModeloStr+' Porta: '+ACBrECF1.Porta,mtInformation,[mbOk],0) ;
Try
ACBrECF1.AbreCupom;
ACBrECF1.VendeItem( '1234', 'teste', 'II', 2.00, 10.00) ;
ACBrECF1.EfetuaPagamento( 'dinheiro', 30.00, 'teste' ) ;
MessageDlg(ACBrECF1.NumCOO,mtInformation,[mbOk],0) ;
Except
ACBrECF1.CancelaCupom;
End;
este código esta um exemplo bem simples, mas é para apenas poder fazer os testes..
o componente ativa, passa o modelo e porta, mas quando vai abrir o cupom ele da a mensagem Access violation at address 0047AA43 in module 'ECF_TESTE.exe'. Read of address 00000190.
Acompanhando o fonte, esta dando erro no leResposta.
Alguém poderia me explicar onde estou erradno.
Grato. |
|