Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Leer Banda Magnetica Teclado Hasar [SOLUCIONADO] (https://www.clubdelphi.com/foros/showthread.php?t=90884)

fabianmk 26-09-2016 23:45:53

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.

Neftali [Germán.Estévez] 27-09-2016 09:13:27

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?

fabianmk 27-09-2016 15:26:07

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;


fabianmk 27-09-2016 15:33:02

1 Archivos Adjunto(s)
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)

Neftali [Germán.Estévez] 27-09-2016 17:18:46

Haz una prueba sencilla.
(1) Abre el NOTEPAD
(2) Pasa la tarjeta.

¿Qué sale?

fabianmk 27-09-2016 20:39:22

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

Neftali [Germán.Estévez] 27-09-2016 22:56:39

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.

fabianmk 28-09-2016 20:55:36

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.


La franja horaria es GMT +2. Ahora son las 02:41:28.

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