Ideia para resolver o "Erro Componente ACBRECF ocupado"

[Ramon Lopes]

Na tentativa de resolver o problema que tive com as mensagens de ACBRECF ocupado, fiz a seguinte funcao:

Function TForm1.ACBReCF_Liberado() : Boolean;

begin

while (ACBRECF1.AguardandoResposta) or (ACBRECF1.AguardaImpressao) do Sleep(1);

Result := true;

end;

Com isso, faço a seguinte checagem:

// Exemplo numa sangria

if ACBReCF_Liberado() then ACBRECF1.Sangria(vValorSangria);

// Exemplo numa leituraX

if ACBReCF_Liberado() then ACBRECF1.LeituraX();

e assim por diante, ou seja: em todos os comandos que façam a impressora executar algo, eu chamo antes esta funcao, que vai aguardar o componente liberar.

Pergunto: seria realmente este o caminho ou tem alguma outra forma de fazer, ou isso que fiz eh uma completa tolice?

[Régys Silveira]

O estranho é que aqui meus comandos são feitos na sequência e nunca deu isso, não seria alguma configuração? Eu utilizo as configurações padrão do ACBrECF, mudo somente o modelo de impressora e a porta.

[Daniel Simoes]

Não há necessidade disso, pois o ACBeECF "prende" o fluxo do Pascal enquanto o ECF não responder ao comando enviado...

O erro de ocupado só ocorrerá quando vc enviar comandos ao mesmo tempo (isso é possível, em eventos)