Erro De Acces Violation No Arq. Mf E Mfd

[softcom.wendel]

Bom dia

 

Estou no meio de minha homologação do PAF-ECF e no menu fiscal está dando erro no ARQ MF e MFD, dá um erro de acces violation e não baixa o arquivo.

 

já atualizei as dlls e registrei na system 32, WIN 7 32 bits

 

Alguém poderia me dar uma luz

 

Eu já tinha testando com a DARUMA , mas na homologação eu trouxe uma bematech mp4000 ...pelo winmfd ele faz normalmente mas pelo meu paf não

 

Agradeço qualquer ajuda.

 

Irei postar aqui todas as dificuldades que tive na homologação.

[Isaque Pinheiro]

Todas DLL estão no mesmo diretório do seu EXE?

[softcom.wendel]

Pessoal Deu Certo..baixei do Site da Bematech a ultima versão.

 

Coloquei no mesmo diretório da app e ai deu certo

 

Configureu tbm o Arquivo Bemafi32.ini com a porta

[softcom.wendel]

obrigado ISAQUE

 

No mesmo teste o Arquivo foi gerado, mas o ECFC nao esta validando a assinatura

 

const

  NomArquivo_Bin: String = 'ArquivoMF.mf';

  NomArquivo_TXT: String = 'ArquivoMF.TXT';

var

  Path: String;

  EADStr: String;

begin

  Path := ExtractFilePath(Application.ExeName) + 'arquivos\';

  // Se o Arquivo Existe Apaga

  if FileExists(Path + NomArquivo_Bin) then

    deletefile(pchar(Path + NomArquivo_Bin));

  TRY

    //ECF.PafMF_Binario('C:\' + NomArquivo);

    ECF.PafMF_ArqMF('C:\' + NomArquivo_Bin);

  FINALLY

    RenameFile('C:\' + NomArquivo_Bin, Path + NomArquivo_Bin);

    RenameFile('C:\' + NomArquivo_Txt, Path + NomArquivo_txt);

    Aviso(Format('Arquivo gerado com sucesso em:'#13#10' "%s"', [Path + NomArquivo_Bin]  ), TAviso);

  END;

 

Alguma Dica?

[Isaque Pinheiro]

Você está assinando antes ou depois de renomear o arquivo ?

[softcom.wendel]

Não estou assinando diretamente

 

a Função PafMF_ArqMF gera um TXT com o EAD.

 

Mas este EAD não fica igual ao gerado pela função assinar do acbr

 

Fiz um teste assinando o arquivo .mf e ai a assinatura bateu.

 

pegando o EAD do arquivo txt gerado pelo ACBR nao bate

Editado 5 Maio, 2015 por softcom.wendel

[Isaque Pinheiro]

No caso de vc está renomeando o arquivo, acredito que vc terá que reassinar, após renomeá-lo.

[softcom.wendel]

É que o arquivo nao pode ser assinado

 

temos que gerar um TXT com o mesmo nome do arquivo com o EAD deste arquivo

[Isaque Pinheiro]

não estou falando do binário e sim do TXT, se vc está gerando assinado ele depois de renomear o binário

[softcom.wendel]

Resolvi usando uma técnica de POG ( Programção orientada a gambiarra )

 

const
  NomArquivo_Bin_BK: String = 'ArquivoMFBK.mf';
  NomArquivo_Bin: String = 'ArquivoMF.mf';
  NomArquivo_TXT: String = 'ArquivoMF.TXT';
var
  Path: String;
  EADStr: String;
begin
  Path := ExtractFilePath(Application.ExeName) + 'arquivos\';

  // Se o Arquivo Existe Apaga
  if FileExists(Path + NomArquivo_Bin) then
    deletefile(pchar(Path + NomArquivo_Bin));

  TRY
    ECF.PafMF_ArqMF('C:\' + NomArquivo_Bin);
  FINALLY
    //BACKUP DO ARQUIVO
    CopyFileTo( 'C:\' + NomArquivo_Bin, 'C:\' + NomArquivo_Bin_BK );

    //ASSINAR O ARQUIVO
    Assinar( 'C:\' + NomArquivo_Bin_BK, false );

    //COPIAR PARA O DIRETORIO
    RenameFile('C:\' + NomArquivo_Bin, Path + NomArquivo_Bin);

    //LER O EAD DO ARQUIVO
    EADStr := ECF.EAD.LeEADArquivo( 'C:\' + NomArquivo_Bin_BK );

    RenameFile('C:\' + NomArquivo_Txt, Path + NomArquivo_txt);

    //REESCREVER O TXT
    Alterar_EAD ( Path + NomArquivo_txt, EADStr);

    Aviso(Format('Arquivo gerado com sucesso em:'#13#10' "%s"', [Path + NomArquivo_Bin]  ), TAviso);
  END;
 

 

fazer o que né..r.ssss  estou no meio da homologação

 

vlw isaque

[Isaque Pinheiro]

hehehe, é desse jeito mesmo.