AcbrSerial utilizando o AcbrBal

[w.suetake]

Bom dia, procurei pelo forum e as soluções dos colegas não deram certo para mim por isso crio este novo topico...

Estou utilizando os fontes novos da Acbr com aplicação delphi Xe8 o componente AcbrBall, configurei o mesmo corretamente de acordo com as configurações do aplicativo anterior que temos aqui, no caso desenvolvido em delphi 7, o antigo aplicativo comunica certinho com a balança, ja o novo não, para fazer a nova aplicação com a balança segui o projeto exemplo que vem junto com o componente, o que não consigo entender é o aplicativo estar com as configurações corretas e mesmo assim a balança não responder...Utilizando o emulador da acbr o sistema comunica fiz os testes e funciona, mas com a balança não vai..Uma observação sobre o baud é que passo para o componente 2400 e no log sai 9600.. Se alguem puder indicar um caminho vou agradecer muito...

segue anexo do log da balança aonde os que tiveram sucesso foram pelo emulador

balancaLog.txt

Editado 31 Julho, 2017 por w.suetake

[EMBarbosa]

Se você utilizar o exemplo mesmo, ao invés de uma aplicação baseada nele, funciona?

[w.suetake]

Obrigado pela resposta, sim quando uso aquele exemplo ele funciona, como citei anteriormente o baud parece não salvar no componente, pois no log ele se encontra 9600 mesmo que informo 2400,  a sintaxe no exemplo esta ACBrBAL1.Device.Baud := StrToInt( cmbBaudRate.Text );

no meu aplicativo pego o valor do ini e passo para o componente, ele passa certo pelo case porem no log não sai o que foi informado...

 Vlr := StrToInt(Ler_ini(ExtractFilePath(Application.ExeName) +
    '0000\0001.INI', 'DEVICE', 'BaudRate', ''));
  Case Vlr Of
    0:
      ACBrBAL1.Device.Baud := 110;
    1:
      ACBrBAL1.Device.Baud := 300;
    2:
      ACBrBAL1.Device.Baud := 600;
    3:
      ACBrBAL1.Device.Baud := 1200;
    4:
      ACBrBAL1.Device.Baud := 2400;
    5:
      ACBrBAL1.Device.Baud := 4800;
    6:
      ACBrBAL1.Device.Baud := 9600;
    7:
      ACBrBAL1.Device.Baud := 14400;
    8:
      ACBrBAL1.Device.Baud := 19200;
    9:
      ACBrBAL1.Device.Baud := 38400;
    10:
      ACBrBAL1.Device.Baud := 56000;
    11:
      ACBrBAL1.Device.Baud := 57600;
  End;

tem alguma idéia do porque o componente nao armazena o valor ?

[EMBarbosa]

É muito difícil afirmar com certeza sem ver o código. Vou dar algumas sugestões e você pode testar.

• Verifique a ordem que você altera os parâmetros do componente. Por exemplo: se você está alterando o modelo depois de alterar o Baud, pode ser que o Baud esteja sendo resetado para o valor padrão daquele modelo;
• Verifique se o código que altera o baud está realmente sendo chamado. Ponha um breakpoint e execute o código para ter certeza que ele está passando por lá;
• Verifique se o valor desejado está realmente sendo salvo. Ponha um breakpoint e adicione um "watch" parar avaliar se o valor salvo é mesmo o que deseja;
• Verifique se o valor desejado está realmente sendo carregado do arquivo INI. Ponha um breakpoint e adicione um "watch" parar avaliar o valor;

[w.suetake]

27 minutos atrás, EMBarbosa disse:

É muito difícil afirmar com certeza sem ver o código. Vou dar algumas sugestões e você pode testar.

• Verifique a ordem que você altera os parâmetros do componente. Por exemplo: se você está alterando o modelo depois de alterar o Baud, pode ser que o Baud esteja sendo resetado para o valor padrão daquele modelo;
• Verifique se o código que altera o baud está realmente sendo chamado. Ponha um breakpoint e execute o código para ter certeza que ele está passando por lá;
• Verifique se o valor desejado está realmente sendo salvo. Ponha um breakpoint e adicione um "watch" parar avaliar se o valor salvo é mesmo o que deseja;
• Verifique se o valor desejado está realmente sendo carregado do arquivo INI. Ponha um breakpoint e adicione um "watch" parar avaliar o valor;

Resolvido, para os proximos que pegarem esse problema é em relação a ordem que altera os parametros como você me informou, era mesmo por causa do modelo sendo alterado depois... Muito Obrigado!

[EMBarbosa]

Obrigado pelo retorno.