Ajuda balança - PortA Serial
Estou precisando de uma apoio(Consultoria) para leitura de dados de balança Toledo, vim do Clipper mais ou menos uns 15 anos nele e a alguns meses estou no Delphi, mas estou apnhando muito para ler os dados de uma balança toledo..
Li artigos, mas mesmo assim naum consegui ainda, estou com dois componentes instalados, o Apro e o async32, qual vc aconselharia.
Configurei a balança para continuamente enviar os dados pela serial quando for colocado algum peso nela e para teste fiz o seguinte, mas continua dando erro
não aparece nada
me ajuda, e se ouver custo me envie
Nilson
SEGUE UM EXEMPLO
procedure TForm1.Button1Click(Sender: TObject);
var
vare : string;
resp : string;
begin
Vacomm1.Open;
if vacomm1.Active Then
Begin
vare := vare+vacapture1.Comm.ReadText;
resp :=resp+vacomm1.ReadText;
label1.Caption:=resp;
edit1.Text:=vare;
Vacomm1.Close;
end;
end;
end.
Li artigos, mas mesmo assim naum consegui ainda, estou com dois componentes instalados, o Apro e o async32, qual vc aconselharia.
Configurei a balança para continuamente enviar os dados pela serial quando for colocado algum peso nela e para teste fiz o seguinte, mas continua dando erro
não aparece nada
me ajuda, e se ouver custo me envie
Nilson
SEGUE UM EXEMPLO
procedure TForm1.Button1Click(Sender: TObject);
var
vare : string;
resp : string;
begin
Vacomm1.Open;
if vacomm1.Active Then
Begin
vare := vare+vacapture1.Comm.ReadText;
resp :=resp+vacomm1.ReadText;
label1.Caption:=resp;
edit1.Text:=vare;
Vacomm1.Close;
end;
end;
end.
Nilson Junior
Curtidas 0
Respostas
Markk
11/11/2003
Você deve inicializar as variáveis Resp e Vare.
Vare := ´´; // vazio
Resp := ´´; // vazio
Vare := ´´; // vazio
Resp := ´´; // vazio
GOSTEI 0
Nilson Junior
11/11/2003
Alguem teria um exemplo
GOSTEI 0
Odacir
11/11/2003
Gostaria de ajudar.... Tenta verificar no manual da balança a velocidade de comunicação, bits de parada, paridade, etc. Então configure o componente da forma como indica no manual da impressora.
Então abra o componente e faça a leitura.
Me envie uma mensagem falando sobre o seu sucesso. OK
Se não der certo, tentarei mais alguma coisa.
Então abra o componente e faça a leitura.
Me envie uma mensagem falando sobre o seu sucesso. OK
Se não der certo, tentarei mais alguma coisa.
GOSTEI 0