Integração Balança Filizola - MF-C 30 KG

[FabianoCunha]

Moderadores, 

Fiz uma pequena correção na função "InterpretarRepostaPeso", na classe TACBrBALFilizola, a qual é do componente ACBrBAL. Essa correção foi necessária, pois como pode ser observado no LOG da balança ela retorna TX duas vezes, e a função citada apenas considerada a existência do "TX", apenas uma única vez e no final da string.  

-> LOG: Balança:

- 00:36:46:401 RX <- [STX]02255[ETX][ETX]
              UltimoPesoLido: 2,255 - Resposta: [STX]02255[ETX][ETX]

Trecho antigo:

if (Copy(wResposta, Length(wResposta), 1) = ETX) then
    wResposta := Copy(wResposta, 1, Length(wResposta) - 1);

 

Nova versão:

if pos(ETX,wResposta) > 0 then
    wResposta := Copy(wResposta, 1, pos(ETX,wResposta) - 1);

 

Arquivo completo se encontra em anexo.

Att, Fabiano Cunha

ACBrBALFilizola.pas

[Daniel Simoes]

Obrigado.. já no SVN...