Estou fazendo com que meu programa leia e puxe o peso de uma balança da Elgin com interface serial RS232,com o seguinte código:
//configurando balanca
if DM.fdsCaixaMODELO_BALANCA.AsString > '0' then
begin
if frmPrincipal.acbrBal1.Ativo then
frmPrincipal.ACBrBAL1.Desativar;
frmPrincipal.ACBrBAL1.Modelo := TACBrBALModelo(StrToInt(DM.fdsCaixaMODELO_BALANCA.AsString));
frmPrincipal.ACBrBAL1.Porta := DM.fdsCaixaPORTA_BALANCA.AsString;
frmPrincipal.ACBrBAL1.Ativar;
end;
Except on E: Exception do
begin
ShowMessage('Erro na leitura da balança: ' + E.Message);
end;
end;
//fim da configuracao da balanca
//pegando peso
procedure TfrmPrincipal.LeBalanca;
Var TimeOut : Integer ;
begin
TimeOut := 2000 ;
ACBrBAL1.LePeso( TimeOut );
if ACBrBAL1.LePeso > 0 then
begin
edtItemQtn.Text := FloatToStr(ACBrBAL1.LePeso);
end;
end;
// fim pega peso
gostaria de saber se é necessário além dessas outras configurações(Quais?) da balança necessárias para que o peso seja lido e puxado para o campo que eu quero. Fiz testes e me parece que leu o peso mas não teve retorno algum,não deu mensagem de erro algum, e como não tenho um emulador de balança não consigo fazer alguns testes.
Alguém poderia me ajudar, onde estou errando ou deixando passar alguma coisa.
Dês de já agradeço.
