Leer Banda Magnetica Teclado Hasar [SOLUCIONADO]

[fabianmk]

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

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]

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]]

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

¿Qué sale?

[fabianmk]

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]]

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]

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.