ACBrBal no delphi 7
Boa tarde!
gostaria de entender o componente, pq o que estou fazendo não deu certo.
ex:
Balança de Estrada Toleto, só quero capturar os dados do mostrador da balança para um edit, como isso é possivel usando o componente ACBrBal, já tentei alguns exemplos, mas da o erro abaixo:
Função LePeso não implementada em: Não Difinida.
Grato.
e-mail para ex: gambaskank@terra.com.br
gostaria de entender o componente, pq o que estou fazendo não deu certo.
ex:
Balança de Estrada Toleto, só quero capturar os dados do mostrador da balança para um edit, como isso é possivel usando o componente ACBrBal, já tentei alguns exemplos, mas da o erro abaixo:
Função LePeso não implementada em: Não Difinida.
Grato.
e-mail para ex: gambaskank@terra.com.br
Luiz Estevam
Curtidas 0
Respostas
Wesley Yamazack
17/09/2012
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.
GOSTEI 0
Luiz Estevam
17/09/2012
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.
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.
GOSTEI 0
Wesley Yamazack
17/09/2012
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.
GOSTEI 0
Luiz Estevam
17/09/2012
valei, vou ficar aguardando...
grato.
grato.
GOSTEI 0
Leonardo Xavier
17/09/2012
Cara você realizou algum teste de comunicação com a porta a porta de comunicação? Ex.: COM1..
Este teste teve resultado?
Este teste teve resultado?
GOSTEI 0
Luis Godinho
17/09/2012
Olá! Confere as configurações de Baud Rate, Data bits, etc... se esta em conformidade com a configuração da balança.
Abs.!
Abs.!
GOSTEI 0