AccessViolation no ArquivoMFD_DLL da FiscNet com Delphi2010

Dedox · 23 Setembro, 2011

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 · 23 Setembro, 2011

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');