[RESOLVED] How to retrieve value from RFID card.

[nUflAvOrS]

Hi all,

I'm using RFID Reader to read the data from RFID Card.

The code using as below

Dim WithEvents serialPort As New IO.Ports.SerialPort
    Public Event onComm(ByVal sender As Object, ByVal e As System.EventArgs)
    Private psInput As String
 
 
 Private Sub DataReceived( _
   ByVal sender As Object, _
   ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
   Handles serialPort.DataReceived
        Dim strv As String
        strv = serialPort.ReadExisting
        If strv <> "" Then
            psInput = strv
            Session("InputRFID") = psInput
           
        End If
    End Sub
 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        If Me.IsPostBack = False Then
            With serialPort
                .PortName = "COM" & "4"
                .BaudRate = 9600
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                .ReceivedBytesThreshold = 11
                Try
                    If .IsOpen = False Then .Open()
                Catch ex As Exception
 
                End Try
 
 
            End With
        End If
 
    End Sub

Now My Problem is when the card was scanned, It will firing DataReceived event. I successfully get the data and try to display data on a textbox.

The page do not postback after DataReceived event so the textbox cannot display.

How do I accomplish it ?

Thanks in advance

[nUflAvOrS]

Public Shared Sub RegisterClientScriptForRFIDObject(ByVal page As Page)
        
 
        Dim csInitRFID As [String] = "InitRFID"
        Dim csWaitRFIDEvent As [String] = "WaitRFIDEvent"
 
        Dim cstype As Type = page.[GetType]()
        Dim cs As ClientScriptManager = page.ClientScript
        Dim sb As System.Text.StringBuilder = Nothing
 
        If Not cs.IsStartupScriptRegistered(cstype, csInitRFID) Then
            sb = New System.Text.StringBuilder()
            sb.AppendLine("var loaded;")
            sb.AppendLine("var rf40 = new ActiveXObject('IDLinkLibrary.CardReader');")
            sb.AppendLine("document.body.onload = InitPort;")
            sb.AppendLine("document.body.onunload = ClosePort;")
            sb.AppendLine("function ClosePort()")
            sb.AppendLine("{")
            sb.AppendLine(" if (rf40 != null && loaded) rf40.ClosePort();")
            sb.AppendLine("}")
            sb.AppendLine("function InitPort()")
            sb.AppendLine("{")
            sb.AppendLine(" loaded = false;")
            sb.AppendLine(" if (rf40 == null) rf40 = new ActiveXObject('IDLinkLibrary.CardReader');")
            sb.AppendLine(" port = rf40.GetCommPort();")
            sb.AppendLine(" if (port.indexOf('Err') > -1)")
            sb.AppendLine(" {")
            sb.AppendLine(" port = window.prompt('Please fill in serial port for RFID Reader:', '');")
            sb.AppendLine(" if (port == null) port = '';")
            sb.AppendLine(" }")
            sb.AppendLine(" if (rf40.OpenPort(port))")
            sb.AppendLine(" {")
            sb.AppendLine(" loaded = true;")
            sb.AppendLine(" }")
            sb.AppendLine("}")
            cs.RegisterStartupScript(cstype, csInitRFID, sb.ToString(), True)
        End If
        If Not cs.IsStartupScriptRegistered(cstype, csWaitRFIDEvent) Then
            sb = New System.Text.StringBuilder()
            sb.AppendLine("<script type='text/jscript' language='jscript'>")
            sb.AppendLine(" function rf40::OnReadCard(cardSN)")
            sb.AppendLine(" {")
            sb.AppendLine(" if (loaded)")
            sb.AppendLine(" {")
            sb.AppendLine(" __doPostBack('__Page', cardSN);")
            sb.AppendLine(" }")
            sb.AppendLine(" }")
            sb.AppendLine(" function rf40::OnReadError(errorMessage)")
            sb.AppendLine(" {")
            sb.AppendLine(" if (loaded)")
            sb.AppendLine(" {")
            sb.AppendLine(" alert('Please click OK then scan the card again.');")
            sb.AppendLine(" }")
            sb.AppendLine(" }")
            sb.AppendLine("</script>")
            cs.RegisterStartupScript(cstype, csWaitRFIDEvent, sb.ToString(), False)
        End If
    End Sub
 
 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        RegisterClientScriptForRFIDObject(Me)
        If Me.IsPostBack = true Then
            Me.txtRName.Text = Request("__EVENTARGUMENT")
        End If
 
    End Sub

Problem solved by using source code above
Thanks for reading.