ActiveDelphi

[fabio.avila]

já programei a leitura da balança toledo pelo ACBRbal, agora estou tentando implementar para filizola. mas esta dando erro de comunicação.

if modeloba = 'TOLEDO'then
begin
ACBrBAL1.Desativar;
// configura porta de comunicação
ACBrBAL1.Modelo := balToledo;
ACBrBAL1.Device.HandShake := TACBrHandShake(hsNenhum);
ACBrBAL1.Device.Parity := TACBrSerialParity(pNone);
ACBrBAL1.Device.Stop := TACBrSerialStop(s1);
ACBrBAL1.Device.Data := StrToInt('8');
ACBrBAL1.Device.Baud := StrToInt(velba);
ACBrBAL1.Device.Porta := portaba;
//
ACBRBAL1.Ativar;
end
else
if modeloba = 'FILIZOLA'then
begin
ACBrBAL1.Desativar;
// configura porta de comunicação
ACBrBAL1.Modelo := balFilizola;
ACBrBAL1.Device.HandShake := TACBrHandShake(hsNenhum);
ACBrBAL1.Device.Parity := TACBrSerialParity(pNone);
ACBrBAL1.Device.Stop := TACBrSerialStop(s1);
ACBrBAL1.Device.Data := StrToInt('8');
ACBrBAL1.Device.Baud := StrToInt(velba);//2400
ACBrBAL1.Device.Porta := portaba;//COM1
//
ACBRBAL1.Ativar;
end
else
begin
// configura porta de comunicação
ACBrBAL1.Desativar;
ACBrBAL1.Modelo := balNenhum;
ACBrBAL1.Device.HandShake := TACBrHandShake(hsNenhum);
ACBrBAL1.Device.Parity := TACBrSerialParity(pNone);
ACBrBAL1.Device.Stop := TACBrSerialStop(s1);
ACBrBAL1.Device.Data := StrToInt('8');
//ACBrBAL1.Device.Baud := StrToInt(velba);
//ACBrBAL1.Device.Porta := portaba;
end;

[fabio.avila]

O modelo é filizola bp15

[Borland_Linuxer]

Deve ser necessário ajustar a configuração da serial, Baud, parity, Stop, etc.... veja no manual da balança quais as configurações usadas pelo equipamento

abraços
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores