i/o error 32

[Silvia Tarloto Mariano]

Bom dia

Uso o AcbrMonitor para gerar arquivos de boleto e enviar por email.

E constantemente tenho erro i/o 32, e é muito aleatorio.

Ja fiz varios teste, mas mensmo assim o erro sempre aparece.

Alguem tem ideia de como solucionar?

Outra coisa, estou lendo no log.txt os retornos a cada entrada que envio e tambem esse retorno as vezes não vem completo.

Rotina para ler o retorno.:

 

if FileExists(Form_Boleto.aux_log) then
    begin
      AssignFile(F1,Form_Boleto.aux_log);
      Reset(F1);
      CloseFile(F1);

      AssignFile(F1,Form_Boleto.aux_log);
      Reset(F1);

      while not Eof(F1) do
        begin
          Readln(F1,S1);
          linha_log := S1;

          Form_Boleto.Memo1.Lines.Add(linha_log);     // estou gravando em um memo

          Form_Boleto.Tbl_Comando.Append;
          Form_Boleto.Tbl_ComandoComando.Text := linha_log;   // estou gravando o retorno em uma tabela(fiz isso pra tentar pegar erros e reprocessar);
          Form_Boleto.Tbl_Comando.Post;
        end;
      CloseFile(F1);

      if (pos('OK:',linha_log)) > 0 then Form_Boleto.erro_boleto := ''
                                                 else Form_Boleto.erro_boleto := linha_log;
    end
  else Form_Boleto.Memo1.Lines.Add('Retorno não encontrado');

-----------------------------------------------------------------------------------------------------------------------------------------------------

Envio dos comandos.:

TRY
    assignFile(meuarq,aux_ent);
    rewrite(meuarq);
    Write(meuarq, #239+#187+#191);        // para gerar tipo UTF-8

    linha := 'BOLETO.LimparLista';        // Limpando lista de boletos
    writeln(meuarq,linha);
  FINALLY        //except
    system.CloseFile(meuarq);
  END;

 

 

 

 

[Victor H. Gonzales - Panda]

Boa tarde.

I/O 32 significa que o arquivo está em uso/aberto por outro processo/rotina.