SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => ASP .NET => Mensaje iniciado por: Patrickgn en Viernes 16 de Diciembre de 2005, 17:20

Título: Lector De Banda Magnética Msr
Publicado por: 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

1.  
2. <script LANGUAGE="VBScript">
3.  
4. Sub window_onLoad()
5.         'MSR1.Open "NCRMSR.2"
6.         MSR1.Open "NCR5945.MSR"
7.         MSR1.Claim 0
8.         MSR1.DeviceEnabled = True
9.         MSR1.DataEventEnabled = True
10.         MSR1.DecodeData = True
11.         ClickSnd.FileName = "media/wav/BttnValid.wav"
12. end sub
13.  
14. Sub window_onUnload()
15.         MSR1.Close
16. end sub
17.  
18. dim MSRFunction
19. MSRFunction = "SwipeCard()"
20.  
21. Sub MSR1_DataEvent(Status)
22. alert("entro MSR1_DataEvent")
23.         MSR1.DataEventEnabled = TRUE
24.         window.setTimeout MSRFunction, 100, "VBSCRIPT"
25.         if ClickSnd.ReadyState = 4 then
26.            ClickSnd.Run
27.         end if
28. end sub
29.  
30. sub SetMSRFunction( fun )
31. alert("entro fun")
32.    MSRFunction = fun
33. end sub
34.  
35. sub RestoreMSRFunction
36. alert("entro Restore")
37.    MSRFunction = "SwipeCard()"
38. end sub
39.  
40. Sub SwipeCard()
41. alert("entro swipe")
42.    SwipeData = MSR1.Track2Data
43.    'SwipeData = Right( SwipeData, 6 )
44.    alert( SwipeData )
45. End Sub
46.     </SCRIPT>
47.  
48.  

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.