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;