Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-09-2016
fabianmk fabianmk is offline
Miembro
 
Registrado: jul 2004
Posts: 38
Poder: 0
fabianmk Va por buen camino
Leer Banda Magnetica Teclado Hasar [SOLUCIONADO]

Hola!!! Alguien sabe como leer o donde encuentro informacion para leer un lector de banda magnetica de un Teclado Hasar SMH/KM-84. Hice una pequeña prueba para leer en un TEdit, y cuando quiero identificar el numero ascii de los caracteres que lee que son mas de 40 codigos, todos me da Codigo ascii 32 (en blanco). Desde ya gracias por el aporte.
Responder Con Cita
  #2  
Antiguo 27-09-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Si pones el código que estás utilizando uy el resultado que obtienes al leer tal vez sea más fácil ayudarte.
Por lo que entiendo el problema no está en leer, sino en tratar lo que estás leyendo. ¿Cierto?
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 27-09-2016
fabianmk fabianmk is offline
Miembro
 
Registrado: jul 2004
Posts: 38
Poder: 0
fabianmk Va por buen camino
Hola:
Como me sugirieron: Adjunto el codigo donde en TEdit capturo la lectura de la Banda Mag del Tecl y luego en un TButton hago la lectura del TEdit y en un TLabel voy mostrando los codigos Ascii separados por ":"
Código:
var i: Integer;
  letra: Char;
  palabra: string;
begin
  Label1.Caption := '';
  palabra := Edit1.Text;
  for I := 0 to Length(palabra) do
  begin
    letra := palabra[i];
    Label1.Caption := Label1.Caption + IntToStr(Ord(letra)) + ':';
  end;
end;
Responder Con Cita
  #4  
Antiguo 27-09-2016
fabianmk fabianmk is offline
Miembro
 
Registrado: jul 2004
Posts: 38
Poder: 0
fabianmk Va por buen camino
Resultado: No sabia como poner el resultado, ahora ya lo se .
Como pueden apreciar en la Imagen de mas abajo el TEdit, leyo algo pero esta vacio (esta en azul porq seleccione) y al convertirlo a Ascii en TLabel me muestra el Ascii 32 (espacio en blanco)
Imágenes Adjuntas
Tipo de Archivo: jpg captura.jpg (30,8 KB, 13 visitas)
Responder Con Cita
  #5  
Antiguo 27-09-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Haz una prueba sencilla.
(1) Abre el NOTEPAD
(2) Pasa la tarjeta.

¿Qué sale?
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 27-09-2016
fabianmk fabianmk is offline
Miembro
 
Registrado: jul 2004
Posts: 38
Poder: 0
fabianmk Va por buen camino
Si la hice ya. Pone un espacio en blanco y un ENTER (#13) calculo q por cada caracter q esta en la banda magnetica. Ya que por ejemplo pase una VISA y habra puesto 80 lineas vacias con ENTER (#13) en cada uno, luego pase una de Debito MAESTRO puso 10 lineas vacias con ENTER (#13) y asi cada tarjeta diferente va poniendo la cantidad de caracteres vacios separados por ENTER (#13).
Saludos
Responder Con Cita
  #7  
Antiguo 27-09-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Revisa la configuración del lector y pasa alguna tarjeta que no sea bancaria (seguridad social, tiendas,...).
Por lo que se, deberían aparecerte los caracteres "normales", así que es posible que no tengas bien configurado el lector.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 29-09-2016 a las 09:25:04.
Responder Con Cita
  #8  
Antiguo 28-09-2016
fabianmk fabianmk is offline
Miembro
 
Registrado: jul 2004
Posts: 38
Poder: 0
fabianmk Va por buen camino
Solucionado: Netfali tenias razon era un problema de configuracion gracias por la ayuda.
el inconveniente era un problema de configuracion en el programa "Visual KeyMaker" q trae para configurar opcion SERIAL READER/KEYBOARD LANGUAGE tenia seleccion opcion ASCII y la puse en Spain Traditional Sort y funciona perfecto.
Saludos y de nuevo gracias a los se detuvieron a leer.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Leer buffer de teclado newtron Varios 2 06-11-2014 10:23:13
Obtener datos de un lector de banda magnetica Delphitest Varios 6 29-09-2010 18:25:42
Leer y escribir tarjetas con banda magnetica juanelo Varios 1 13-03-2008 23:29:50
Grabar tarjeta de banda magnética maro Varios 9 18-01-2008 08:23:36
Trabajar con lector de banda magnética lpedrazzi Varios 2 26-04-2007 20:46:46


La franja horaria es GMT +2. Ahora son las 19:44:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi