Autor Tema: Lector De Banda Magnética Msr (Leído 1455 veces)

Patrickgn · « **en:** Viernes 16 de Diciembre de 2005, 17:20 »

Tengo el siguiente Script echo en una pagina aspx, para una pagina wfrmLectora.asp

Código: Text

 
&#60;script LANGUAGE=&#34;VBScript&#34;&#62;
 
Sub window_onLoad()
        'MSR1.Open &#34;NCRMSR.2&#34; 
        MSR1.Open &#34;NCR5945.MSR&#34;
        MSR1.Claim 0
        MSR1.DeviceEnabled = True
        MSR1.DataEventEnabled = True
        MSR1.DecodeData = True
        ClickSnd.FileName = &#34;media/wav/BttnValid.wav&#34;
end sub
 
Sub window_onUnload()
        MSR1.Close
end sub
 
dim MSRFunction
MSRFunction = &#34;SwipeCard()&#34;
 
Sub MSR1_DataEvent(Status)
alert(&#34;entro MSR1_DataEvent&#34;)
        MSR1.DataEventEnabled = TRUE
        window.setTimeout MSRFunction, 100, &#34;VBSCRIPT&#34;
        if ClickSnd.ReadyState = 4 then
           ClickSnd.Run
        end if
end sub
 
sub SetMSRFunction( fun )
alert(&#34;entro fun&#34;)
   MSRFunction = fun
end sub
 
sub RestoreMSRFunction
alert(&#34;entro Restore&#34;)
   MSRFunction = &#34;SwipeCard()&#34;
end sub 
 
Sub SwipeCard()
alert(&#34;entro swipe&#34;)
   SwipeData = MSR1.Track2Data
   'SwipeData = Right( SwipeData, 6 )
   alert( SwipeData )
End Sub
    &#60;/SCRIPT&#62;
 
 

Se supone que cuando la activo deberia leerme el Track de la Tarjeta que paso por la banda magnetica, pero no lo lee.

Queria que me orienten acerca del uso de estas funciones y si he omitido algun paso en la lectura de la banda magnetica.

Si tienen información adicional o pseudocódigo del procedimiento para leer este tipo de dispositivos les agradeceria que me lo hagan saber

Gracias.

SoloCodigo

Autor Tema: Lector De Banda Magnética Msr (Leído 1455 veces)

Patrickgn

Lector De Banda Magnética Msr