[Balança Filizola Pluris Com Acbrmonitor]

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 .

[Balança Filizola Pluris Com Acbrmonitor]

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

[Balança Filizola Pluris Com Acbrmonitor]

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

[Balança Filizola Pluris Com Acbrmonitor]

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.
 

[Balança Filizola Pluris Com Acbrmonitor]

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

[Balança Filizola Pluris Com Acbrmonitor]

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

[Balança Filizola Pluris Com Acbrmonitor]

Em 04/03/2015 at 17:27, Daniel Simoes disse:

Não dá pra compreender o que vc precisa... por favor seja mais específico...

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.

 

 

 

[Arquivo .ini]

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

[Balança Filizola Pluris Com Acbrmonitor]

Por favor alguém pode me ajudar,

Preciso de um exemplo de configuração do ACBrBAL, por .INI.

Alguém pode me ajudar ?

Obrigado

[Balança Toledo retorna -9]

Pessoal por favor como posso fazer para gravar as configurações da balamça pelo ACBrBal

Seria possível gravar em um .INI ?

 

Obrigado

[Ler O Peso + Tara Balança Toledo Protocolo P03]

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.

[Elgin Dp3000 - Balança Pesdora]

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.

[Erro DLL LIBEAY32.dll]

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 ?

[Componente Acbrbal - problema]

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

[BEMATECH MP400 TH (USB) abrir gaveta]

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;