Video: Crie uma aplicação PAF-ECF do inicio ao fim usando o Delphi e Dlls dos fabricantes-Parte 2-Criando Projeto para criação do arquivo de verificação da integridade do ECF com dados criptografados

Olá Flavio!

Ops! Desculpa Luis!

Esqueci de dizer, estou usando o emulador pra testar.

Verifique se a chave EMULMFD do arquivo BEMAFI32.INI  esta como 1. E o ideal de funcionamento do Emulador é através de porta serial entre micros, via cabo.

Bom dia Luis!

Era isso mesmo. Obrigado pela ajuda.

Abraços!

Olá!

No roteiro pede que seja Inacessível ao usuário. Eu achei melhor deixar numa aplicação a parte, mas não veja nada que impeça de estar no mesmo modulo.

Abs!

Olá!

Olha, e meio complicado saber o que esta fazendo errado. Fazendo conforme indicado no vídeo e se não tiver nada barrando o funcionamento da comunicação, "por exemplo outro aplicativo que use a comunicação com a DLL", deverá dar certo.

Abs!

Godinho.
A dll, precisa ser registrada? ou basta ela estar no system32?
Estou usando Windows 7.
abraços.

Basta estar na windows/system32.

Abs!

Verifiquei e consigo chegar até a Unit uDecBematech.
O Iretorno da function RetornaSerialECF (uFuncoesPAFECF) é zero.
Troquei o emulador para o mesmo que vc está utilizando o Emulthfi vs 1.02.
Desde já agradeço.
Segue o log

2011-06-10 23:48:01 - Bematech_FI_LeInformacoesConfiguracao
2011-06-10 23:48:01 - Versão BemaFI32.Dll: 5,10,6,5
2011-06-10 23:48:01 - Versão BemaMFD.dll: 0
2011-06-10 23:48:01 - Versão BemaMFD2.dll: 0
2011-06-10 23:48:01 - path: C:\
2011-06-10 23:48:01 - Log: 1
2011-06-10 23:48:01 - LogDiario: 1
2011-06-10 23:48:01 - Status: 0
2011-06-10 23:48:01 - Retorno: 0
2011-06-10 23:48:01 - ControlePorta: 1
2011-06-10 23:48:01 - StatusFuncao: 0
2011-06-10 23:48:01 - ModeloImp: BEMATECH
2011-06-10 23:48:01 - ModoGaveta: 0
2011-06-10 23:48:01 - EmulMFD: 1
2011-06-10 23:48:01 - StatusCheque: 0
2011-06-10 23:48:01 - Porta: COM1
2011-06-10 23:48:01 - StatusErro: 1
2011-06-10 23:48:01 - TimeOutZ: 99
2011-06-10 23:48:01 - Impressora: 0
2011-06-10 23:48:01 - TimeOutGerencial: 40
2011-06-10 23:48:01 - CrLfVinculado: 0
2011-06-10 23:48:01 - Gerencial: 0
2011-06-10 23:48:01 - ForceWTSClient: 1
2011-06-10 23:48:01 - RetriesWTSCmd: 3
2011-06-10 23:48:01 - Software House - COO: 0
2011-06-10 23:48:01 - Software House - NumeroAplicativo: 0
2011-06-10 23:48:01 - Software House - CNPJ: 0
2011-06-10 23:48:01 - Software House - IE: 0
2011-06-10 23:48:01 - Software House - IM: 0
2011-06-10 23:48:01 - Software House - RazaoSocial: 0
2011-06-10 23:48:01 - Software House - NomeAplicativo: 0
2011-06-10 23:48:01 - Software House - Versao: 0
2011-06-10 23:48:01 - Software House - Linha1: 0
2011-06-10 23:48:01 - Software House - Linha2: 0
2011-06-10 23:48:01 - ECF - IM: 0
2011-06-10 23:48:01 - ECF - UF: 0
2011-06-10 23:48:01 - GerarRFD: 0
2011-06-10 23:48:01 - CalculoIcmsCupom: 0
2011-06-10 23:48:01 - HabilitaRFDImpMFD: 0
2011-06-10 23:48:01 - Retorno Bematech_FI_LeInformacoesConfiguracao: OK
2011-06-10 23:48:10 - -----------------------------------------------------------------------
2011-06-10 23:48:10 - Bematech_FI_NumeroSerie
2011-06-10 23:48:22 - Timout finalizado e ACK não lido - Erro 003
2011-06-10 23:48:22 - Qtd bytes ler: 18
2011-06-10 23:48:22 - Qtd bytes lidos: 0
2011-06-10 23:48:22 - Retorno Bematech_FI_NumeroSerie: 0 - Erro de comunicacao
2011-06-10 23:48:31 - -----------------------------------------------------------------------
2011-06-10 23:48:31 - Bematech_FI_GrandeTotal
2011-06-10 23:48:43 - Timout finalizado e ACK não lido - Erro 003
2011-06-10 23:48:43 - Qtd bytes ler: 12
2011-06-10 23:48:43 - Qtd bytes lidos: 0
2011-06-10 23:48:43 - Retorno Bematech_FI_GrandeTotal: 0 - Erro de comunicacao

Olá

Não esta comunicando com o emulador. E tem alguma coisa no seu micro barrando esta comunicação. Eu não tenho como resolver isso, pois esta ai.
A instalação do Emulador é bem simplificada e não tem muitos detalhes a serem vistos.

Abs!

Godinho.
Instalei em dois pcs diferentes, que já havia instalado uma impressora não fiscal Daruma. Preparei outro pc com Windows 7,
instalei o Delphi e funcionou sem problemas. Agradeço a atenção e as dicas para ajudar no problema.
Vou continuar vendo os vídeos e na medida do possivel vou tirando dúvidas, pois temos um sistema de pdv que precisamos transformar em PAF-ECF.
Abraços e mais uma vez muito obrigado.

Olá!

Especifique em qual comando esta usando que retornando estes valores ilegíveis, e em que ponto do sistema. No meu aqui funciona corretamente, então acredito que seja alguma configuração ou parametro ai, mas precisaria de mais detalhes para tentar te ajudar.
Tente usar os códigos de outr0 vídeo da seria para ver se dará o mesmo problema.
Aguardo novas informações.

Abs.!

Olá!

Diretamente eu não tive problemas com este comando. Acredito que o fato esta acontecendo por esta usando string direta para retornar a informação do comando.
Tente passar a string com o PChar. Por exemplo:

bematech_fi_numeroserie(pChar(VarString));

Abs.!

Olá Luiz,
Luiz muito obrigado pela sua atenção, eu tentei usar o pchar conforme você me ensinou e não deu certo, quando peço para retornar o numero de serie do ECF e o Grande Total, o emulador me retorna uns caracteres estranhos no numero de serie e ~~~~~~~~~~~ no Grande Total. Estou usando o Emul2100 junto com a dll Bemafi32.dll, estou desenvolvendo no Delphi XE2. O que será que está acontencendo de errado?

Olá!

no caso do XE a situação muda de figura. Acredito que aoo invês de Pchar, teria que usar pAnsiChar ou pAnsiString se não me engano. Como eu não tenho o XE aqui não terei como testar e te informar ao certo.

Abs.!