test

Php code posted by test
created at 26 Aug 13:54, updated at 26 Aug 13:55

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
  Try
    
    Message "Starting eID module...", CurrentMethodName, False, System.LogLevelInformation, True
    
    'Dim numReaders As Integer = drEID.GetReaderCount()
    '
    'If numReaders = 0 Then
    'drException.Throw "No eID Readers detected"
    'End If
    '
    'For i As Integer = 0 To numReaders - 1
    'Dim eid As New drEID(i, AddressOf eID_EventHandler, AddressOf eID_DataHandler)
    'App.EID.Append eid
    Dim eid As New drEID(AddressOf eID_EventHandler, AddressOf eID_DataHandler)
    App.EID = eid
    App.EID.Run
    Self.Message "eID: Running", CurrentMethodName, false, System.LogLevelInformation, True
    'Next i
    
    ledEiDStatus.State = Integer(drLed.StateEnum.Idle)
    
    chkUseEIDReaders.Value = Integer(CheckBox.CheckedStates.Checked)
    
    Message "", CurrentMethodName
    
  Catch ex as RuntimeException
    
    ListBoxLogger1.AddMessage Util.GetErrorDescription(ex), System.LogLevelError
    WindowError.ShowError ex, CurrentMethodName
    
    EIDStop
    
  End Try
1.02 KB in 3 ms with coderay