Balança Sigtron

[Carlos Clay]

Olá desenvolvedor do componente ACBrBal.

 

Recentemente tive que fazer uma alteração no fonte do componente ACBrBalDigitron.pas porque não estava pegando o terceiro dígito das casas decimais. Veja o exemplo abaixo:

 

procedure TACBrBALDigitron.LeSerial(MillisecTimeOut: Integer);
Var
  Resposta : AnsiString ;
  Decimais : Integer ;
begin
  fpUltimoPesoLido := 0 ;
  fpUltimaResposta := '' ;

  Decimais := 100 ;
  Try
     fpUltimaResposta := Copy(fpDevice.Serial.RecvPacket( MillisecTimeOut ),1,10);

     Resposta := Trim( copy( fpUltimaResposta, 2, 6 )) ; // estava assim

 

 

     Resposta := Trim( copy( fpUltimaResposta, 2, 7 )) ; // alterei para 7

 

Consegui resolver aqui, mas estou divulgando aqui para que todos saibam e corrija no componente para que nas próximas versões esteja correto.

 

Agradeço a atenção dispensada.

 

Carlos Clay

 

Obs.:

Informo também que na página oficial do ACBr tem um link para reportar um bug e está com erro no mantis.

Editado 8 Outubro, 2013 por Carlos Clay

[Juliomar Marchetti]

Sobe em anexo a unit alterada para que se possa fazer o merge

com a mudança de servidor foi  perdido ou não tem mais o mantis

[Isaque Pinheiro]

Bom dia Carlos, obrigado pela colaboração, alteração disponível no SVN.

[Carlos Clay]

Olá Isaque Pinheiro, obrigado pela alteração e dedicação ao componente.