Fazer componente pegar peso todo Balança Siciliano

[lucasbezerr]

Boa tarde estou com um probleminha, incorporei o protocolo das balanças siciliano no ACBR e na fase de teste eu enviando pelo Serial Monitor o HEX que a balança envia funcionou, só que na balança ele está pegando a string picotada, já fiz o teste no exemplo do acbr balança e lá ele pega picotada tbm, a balança funciona de forma continua ou seja ela envia o peso continuamente não responde com o [ENQ], estou enviando o log da balança.

 

 - 14:45:06:099 RX <- [STX]SIC0000020kgB[ETX]J[CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]SIC0000020kgB[ETX]J[CR][LF]
 - 14:45:06:716 RX <- [STX]SIC0000020kgB[ETX]J[CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]SIC0000020kgB[ETX]J[CR][LF]
 - 14:45:07:140 RX <- [STX]SIC0000020kgB[ETX]J[CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]SIC0000020kgB[ETX]J[CR][LF]
 - 14:45:07:565 RX <- [STX]SIC
              UltimoPesoLido: 0 - Resposta: [STX]SIC
 - 14:45:07:790 RX <- 0000020kgB[ETX]J[CR][LF]
              UltimoPesoLido: 0 - Resposta: 0000020kgB[ETX]J[CR][LF]
 - 14:45:08:226 RX <- [STX]SIC0000020kgB[ETX]J[CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]SIC0000020kgB[ETX]J[CR][LF]
 - 14:45:08:669 RX <- [STX]SIC0000020kgB[ETX]J[CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]SIC0000020kgB[ETX]J[CR][LF]
 - 14:45:09:073 RX <- [STX]SIC0000020
              UltimoPesoLido: 0 - Resposta: [STX]SIC0000020
 - 14:45:09:321 RX <- kgB[ETX]J[CR][LF]
              UltimoPesoLido: 0 - Resposta: kgB[ETX]J[CR][LF]
 - 14:45:09:741 RX <- [STX]SIC0000020kgB[ETX]J[CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]SIC0000020kgB[ETX]J[CR][LF]

 

- 14:48:03:480 RX <- [STX]BR0000000kgTR0000000kg[ETX][131][CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]BR0000000kgTR0000000kg[ETX][131][CR][LF]
 - 14:48:04:629 TX -> [ENQ]
 - 14:48:04:879 RX <- [STX]BR00000
              UltimoPesoLido: 0 - Resposta: [STX]BR00000
 - 14:48:05:978 TX -> [ENQ]
 - 14:48:06:378 RX <- [STX]BR000
              UltimoPesoLido: 0 - Resposta: [STX]BR000
 - 14:48:07:446 TX -> [ENQ]
 - 14:48:07:875 RX <- [STX]BR0
              UltimoPesoLido: 0 - Resposta: [STX]BR0
 - 14:48:08:718 TX -> [ENQ]
 - 14:48:08:927 RX <- [STX]BR0000000kgTR0000000kg[ETX][131][CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]BR0000000kgTR0000000kg[ETX][131][CR][LF]
 - 14:48:10:229 TX -> [ENQ]
 - 14:48:10:446 RX <- [STX]BR0000000kgTR0000000kg[ETX][131][CR][LF]
              UltimoPesoLido: 0 - Resposta: [STX]BR0000000kgTR0000000kg[ETX][131][CR][LF]

 

Como faço para o ACBR aguardar a string toda?

[Daniel Simoes]

Você pode especificar um Terminador, no comando que faz a leitura

    function LeString(const ATimeOutMilissegundos: Integer = 0; NumBytes: Integer = 0; const Terminador: AnsiString = ''): AnsiString;

 

[lucasbezerr]

Daniel isso é no componente ou no programa?

Segue componente em anexo

ACBrBALSiciliano.pas

[lucasbezerr]

Comando utilizado na aplicação para leitura do peso:

TimeOut := 2000 ;
 Peso := ACBrBAL1.LePeso( TimeOut );

 

[lucasbezerr]

Consegui alterar conforme você falou na função LeSerial, mas uma questão quando vou realizar a primeira pesagem vem o seguinte error.

A que se refere esse error?

[lucasbezerr]

Em 20/01/2023 at 16:34, lucasbezerr disse:

Consegui alterar conforme você falou na função LeSerial, mas uma questão quando vou realizar a primeira pesagem vem o seguinte error.

A que se refere esse error?

@Daniel Simoes Bom dia, Alguma dica para esse erro?