Acbrecf

[Plate2013]

Boa noite amigos

 

 

Consegui enviar as configurações para o arquivo INI:

 

 

 

 

[ACBR]

Modelo=ecfDaruma

Porta=COM6

Baud=115200

 

 

 

A minha duvida é:

 

há uma maneira de através, do ACBR ele pegar estas configurações diretamente do INI?

 

Ou se houver outra maneira...  

[Plate2013]

var

  Cfg : TIniFile;

begin

  Cfg := TIniFile.Create('Plate_Config.ini');

  try

  ACBrECF1.Modelo := Cfg.ReadString('Config','Modelo','');

  ACBrECF1.Porta := Cfg.ReadString('Config','Porta','');

  ACBrECF1.Device.Baud := Cfg.ReadString('Config','Baud','');

  finally

  Cfg.Free;

  end;

  end;

 

 

Mas esta dando imcompatibilidade pq modelo é INTEGER e o ini esta em String ecfDaruma  ai minha duvida agora é como faço para resolver isso?

[Daniel Simoes]

Estude os fontes do Demo, projeto ECFTeste.dpr... lá ele lê os parâmetros de um .INI e seta nos componentes ACBr

[Plate2013]

Boa tarde amigo por gentileza esta dando a seguinte mensagem:

 

 

procedure TForm1.Button2Click(Sender: TObject);

var

// variável que irá conter o arquivo

config : TIniFile;

// variável que irá armazenar parâmetro a ser lido do arquivo

m,p,b :Stringl;

 

begin

// associa o arquivo de configuração a variável

config := TIniFile.Create('C:\Loja Master\Plate_Config.ini');

//variável param recebe 12345

m := config.ReadInteger('CONFIG','Modelo','');

p := config.ReadInteger('CONFIG','Porta','');

b := config.ReadInteger('CONFIG','Baud','');

acbrecf1.Modelo:=(m);

acbrecf1.Porta:=(p);

acbrecf1.Device.Baud:=(;

 

 

Incompatible types integer and estring:

 

 

Esta dando esta mensagem por conta do fato de eu ter transformado para integer e ter enviado assim para o ini ai na hora de ler preciso lê-los tb em formato integer poderia me dar uma dica de como fazer isto?

[Juliomar Marchetti]

Com sua pergunta já respondeu a si mesmo, uma variável string querendo receber uma informação integer!!!

 

m,p,b :Stringl;

m := config.ReadInteger('CONFIG','Modelo','');

p := config.ReadInteger('CONFIG','Porta','');

b := config.ReadInteger('CONFIG','Baud','');

 

no caso vai ser só você corrigir e ler uma string ReadString

[Plate2013]

É verdade srsrsr Mas o erro esta dando aqui:

 

 

acbrecf1.Modelo:=(m);

acbrecf1.Porta:=(p);

acbrecf1.Device.Baud:=(.

 

 

Pq é assim eu estou enviando Integer para o arquivo ini:

 

 

[Config]

Modelo=4

Porta=544

Baud=544

Editado 30 Janeiro, 2013 por Plate2013

[EMBarbosa]

Baud é um valor inteiro e você está atribuindo uma variável string sem convertê-la.

Já modelo é do tipo enumerado TACBrECFModelo declarado na Unit UACBrECF.pas.

 

Usando essas variáveis string sem converter não vai conseguir mesmo.

[Plate2013]

Olá amigo poderia me dar um exemplo de como faria isto?

[Plate2013]

Eu até consegui ler o arquivo ini e joga-lo em um uns edits, gostaria mesmo de saber como faria para, converter às variaveis e joga os valores no componente

[EMBarbosa]

O código de exemplo está no programa demo. Veja lá como é feito.

[Plate2013]

Já olhei no exemplo e estou conseguindo mandar as configurações para o ini,  ocorre que já testei o ini com showmessage e ele lê os valores que mando para o arquivo INI:

 

[Config]

 

modelo=ecfDaruma

porta=COM6

baud=115200

 

 

Mas quando inicio o sistema dá a seguinte mensagem:

 

modelo não definido!

 

Agora fiz assim:

 

Procedure que lê o arquivo ini

 

 

procedure TForm1.ateconfig;

var

ateconfi :TiniFile;

Begin

ateconfi:=Tinifile.Create('c:\config_config.ini');

m:=ateconfi.ReadString('config','modelo','m');

p:=ateconfi.ReadString('config','porta','p');

b:=ateconfi.ReadString('config','baud','b');

ateconfi.Free;

end;

 

Depois pego os valores lidos na procedure e passo para o componente:

 

procedure TForm1.Button2Click(Sender: TObject);

begin

ateconfig;

P:=acbrecf1.Porta;

M:=acbrecf1.ModeloStr;

ACBRECF1.Device.Baud:=StrToInt(.;

end;

 

Editado 1 Fevereiro, 2013 por Plate2013

[Daniel Simoes]

Acho que você realmente NÃO leu os fontes do Projeto ECFTeste

 

procedure TForm1.cbxModeloChange(Sender: TObject);
begin
  try
     ACBrECF1.Modelo := TACBrECFModelo( cbxModelo.ItemIndex ) ;
  except
     cbxModelo.ItemIndex := Integer( ACBrECF1.Modelo ) ;
     raise ;
  end ;
end;
 

 

O Modelo deve ser gravado como Inteiro

[Plate2013]

Boa tarde.

 

 

Eu vi tanto que esta parte do código uso-a para setar a impressora no sistema e dá certo consigo configurar e ao mesmo tempo gravar as informações no ini, mas meu problema é que quando reinicio as configurações somem e isso ocorre só quando reinicio. desculpe algum transtorno mas estou tentando aprender a usar o acbr da melhor maneira.

Editado 2 Fevereiro, 2013 por Plate2013

[marcelo_sp]

Depois pego os valores lidos na procedure e passo para o componente:

 

procedure TForm1.Button2Click(Sender: TObject);

begin

ateconfig;

P:=acbrecf1.Porta;

M:=acbrecf1.ModeloStr;

ACBRECF1.Device.Baud:=StrToInt(. ;

end;

 

 

A atribuição não é o inverso não manu ?

 

Vc está novamente atribuindo valores para as variaveis , somente o baud vc fez correto .

 

faz assim : 

 

procedure TForm1.Button2Click(Sender: TObject);

begin

ateconfig;

acbrecf1.Porta := P ;

acbrecf1.ModeloStr := M ;

ACBRECF1.Device.Baud :=StrToInt( ;

end ;

Editado 3 Fevereiro, 2013 por marcelo_sp

[Plate2013]

ôpa consegui resolver a questão e de quebra aprendi a usar o acbr é como p amigo, EMBarbosa disse: Têm de ler, li com mais cuidado o exemplo e consegui não complicado, e o resultado ficou ótimo agora funciona com a maioria senão todas as impressoras relevantes do mercado, obrigado pessoal da acbr, agora vou começar a implantar a nfe.