Fórum ACBrBal no delphi 7 #423836

Olá amigo, particularmente não uso o componente, nunca usei na verdade, rsrs... mas se você tiver como passar um exemplo, ou seu código para entendermos melhor o que esta havendo ajuda bastante, um abraço.

No botão para ler peso

procedure TF_Ticket.lb_lerpesoClick(Sender: TObject);
var
TimeOut: Integer;
begin
F_DMdados.cdsConfBal.Close;
F_DMdados.cdsConfBal.CommandText:='SELECT * FROM BL_CONFIGURACAO';
F_DMdados.cdsConfBal.Open;

try
TimeOut := F_DMdados.cdsConfBalCFG_INTERVALO.AsInteger;
except
TimeOut := 2000 ;
end;

acb_balanca.LePeso(TimeOut);

end;


procedure TF_Ticket.acb_BalancaLePeso(Peso: Double; Resposta: String);
var valid : integer;
begin
ce_valor.Value := Peso;
lb_resposta.Caption := Converte(Resposta) ;

if Peso > 0 then
Memo1.Lines.Text := 'Leitura OK !'
else
begin
valid := Trunc(acb_Balanca.UltimoPesoLido);
case valid of
0 : Memo1.Lines.Text := 'TimeOut !'+sLineBreak+
'Coloque o produto sobre a Balança!' ;
-1 : Memo1.Lines.Text := 'Peso Instavel ! ' +sLineBreak+
'Tente Nova Leitura' ;
-2 : Memo1.Lines.Text := 'Peso Negativo !' ;
-10 : Memo1.Lines.Text := 'Sobrepeso !' ;
end;
end ;

end;


o que eu quero é capturar o peso enviado pela balança.

grato.

Olá Luis, entrei em contato com nosso consultor que é especialista em NFe, Acbr, e outros, ele é muito bom. Porém está um pouco enrolado mas logo irá te atender tudo bem? Obrigado pela paciência e um abraço.

valei, vou ficar aguardando...

grato.

Cara você realizou algum teste de comunicação com a porta a porta de comunicação? Ex.: COM1..
Este teste teve resultado?

Olá! Confere as configurações de Baud Rate, Data bits, etc... se esta em conformidade com a configuração da balança.

Abs.!