ACBRLCB funciona para Leitor USB ou somente Serial

[geanjesus]

Olá Srs do ACBR, depois de pesquisar muito sobre

a Entrada de Codigos para processamento de Vendas de Itens

num cenario com extrema velocidade,  verifiquei que o ACBR tem um

componente ACBRLCB que cria uma fila dos codigos lidos, e num timer

ou numa thread poderia ir processando esses codigos lidos, sem interferir

na leitura dos mesmos, e com isso , resolvendo a entrada extremamente

rapida dos itens, para a venda. Porém o que nao ficou claro é que se funciona, quando

o leitor é USB ou  ainda quando a entrada for pelo teclado simplesmente. Hoje estou tendo alguns 

problemas com entrada de dados de codigo de barras , onde uso um programa EXCOM.exe,

que pega o que veio da serial e manda para o Edit para ser processado, mas isso se passar muito rapido,

os codigos sao cortados e ainda , o que é mais grave , pega outro produto se o mesmo existir.

Então , somente com uma fila , pode-se resolver essa questão. Já resolvi isso em outras épocas,

num cenário, com muitas ligações telefonicas, (sistema de radio-taxi) , as quais eu gravava literalmente cada uma que chegava em um arquivo,

atraves, da captura por bina,  para serem processadas posteriormente. Naquele caso, precisava gravar literalmente num arquivo, pois as ligações

eram compartilhadas por vários usuários , que iam processando posteriormente.cada ligação....e eliminando do arquivo...

Nesse caso da automação, poderia ser um arquivo temporario, mesmo que vai guardando os codigos, enquanto outra instancia ou

num timer vai processando os mesmos...e eliminando-os

Parece que o componente ACBRLCB, se proproe a fazer isso...preciso de uma ajuda para entender melhor o componente... 

 

  

[Rafael Dias]

o ACBrLCB é para leitor de código de barras serial.
Geralmente leitor USB se comporta como teclado ele literalmente digita o código de barras.

[geanjesus]

Mas a duvida é a seguinte... nao posso usar o ACBrLCB.Fila.Add(CodBarras) para adicionar 

um codigo que veio do codigoedit no evento keypress atraves do teclado ou leitor USB ?

e depois usar ACBRLCB.Lerfila no meu timer para processar o codbarras da fila?

porque a partir do evento keypress do meu codigoedit, nao importa quem colocou o codigo lá, 

se foi o leitor serial, se foi pelo teclado, ou foi pelo leitor USB.

O que quero é o seguinte:

se tiver leitor serial, entao pega o codigo atraves do leitor serial e joga no codigoedit.

se nao tiver leitor serial e for USB, vai emular o teclado e assim jogar no codigoedit

se nao tiver nem leitor serial nem leitor USB, vai pegar pelo teclado e jogar no codigoedit

sendo assim , em qualquer hipose, eu poderia alimentar o componente ACBRLCB.fila.add(trim(codigoedit.text)) e 

ligar o vendeitemtimer para processar ACBRLCB.Lerfila  enquanto ACBRLCB.fila.count > 0,  e limpar o codigoedit e

mandar o foco de volta para o codigoedit e assim continuar lendo o proximo codigoedit

ou seja quero usar somente a fila do componente para armazenar os codigos. depois processar no timer... ou numa thread...

não posso fazer Isso? essa é minha duvida...

 

[Daniel Simoes]

48 minutos atrás, geanjesus disse:

Mas a duvida é a seguinte... nao posso usar o ACBrLCB.Fila.Add(CodBarras) para adicionar 

Sim... não há problemas com isso... Veja esse (antigo) tópico:

 

[geanjesus]

Entao Daniel, quando tento acessar os links que voce explica no forumweb.... da esse erro:

Não é possível acessar esse site

Não foi possível encontrar o endereço DNS do servidor de www.forumweb.com.br.

 

• Pesquise forum web br foruns topic 74093 pequenos problemas acbr no Google

ERR_NAME_NOT_RESOLVED

Editado 8 Novembro, 2017 por geanjesus

[Daniel Simoes]

Parece que o Fórumweb morreu...

Vou tentar lembrar o que eu havia escrito no tópico...

[Daniel Simoes]

Lembrei que a muito tempo atrás, eu havia escrito um mini-demo, para demonstrar a ideia...

Por favor veja os fontes do projeto em:

\ACBr\Exemplos\ACBrSerial\LCBxECF

[EMBarbosa]

Em 08/11/2017 at 10:39, geanjesus disse:

quando tento acessar os links que voce explica no forumweb.... da esse erro

 

Em 08/11/2017 at 12:38, Daniel Simoes disse:

Parece que o Fórumweb morreu...

Vou tentar lembrar o que eu havia escrito no tópico...

Dá pra acessar via WayBackMachine:

https://web.archive.org/web/20120425065621/http://www.forumweb.com.br/foruns/topic/74093-pequenos-problemas-com-acbr/

Em 08/11/2017 at 14:39, Daniel Simoes disse:

Por favor veja os fontes do projeto em:

\ACBr\Exemplos\ACBrSerial\LCBxECF

Também tem o exemplo do Delphi.

"\ACBr\Exemplos\ACBrSerial\ACBrECF\Delphi\uVendaFrenetica.pas"

Acho que não está no exemplo do Lazarus...

[giulianon]

Vale lembrar também que, alguns leitores USB permitem instalar um driver (assim como nas impressoras fiscais) que emula uma porta COM, e torna essa leitura bem eficiente utilizando a fila do ACBrLCB.

Att.

[Daniel Simoes]

Obrigado @EMBarbosa

Copiando o conteúdo do antigo FórumWeb, para esse post:

Adicionado 09 outubro 2008 - 11:09

Quote

Componente ACBrECF ocupado
(Aguardando resposta do comando anterior)

Isso significa que o comando anterior ainda não foi concluído e vc já enviou um novo comando... Provavelmente o operador disparou um novo produto antes da Impressão do anterior terminar... Esses problemas geralmente não ocorrem quando usando a DLL do fabricante pq a DLL "prende" a aplicação até ser concluida... diferente do ACBr, que mantem sua interface livre...

Vc precisará implementar um mecanismo de Fila. Ou seja os itens vendidos caem em uma fila (STringList)... e vc ativa um Timer que vai processando e removendo os itens da Fila... Abaixo segue exemplo de Fila usando o componente ACBrLCB (para leitor de Cod.Barras) com a propriedade UsarFila := True

No Edit do Código do Produto faça:

procedure TFrVenda.edCodProdutoKeyPress(Sender: TObject; var Key: Char);
 Var CodBarras: String;
begin
  if (key = #13) or (key = #10) then			 // ENTER (CR) ou LF
  begin
	 CodBarras := Trim( edCodProduto.Text );

	 ACBrLCB1.Fila.Add( CodBarras );
	 edCodProduto.Text := '';					 // Zera o Edit, preparando para uma nova venda rapidamente
	 edCodProduto.SetFocus;
	 
	 TimerVendeItem.Enabled := True;	   // Liga o Timer responsável por efetuar as vendas
  end;
end;

No Evento do Timer que efetua as vendas faça:

procedure TFrVenda.TimerVendeItemTimer(Sender: TObject);
 Var CodBarras : String;
begin
  TimerVendeItem.Enabled := False;
  try
	   // Verifica se o ACBrECF está ocupado, Se estiver não vende, tentará novamente no próximo evento do Timer //
	   // FVendendo é liga no inicio de VendeItem e desligada no Final
	 if not ( FVendendo or ACBrECF1.AguardandoResposta) then		
	 begin
		CodBarras := ACBrLCB1.LerFila;
		VendeItem( CodBarras );
	 end;
  finally
	 TimerVendeItem.Enabled := (ACBrLCB1.Fila.Count > 0);
  end;
end;

Ou seja, ele Desliga o timer, processa um Item da fila e só religa o Timer se houver itens restantes...


Finalmente, no evento OnLeCodigo do ACBrLCB, apenas Ligue o Timer

procedure TFrVenda.ACBrLCB1LeCodigo(Sender: TObject);
begin
   TimerVendeItem.Enabled := True
end;

Na procedure de Venda de Itens (VendeItem) vc deve ligar e desligar o FLAG FVendendo

procedure TFrVenda.VendeItem(CodBarras : String);
begin
  FVendendo  := True;

  try
	 ...... seu código de busca no BD aqui ...
	 // Imprime no ECF //
	 ACBrECF1.VendeItem( ...... );

	 // Grava o Item no BD //

  finally
	 edCodProduto.SetFocus;
	 FVendendo := False;
  end;