ActiveDelphi

[utlrasen.tato]

boa noite amigos

nao sei se posso por aqui mencionar esta duvida, mas vamos la

estou utilizando o componente acbrbal onde capta o peso da balanca porem na parte de ler os dados de configuracao onde eu gravo na base de dados esta dando erro de nao encontrar a informacao, alguem poderia me ajudar!

o meu codigo esta assim
ACBrBAL1.Modelo := Dm_local.ds_configMODbalanca.AsVariant;
ACBrBAL1.Device.HandShake := Dm_local.ds_configHANDBALANCA.AsVariant;
ACBrBAL1.Device.Parity := Dm_local.ds_configPARITYBALANCA.AsVariant;
ACBrBAL1.Device.Stop := Dm_local.ds_configSTOPBITSBALANCA.AsVariant;
ACBrBAL1.Device.Data := Dm_local.ds_configDATABISBALANCA.AsVariant;
ACBrBAL1.Device.Baud := Dm_local.ds_configVELBALANCA.AsVariant;
ACBrBAL1.Device.Porta := Dm_local.ds_configPORTABALANCA.AsVariant;


no exemplo da acbr esta assim

ACBrBAL1.Modelo := TACBrBALModelo( cmbBalanca.ItemIndex );
ACBrBAL1.Device.HandShake := TACBrHandShake( cmbHandShaking.ItemIndex );
ACBrBAL1.Device.Parity := TACBrSerialParity( cmbParity.ItemIndex );
ACBrBAL1.Device.Stop := TACBrSerialStop( cmbStopBits.ItemIndex );
ACBrBAL1.Device.Data := StrToInt( cmbDataBits.text );
ACBrBAL1.Device.Baud := StrToInt( cmbBaudRate.Text );
ACBrBAL1.Device.Porta := cmbPortaSerial.Text;


e o erro esta sendo na parte por exemplo - TACBrBALModelo( cmbBalanca.ItemIndex );

como posso fazer com o este componente lei as configuracaoes da base de dados que estao gravadas

[Ghost_Rider]

Observe que no exemplo do acbr ele "traduz" o índice do combobox para uma opção válida do componente, e vc tenta pegar o dado como variant da sua query para isso, por isso o erro...

[utlrasen.tato]

[Ghost_Rider]

Observe se no seu form, no uses do form (no alto do form) tem a declaração dessas 3 units ACBrBase, ACBrBAL, ACBrDevice;

Se não tiver coloque e dai adapte igual ao exemplo...