Fabjo L da Silva

Boa tarde amigos Consegui fazer a comunicação com o acbrecf e a impressora agora gostaria de saber como faço para fazer com que o acbrecf procure a porta aonde esta a imnpressora caso ele não a ache ou se estiver em procurar

Oi bom dia Na verdade por enquanto estou usando o a impressora virtual da bematech se coloco as configurações diretamente no componente funciona ok mesmo na minha aplicação mas preciso fazer com que tenha uma tela de config para não ter de compilar toda vez que vier uma impressora nova voltando... Então agora está dando o seguinte erro incompatible types TACBRMODELO and TCaption PS O que esse protoicolo 09/09 ? Var I : Integer; begin acbrecf1.Desativar; I:=strtoint(cbxmodelo.Text); acbrecf1.Modelo:= cbxmodelo.Text; acbrecf1.Porta:= cbxporta.Text; acbrecf1.Device.Baud:= StrToInt(baurate.Text); acbrecf1.Ativar;

Boa tarde, Giulianon ! Sim, olhei o exemplo minha aplicação já conseguia emitir ECF mas no entanto, vive perdendo a configuração dai resolvi refazer a parte de comunicação. Então, obrigado pela resposta, fiz como vc me indicou e de fato já mudou alguma coisa, só que notei que agora a aplicação trava ai só no CTRL alt + del. mAS NO acbrlog.txt agora mudou segue abaixo como está: ATIVAR - 25/08/14 01:54:23:421 - Modelo: EscECF - Porta: COM5 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=DTR/DSR MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -- Ativando a porta: COM5 ----------------- ERRO ----------------- Communication error 5: Access is denied ---------------------------------------- -- Ativando a porta: COM5 ----------------- ERRO ----------------- Communication error 5: Access is denied ---------------------------------------- -- Ativando a porta: COM4 ----------------- ERRO ----------------- Communication error 5: Access is denied ---------------------------------------- -- Ativando a porta: COM4 ----------------- ERRO ----------------- Communication error 5: Access is denied ---------------------------------------- -- Ativando a porta: COM5 ----------------- ERRO ----------------- Communication error 5: Access is denied ---------------------------------------- -- Ativando a porta: COM5 ----------------- ERRO ----------------- Communication error 5: Access is denied ---------------------------------------- PS: mudei de porta e mesmo assim da essa mensagem de communication error e a aplicação trava DAI TENTEI ABRIR UM CUPOM MESMO SEM COMUNICAÇÃO E DA ESSA MENSAGEM NO LOG: -- Ativando a porta: Procurar -- 13:02:16:578 CorrigeEstadoErro 13:02:16:578 RX <- ----------------- ERRO ----------------- Communication error 6: The handle is invalid ---------------------------------------- -- 13:02:16:578 13:02:16:578 RX <- ----------------- ERRO ----------------- Communication error 6: The handle is invalid ---------------------------------------- AcharPorta( 3 ) -- 13:02:41:093 IdentificaOperador() 13:02:41:093 RX <- ----------------- ERRO ----------------- Communication error 6: The handle is invalid ---------------------------------------- -- 13:02:43:578 AbreCupom( ., Pedido, ) 13:02:43:578 RX <- ----------------- ERRO ----------------- Communication error 6: The handle is invalid

Bom dia ! Estou implantando acbrecf em meu sistema consigo trazer as informações do meu arquivo ini para minha aplicação e também gravar nele as configurações. No entanto agora necessito informar ao componente as informações vindas do arquivo ini mas quando compilo da o seguinte erro : Código: incompatibles types 'TACBrECFModelo' and Integer Algum amigo poderia me dar uma dica? Eu estou fazendo ou melhor tentando fazer as inserções das configurações no componente assim: Código: Var I : Integer; begin acbrecf1.Desativar; I:=strtoint(cbxmodelo.Text); acbrecf1.Modelo := strtoint(cbxmodelo.Text); acbrecf1.Porta := cbxporta.Text; acbrecf1.Device.Baud := baurate.ItemIndex; acbrecf1.Ativar;

Amigos Isso eu já fiz e consegui comunicar com ela em meu sistema ocorre que demora para abrir o sistema com o acbrecf. A forma como estou fazendo é igual a que está no tópico se pudessem me dar uma dica ficaria agradeciço pois consigo emitir cupom leitura x redução z mas quando vou abrir o meu sistema ele demora muito para carregar

Por gentileza alguém poderia me ajudar?

ahhh ai sim (desculpe) sim eu consigo tirar nota e tudo mais sem problemas segue abaixo a rotina de GRAVAR.INI procedure TForm26.GravarIni; var ArqIni : TIniFile; begin ArqIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'logika.ini'); ArqIni.WriteInteger ('Config', 'Modelo', datamodule1.QLoginECF.AsInteger); ArqIni.WriteString ('Config', 'Porta', cbxPorta.Text); ArqIni.WriteInteger ('Config', 'Baud', BauRate.ItemIndex); ArqIni.WriteInteger ('Config', 'TimeOut', seTimeOut.Value); ArqIni.WriteInteger ('Config','Intervalo', seIntervaloAposComando.Value); FreeAndNil(ArqIni); end; AGORA ABAIXO O lerINI nome "LERUINI" procedure TForm1.Leruini; var logika : TiniFile; begin logika := TiniFile.Create('c:\Logika Comercial\Logika.ini'); form26.cbxModelo.ItemIndex := logika.ReadInteger('config','Modelo',Modelo); form26.cbxPorta.Text := logika.ReadString('Config','Porta',Porta); form26.Baurate.Text := logika.ReadString('config','Baud',Baud); form26.seTimeOut.Value := logika.ReadInteger('Config','TimeOut',TimeOut); form26.seIntervaloAposComando.Value := logika.ReadInteger('Config','Intervalo',Intervalo); logika.Free; end; Dai faço no onshow do form um IF aonde ele testa se está configurado para cupom FISCAL ou não fiscal assim: Begin if form26.DBComboBox1.Text = 'ATIVAR' then button6.Click; end;

Oi amigo não consigo porque nem sei qual é esse problema

Bom dia amigos ! Estu tentando usar o aacbrecf para comunicação em meu sistema mas não contece nada nenhum aviso, eu ativei o log e está aparecendo isso: Se alguém puder me ajudar ficarei grato sou novato no acbr e adorei a proposta quero usa-lo totalmente em minha aplicação -------------------------------------------------------------------------------- ATIVAR - 11/08/14 08:34:38:203 - Modelo: Bematech - Porta: COM4 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- ATIVAR - 11/08/14 08:34:52:640 - Modelo: Bematech - Porta: COM4 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- ATIVAR - 11/08/14 08:34:56:375 - Modelo: Bematech - Porta: COM4 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- ATIVAR - 11/08/14 08:35:07:750 - Modelo: Bematech - Porta: COM4 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- ATIVAR - 11/08/14 08:35:11:078 - Modelo: Bematech - Porta: COM4 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0 --------------------------------------------------------------------------------