FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Leer codigo de barras y peso a travez de un puerto serie
A los amigos del foro
Estoy desarrollando una aplicacion que lea el codigo de barras y el peso de una balanza a travez del puerto serie, estoy usando los componentes de Asyncpro, alguien que me envie algun ejemplo de como asignar la cadena a un tedit y avance automaticamente al siguiente control (tedit). saludos gracias |
#2
|
||||
|
||||
Despues de mandar la cadena al TEdit, manda un caracter TAB o ENTER segun lo tengas programado para que se salte al sgiuiente campo. Recuerda que la mayor parte de estos aparatos funcionan emulando un teclado.
No se si pudieras poner algo de código...seria mas fácil.
__________________
AKA "El animalito" ||Cordobés a mucha honra|| |
#3
|
|||
|
|||
envio algo del codigo..
este es el codigo que tengo, te comento que para avanzar entre campos uso el enter o tab, es decir ambos...como te daras cuenta el problema les que si pasas un producto por el lector, la cadena se sigue concatenando...
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word); var I : Word; C : Char; Cadena : String; begin cadena := ''; for I := 1 to Count do begin C := ApdComPort1.GetChar; case C of #0..#31 : //; else cadena := cadena + C; end; end; edit1.Text := edit1.Text + cadena; end; gracias por tu ayuda estimado AzidRain perdon si no envio la respuesta de manera correcta, soy nuevo en el foro, y no se exactamente como funciona... |
#4
|
|||
|
|||
este es el codigo que tengo, te comento que para avanzar entre campos uso el enter o tab, es decir ambos...como te daras cuenta en el codigo que pongo el problema es que si pasas un producto por el lector, la cadena se sigue concatenando...
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word); var I : Word; C : Char; Cadena : String; begin cadena := ''; for I := 1 to Count do begin C := ApdComPort1.GetChar; case C of #0..#31 : //; else cadena := cadena + C; end; end; edit1.Text := edit1.Text + cadena; end; gracias por tu ayuda estimado AzidRain perdon si no envio la respuesta de manera correcta, soy nuevo en el foro, y no se exactamente como funciona... |
#5
|
||||
|
||||
He estado trantando de subirte la respuesta pero no se que pasa pero no me deja... De todos modos te paso el tip directamente de mi cuate Mirko Gajic en
About.Com
Esta función simula teclazos directametne en tu aplicación, de manera que puedes insertar este codigo debajo del edit1.Text:=... Ya lo probe y funciona bien...
__________________
AKA "El animalito" ||Cordobés a mucha honra|| |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Duda al leer el puerto serie | alloger | C++ Builder | 7 | 15-11-2006 14:01:12 |
Leer Codigo de barras desde una imagen | angara | Gráficos | 1 | 04-09-2006 00:48:08 |
Leer codigo de barras | hunabku | Varios | 2 | 27-04-2005 16:14:39 |
problema al leer codigo de barras | squenda | OOP | 3 | 30-06-2004 08:22:58 |
|