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