Erro na leitura de satatus do POS Sweda

[Intelliware]

Bom dia,

Possuímos para testes uma impressora não-fiscal Sweda, modelo SI-300S configurada para o modo EPSON. A impressão de textos, qrCode e código de barras ocorrem normalmente, tanto com o Fortes Report, quanto no ESCPOS. No entanto, falhas de leitura ocorrem ao tentar verificar o status por meio da função "ACBrPosPrinter.LerStatusImpressora" que cai na "TACBrEscPosEpson.LerStatus", que atrapalham bastante pois antes de cada impressão, verificamos o status da impressora. Em debug, noto que as exceções ocorrem em pontos diferentes desta função. Já tentamos diminuir buffer da porta serial emulada e mesmo ligando diretamente um uma porta física do computador, ocorre o mesmo problema. Segue em anexo um log (log.txt) gerado pelo ACBrPosPrinter - teste.

Desde já, agradeço.

[Daniel Simoes]

Não há nenhuma mensagem de erro no seu log...

 

[Intelliware]

Exato, não há mensagem de erro, mas retorna o status [stErro] ora de forma aleatória, ora logo após mandar ativar.Veja o retorno ao mandar  ler o status várias vezes seguidas na figuras em anexo. Note que retorna também "stGavetaAberta", "stTampaAberta" erroneamente. Na função "TACBrEscPosEpson.LerStatus", retorna [stErro] justamente na exceção.

 

[Daniel Simoes]

Leia os fontes de "procedure TACBrEscPosEpson.LerStatus(var AStatus: TACBrPosPrinterStatus);"

Observe que algumas situações do case, onde o "stErro" é ligado... Ou seja, a resposta da impressora, vem com os Bits ligados, causando essa interpretação

....
    if TestBit(B, 5) then
      AStatus := AStatus + [stErro];  // Waiting for online recovery   
....

 

[Intelliware]

Ok, é que no debug, o "stErro" estava sendo adicionado na exceção gerada ao tentar ler o byte (B := ord(fpPosPrinter.TxRx...) e não no teste (TestBit...). O que poderíamos fazer neste caso então?

[Daniel Simoes]

Humm.. então provavelmente o problema seja TimeOut... o default utilizado é 500... experimente mudar para:

    B := Ord(fpPosPrinter.TxRx( DLE + EOT + #1, 1, 1000 )[1]);

 

[Intelliware]

Mudei, mas continuou da mesma forma.

[Daniel Simoes]

Aumente para 2 segundos (2000), observe se ele está realmente usando a versão modificada (na dúvida rode novamente o ACBrInstall)

[Intelliware]

Aumentamos para 2s e até para 20s e o problema continua da mesma forma.

Capturei o erro gerado pela exceção e realmente diz sobre o timeout: 'Communication error 9997: Timeout during operation'.

O estranho que mesmo com o timeout alto, não altera o tempo da leitura, o que talvez não esteja chegando ao final do mesmo. Confirmei em debug que o novo valor inserido está sendo passado para as funções subsequentes.

[Daniel Simoes]

parece ser algo do equipamento, as vezes ele não está pronto para receber o comando... O que podemos implementar, é um Loop de contador de falhas...

Ou seja, ele ficaria preso na rotina, por N vezes, até conseguir ler, ou atingir N...   tente com essa implementação

 

procedure TACBrEscPosEpson.LerStatus(var AStatus: TACBrPosPrinterStatus);
var
  B: Byte;
  Falhas: Integer;
begin
  if not (fpPosPrinter.Device.IsSerialPort or fpPosPrinter.Device.IsTCPPort) then
    exit;

  Falhas := 0;
  while Falhas < 5 do
  begin
    try
      fpPosPrinter.Ativo := True;

      B := Ord(fpPosPrinter.TxRx( DLE + EOT + #1, 1, 500 )[1]);
      if not TestBit(B, 2) then
        AStatus := AStatus + [stGavetaAberta];
      if TestBit(B, 3) then
        AStatus := AStatus + [stOffLine];
      if TestBit(B, 5) then
        AStatus := AStatus + [stErro];  // Waiting for online recovery
      if TestBit(B, 6) then
        AStatus := AStatus + [stImprimindo]; // Paper is being fed by the paper feed button

      B := Ord(fpPosPrinter.TxRx( DLE + EOT + #2 )[1]);
      if TestBit(B, 2) then
        AStatus := AStatus + [stTampaAberta];
      if TestBit(B, 3) then
        AStatus := AStatus + [stImprimindo]; // Paper is being fed by the paper feed button
      if TestBit(B, 5) then
        AStatus := AStatus + [stSemPapel];
      if TestBit(B, 6) then
        AStatus := AStatus + [stErro];

      B := Ord(fpPosPrinter.TxRx( DLE + EOT + #4 )[1]);
      if TestBit(B, 2) and TestBit(B, 3) then
        AStatus := AStatus + [stPoucoPapel];
      if TestBit(B, 5) and TestBit(B, 6) then
        AStatus := AStatus + [stSemPapel];

      Break;
    except
      Inc( Falhas );
      if Falhas >= 5 then;
        AStatus := AStatus + [stErro];
    end;
  end;
end;

 

 

[Intelliware]

Obrigado, Daniel. Melhorou, mas infelizmente não resolveu. Inclusive aumentei a quantidade da tolerância de falhas no código que você postou, mas não muda muita coisa. Será que seria alguma função específica que a Sweda difere da Epson?

[Daniel Simoes]

Provavelmente é o driver do Fabricante... Infelizmente não tenho mais sugestões...

[Intelliware]

Daniel, boa tarde!

Hoje fuçamos um pouco mais sobre este problema e aparentemente conseguimos solucioná-lo, modificando a função "TACBrPosPrinter.TxRx". Primeiramente, limpamos o buffer da porta serial antes do envio dos comandos, resolvendo cerca de 50% dos retornos errôneos. Depois colocamos um "sleep" de 10ms (com 2ms já resolveu) entre a transmissão e a recepção dos bytes, solucionando 100% dos retornos errôneos. Segue o bloco modificado:

function TACBrPosPrinter.TxRx(ACmd: AnsiString; BytesToRead: Byte;
  ATimeOut: Integer; WaitForTerminator: Boolean): AnsiString;
begin
  if FDevice.IsSerialPort then FDevice.Serial.Purge;

  GravarLog('TX -> '+ACmd, True);
  FDevice.EnviaString( ACmd );

  if FDevice.IsSerialPort then Sleep(10);

  if WaitForTerminator then
    Result := FDevice.LeString(ATimeOut, 0, chr(BytesToRead))
  else
    Result := FDevice.LeString(ATimeOut, BytesToRead);

  GravarLog('RX <- '+Result, True);
end;

 

[Daniel Simoes]

Obrigado pela analise e correção... enviei para o SVN, com pequenas modificações...

[Intelliware]

Blz, Daniel. Agradecemos.