[pacuuy]

Empezado por alfil123

bueno amigos, reholas, ya consegui un lector de codigo de barras, el de marco symbol tech, mu16fp, porfavors ayuda ya tengo que leer los codigos mi los animales con esto

mira lo que yo hago es muy artesanal pero funciona, es así:

Tengo un edit en el form, al cual le puse el Focus todo el tiempo, o sea setee todos los demas componentes del Form con la propiedad TabStop en FALSE y al Edit lo tengo con TABSTOP=TRUE.

Luego en el evento OnKeyPress tengo el siguiente código:

procedure TForm1.LectorBarrasKeyPress(Sender: TObject; var Key: Char);
begin
  If Length(tempLectura) <= LongMaxima then
      begin
        TempLectura:= TempLectura + LectorBarras.Text;
        LectorBarras.Text:=''
      end;

  If length(TempLectura) = LongMaxima then
    begin
       // Showmessage(TempLectura);
       Edit5.Text:= LeftStr(TempLectura,LongMatricula);
       Edit6.Text:= MidStr(TempLectura,(LongMatricula+1),LongZorra);
       Edit7.Text:= MidStr(TempLectura,(LongMatricula+LongZorra+1),LongPeso);
       TempLectura:='';
    end;
end;

Al final lo que hago cuando llego a leer el largo de caracteres que trae mi código de barras(19), es copiar a los edit del form donde se ingresarían manualmente en caso de que se rompa el lector de barras.

Saludos desde Uruguay.

Pacuuy