Vagner Brentan

Olá pessoal, mais uma preciso da ajuda dos amigos. Fiz a codificação para usar o ACBrBal, porém agora esta dando o seguinte erro Invalid Typecast. Referente aos seguintes parâmetros de configuração do componente: ACBrBAL1.Modelo := TACBrBALModelo (ConfiguracaoBalancaModelo); ACBrBAL1.Device.HandShake := TACBrHandShake(ConfiguracaoBalancaHandShaking); ACBrBAL1.Device.Parity := TACBrSerialParity(ConfiguracaoBalancaParity); ACBrBAL1.Device.Stop := TACBrSerialStop(ConfiguracaoBalancaStopBits); ACBrBAL1.Device.Data := ConfiguracaoBalancaDataBits; ACBrBAL1.Device.Baud := ConfiguracaoBalancaBaudRate; ACBrBAL1.Device.Porta := ConfiguracaoBalancaPortaSerial; Alguém sabe me responder, estou carregando essas configurações por um arquivo .ini.e as armazeno em uma variável. Exemplo: ConfiguracaoBalancaModelo := INI.ReadString ('BALANCA','Modelo',''); Fico no aguardo dos amigos .

Bem consegui criar um .INI . mas ainda estou em dúvida qto aos campos. unit Unit78; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,IniFiles, StdCtrls; type TForm78 = class(TForm) cbxModelo: TComboBox; Button1: TButton; edTime: TEdit; Label1: TLabel; cbxPortaSerial: TComboBox; cbxBaundRate: TComboBox; cbxDataBits: TComboBox; cbxParity: TComboBox; cbxStopBits: TComboBox; cbxHandshaking: TComboBox; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form78: TForm78; ArqINI : String ; INI : TIniFile ; implementation {$R *.dfm} procedure TForm78.Button1Click(Sender: TObject); begin ArqINI:=('C:\configbal.ini'); INI := TIniFile.Create(ArqINI); try INI.WriteString ('BALANCA','MODELO',cbxModelo.Text); INI.WriteString ('PORTA SERIAL','PORTA',cbxPortaSerial.Text); INI.WriteString('BAUND RATE','BAUNDS',cbxBaundRate.Text); INI.WriteString('DATA BITS','BITS',cbxDataBits.Text); INI.WriteString ('PARITY','PARIDADE',cbxParity.Text); INI.WriteString ('STOP BITS','STOP',cbxStopBits.Text); INI.WriteString ('HANDSHAKING','HANDSHAKING',cbxHandshaking.Text); INI.WriteString ('TIME OUT','TIME',edTime.Text); finally INI.Free ; ShowMessage('Arquivo configbal.ini gerado com sucesso!'); end; end; end. Se puder me esclarecer quais campos devem conter no .INI Obrigado

Obrigado mais uma vez, Vou tentar aqui e depois posto o resultado ou o erro !!! Abraços

Acho que não estou conseguindo me expressar. A dúvida não é na geração ou leitura do arquivo .INI pelo Delphi, mas sim quais campos tem que constar nele. Ou seja, seu Layout.

Sim, usei eles como exemplo, mas a maior dúvida é no Layout do INI

Olá Daniel, gerei esse arquivo .INI.porem a balança não funcionou mais. Pode me dar uma luz !!! Não sei se o layout esta certo ou não ou se tem alguma coisa que não consta. Obrigado Segue ,INI [Modelo] Modelo=balToledo [HandShake] TACBrHandShake=hsNenhum [Parity] TACBrSerialParity=pNone [Stop] TACBrSerialStop=s1 [Data] StrToInt('8') [Baud] StrToInt(velba) [Porta] portaba

Olá Daniel, obrigado pela resposta !!! Bem, é o seguinte: Estou com dificuldades de criar um arquivo .INI com as configurações da balança. Gostaria de um exemplo desse tipo de arquivo para ser lido pelo componente ACBrBal, pois não há a possibilidade de buscar essas configurações direto no Banco de dados pois no meu caso o cliente tem 2 balanças diferentes no Check-out, Ai a utilização de um arquivo .INI será a alternativa mais viável. Agradeço a atenção.

Tudo bem pessoal ? Bem, em primeiro lugar quero pedir desculpas caso o post esteja em lugar errado ou seja inapropriado. Estou com um problema aqui ! Quero "pegar" as configurações do ACBrBal por arquivo .INI, porém estou perdido de como fazer. Alguém poderia me dar uma dica ? Uso o Delphi. Obrigado

Por favor alguém pode me ajudar, Preciso de um exemplo de configuração do ACBrBAL, por .INI. Alguém pode me ajudar ? Obrigado

Pessoal por favor como posso fazer para gravar as configurações da balamça pelo ACBrBal Seria possível gravar em um .INI ? Obrigado

Por favor amigo, me digam aonde estou errando. Criei essa Procedure para captar o peso de balanças usando o ACBrBal. Mas nem com reza funciona, simplesmente o peso não é enviado. Testei com emulador e com vários modelos de balanças e nada. Estou quase tendo um infarte aqui. Por favor me ajudem !!! procedure TFCaixa.ACBrBAL1LePeso(Peso: Double; Resposta: AnsiString); var valid: Integer; begin editCodigo.Text := FormatFloat('##0.000', Peso) + '*'; if Peso > 0 then begin labelMensagens.Caption := 'Leitura da Balança OK !'; editQuantidade.Text := FormatFloat('##0.000', Peso); editCodigo.SetFocus; end else begin valid := Trunc(ACBrBAL1.UltimoPesoLido); case valid of 0: labelMensagens.Caption := 'Coloque o produto sobre a Balança!'; -1: labelMensagens.Caption := 'Tente Nova Leitura'; -2: labelMensagens.Caption := 'Peso Negativo !'; -10: labelMensagens.Caption := 'Sobrepeso !'; end; end; end; {$EndRegion} end.

Olá pessoal, tudo bem ? Estou iniciando no ACBr e estou quebrando a cabeça para usar o ACBrbal. Gostaria de saber como usar, por exemplo, no meu PDV tenho o campo labelqtde e gostaria de saber como eu faço para que o peso enviado pela balança seja mostrado nesse label. Estou usando o Delphi 7. Obrigado e fico no aguardo.

Estou tentando recompilar um componente pronto para geração da NF-e dentro do meu ERP. Porém, depois de recompilar o mesmo deixa de ler as XML. Quando executo o mesmo compilado fora do projeto do ERP ele volta a funcionar. Alguém já passou por isso ?

Pessoal , estou com sérios problemas para intergrar a balança Fillizola. Simplesmente o sistema não recebe o valor enviado pela balança. Alguém pode me ajudar ? Obrigado

Eu uso o seguinte //bematech procedure TForm1.Button5Click(Sender: TObject); var F : TextFile; begin AssignFile(F,Edit1.Text); Rewrite(F); Writeln(F,#27#118); //bematech CloseFile(F); end;