Ir para conteúdo
  • Cadastre-se

dev botao
  • Este tópico foi criado há 3311 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Bom dia, Juliomar. eu já uso em um dos meus sistemas para restaurante o componente AcBrBal com Filizola e Toleno, funciona perfeitamente mas estou com outro

cliente que usa a urano, sei que existe o componente AcBrBalUrano, estou com a Unit dele mas não sei como implementar no delphi xe7 , vc poderia me ajudar nesse caso? 

  • Moderadores
Postado

Sim tu já conhece o Componente?

então como já conhece o delphi e olhou no object inspector percebeu que o mesmo tem nesse componente a propriedade Modelo!

então é só usar a que corresponde!

ACBrBAL1.Modelo := balUrano ou balUranoPOP

 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Postado

Nossa, desculpe, realmente kkk

Vlu muito obrigado cara, vlu mesmo

Juliomar eu já coloco o Modelo da Balança atraves de um arquivo INI veja:

procedure TFrVendas.Timer1Timer(Sender: TObject);
var
portHandle: Integer;
begin
//Pegar Marca e Modelo da Balança
vArqUsa_Balanca := TIniFile.Create(extractfilepath(ParamStr(0))+'ArqUsa_Balanca.ini');
vMarcaBalanca:= vArqUsa_Balanca.ReadString('Balanca','Marca','');
vModeloBalanca:= vArqUsa_Balanca.ReadString('Balanca','Modelo','');
//

if acbrBal1.Ativo then
ACBrBAL1.Desativar;
// configura porta de comunicação
ACBrBAL1.Modelo := TACBrBALModelo(vModeloBalanca);
ACBrBAL1.Device.HandShake := TACBrHandShake(FrConfiguracao.DataSetConfigBalancaHandShaking.AsInteger);
ACBrBAL1.Device.Parity := TACBrSerialParity(FrConfiguracao.DataSetConfigBalancaParity.AsInteger);
ACBrBAL1.Device.Stop := TACBrSerialStop(FrConfiguracao.DataSetConfigBalancaStopBits.AsInteger);
ACBrBAL1.Device.Data := FrConfiguracao.DataSetConfigBalancaDataBits.AsInteger;
ACBrBAL1.Device.Baud := FrConfiguracao.DataSetConfigBalancaBaudRate.AsInteger;
ACBrBAL1.Device.Porta := FrConfiguracao.DataSetConfigBalancaPortaSerial.Value;
ACBRBAL1.Ativar;
end;

Mas eu resolvi, era só um pequeno ajuste no código do meu aplicativo, vlu cara

 

  • Curtir 1
  • Este tópico foi criado há 3311 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.