Leitura Codigo Barras Pelo Edit Sem Digitacao Usuario

[helderlr]

Boa tarde a todos

 

Teria como fazer a leitura do codigo barras pela usb usando edit sem o usuario digitar no edit

 

Consegui bloquear o ctrl+V mas nao o digitar do usuario

 

quero ler o codigo de barras pelo edit mas o usuario nao pode digitar no edit.

 

 

[Cleber Ferreira]

tente, mudando a propriedade ReadyOnly do edit para True

[helderlr]

Muito obrigado amigo mas ja fiz isso

 

o leitor nao aceita,

 

preciso ler pelo leitor usb mas o usuario nao pode digitar,viola a operacao entende.

 

vi isso aqui mas nao testei

 

http://sourceforge.net/projects/winusb-delphi/

[EMBarbosa]

A maioria dos leitores, principalmente os USB, funcionam como um teclado. Então você não vai conseguir bloquear o teclado sem bloquear o leitor.

[helderlr]

Muito obrigado pela sua ajuda ,encontrei esse link http://s.pudn.com/search_hot_en.asp?k=DELPHI+USB#

[Rodrigo Guelf]

Amigo se deu certo marque como resolvido este tópico.

[Cleber Ferreira]

Nao ficou clara qual foi a solucao... apenas varios links em ingles. É interessante falar pq foi feito para auxiliar quem precisar futuramente

[Douglas Pacheco]

se for a Função do Enter apos a Leitura do codigo seria o componente KeyPress neste exemplo: bom se for pelo o que entendi....na relação acima

 

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.Message of
    WM_KEYDOWN:
    begin
      if (Msg.wParam = VK_TAB) //Testa o precionamento do TAB/Leitor
     AND (ActiveControl = Edit1) //Verifica se o Edit1 está com o focu
     then
      begin
         Edit1.Text := ´Texto´;
         Edit1.SetFocus;
         abort;
      end;
    end ;
  end;
end;