AccessViolation no ArquivoMFD_DLL da FiscNet com Delphi2010

[Dedox]

Estou tentando executar o método PafMF_LMFC_Cotepe1704 mas ocorre um access violation no módulo ntdll.dll.

Fiz vários testes, verifiquei se estava usando os arquivos e dll's corretas, mas o erro persiste.

Estou usando uma impressora URANO e configurado no ACBr com FiscNet que é o protocolo de comunicação que ela usa. Meu projeto é em Delphi 2010 e estou usando Windows 7.

Acredito que possa ser alguma incompatibilidade do Delphi 2010 na execução/chamada da função xDLLReadLeMemorias que o TACBrECFFiscNET chama da DLL Leitura.dll

Alguém implementou esta rotina usando FiscNet no Delphi 2010?

[Dedox]

As funções externas estavam passando parâmetros como PAnsiChar, alterei para AnsiString e funcionou corretamente:

xDLLReadLeMemorias : function (szPortaSerial, szNomeArquivo, szSerieECF, bAguardaConcluirLeitura : AnsiString) : Integer; stdcall;


xDLLATO17GeraArquivo : function (szArquivoBinario, szArquivoTexto, szPeriodoIni, szPeriodoFIM, TipoPeriodo, szUsuario, szTipoLeitura : AnsiString) : Integer; stdcall;

E nas chamadas das funções eu retirei o Cast do PAnsiChar:

//Comentado pois gera Access violation no modulo ntdll.dll

//iRet := xDLLReadLeMemorias( PAnsiChar(PortaSerial), PAnsiChar(ArqTmp), PAnsiChar(NumFab), '1');


iRet := xDLLReadLeMemorias( PortaSerial, ArqTmp, NumFab, '1');

[Dedox]

A propósito, se alguém da ACBr puder mudar isso nos fontes do ACBr seria uma boa pra não perder essa funcionalidade nas proximas atualizações.

Obrigado!

[Régys Silveira]

Poste aqui o fonte alterado para que possamos comparar e enviar suas alterações.

Desde já muito obrigado por contribuir.

[Daniel Simoes]

Acredito que atualmente a classe da FiscNET já está corrigida para usar AnsiString e não mais PAnsiChar