Geração de arquivos fiscais

[Ubirajara]

Pessoal, bom dia.

Na geração de arquivos fiscais para evitar travamentos eu queria fazer o uso de threads. Porém para o método ACBrECF1.PafMF_MFD_Cotepe1704, quando eu executo o Delphi em modo de Release o Windows trava e eu tenho que usar o ctrl alt del. Em modo DEBUG não trava. Usando o mesmo procedimento para ACBrECF1.PafMF_ArqMFD_Binario(NomeArquivo) e ACBrECF1.PafMF_ArqMF_Binario(NomeArquivo) está ok, somente nesse que trava. Alguém já passou por isso?

O básico do que estou querendo segue no trecho abaixo.

      aTask := TTask.Create(procedure()
      begin
          ACBrECF1.PafMF_MFD_Cotepe1704(DataInicio, DataFim, NomeArquivo);
          Sessao.HabilitarControles;
          messageInformation('Arquivo armazenado em: ' + NomeArquivo);
      end);
      aTask.Start;

[Juliomar Marchetti]

Bom dia

não vai conseguir usar. tem que esperar mesmo o tempo que ele vai levar para processar.

[Ubirajara]

5 minutos atrás, Juliomar Marchetti disse:

Bom dia

não vai conseguir usar. tem que esperar mesmo o tempo que ele vai levar para processar.

Juliomar, pelo método que já existe, mesmo no ACBr ao gerar o arquivo se o usuário clicar na tela ele vai retornar "NÃO RESPONDENDO" e aparece a opção de finalizar a tarefa. Você aconselha alguma forma de contornar isso sem tthread?

[Juliomar Marchetti]

Sim eu tenho sem Thread e vai embora.

[Daniel Simoes]

2 horas atrás, Ubirajara disse:

          ACBrECF1.PafMF_MFD_Cotepe1704(DataInicio, DataFim, NomeArquivo);

quando você chama esse comando, a DLL do Fabricante assumirá o controle da aplicação... e essa operação costuma ser bastante demorada...

Você poderia exibir um Panel, com "Aguarde em processamento" e alguma animação nele... antes de chamar esse comando...