Cita:
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:
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