Nt service and timeSetEvent () API

[anonymous]

[Originally posted by Jordan]

Im working with a control that transforme a program into an NT SERVICE.ÿ Because its a service, all my code is in modules and class modules.ÿ This program is used to monitor a folder and each time a file is put into this folder, my program grab it.ÿ So for the main loop i've used the timeSetEvent() API.ÿ But when I start my service it popup and error that said : THE INSTRUCTION AT "0X660197F" REFERENCED MEMORY AT "0X6601907F". THE MEMORY COULD NOT BE "READ".

So I would like to know if someone would know how to correct this problem.

ÿ ÿ ÿ Thanx

[anonymous]

[Originally posted by Zip]

'Module 1
Private Const BUSINESS_NAME = "RealSoft"
Private Const MODULE_NAME = "modTimer"

Public Declare Function SetTimer Lib "user32" _
ÿ ÿ ÿ ÿ ÿ ÿ (ByVal hwnd As Long, _
ÿ ÿ ÿ ÿ ÿ ÿ ByVal nIDEvent As Long, _
ÿ ÿ ÿ ÿ ÿ ÿ ByVal uElapse As Long, _
ÿ ÿ ÿ ÿ ÿ ÿ ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" _
ÿ ÿ ÿ ÿ ÿ ÿ (ByVal hwnd As Long, _
ÿ ÿ ÿ ÿ ÿ ÿ ByVal nIDEvent As Long) As Long

Public mlngTimerID As Long
Public mobjTimer As clsTimer

Public Sub TimerProc(ByVal hwnd As Long, _
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ByVal uMsg As Long, _
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ByVal idEvent As Long, _
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ByVal dwTime As Long)
10ÿ ÿ On Error GoTo errHandler

20ÿ ÿ ÿ ÿ mobjTimer.TimerFired

30ÿ ÿ ÿ On Error GoTo 0
40ÿ ÿ ÿ Exit Sub

errHandler:
50ÿ ÿ ÿ ÿ 'ErrorHandler Err, BUSINESS_NAME, MODULE_NAME, "TimerProc", , False, Err.Description & " : Erl=" & Erl
ÿ ÿ
End Sub

'clsTimer
'=======================================================================================
' Descriptionÿ : This Class provides a com enabled timer
'
'=======================================================================================
Private Const BUSINESS_NAME = "RealSoft"
Private Const MODULE_NAME = "clsTimer"

Private mlngTimerInterval As Long
Private mblnEnabled As Boolean
Private mintIntervalCount As Integer
Private mintInterval As Integer
Private mbytHeartBeatInterval As Byte

Public Event OnTimer()
Public Event OnEnabledChanged(ByVal blnState As Boolean)
Public Event OnHeartBeat()

Public Property Get TimerID() As Long
ÿ ÿ TimerID = mlngTimerID
End Property

Public Property Let Enabled(ByVal blnValue As Boolean)
'==============================================================================
' Description:ÿ Simply Starts the Timer or Ends The Timer
'ÿ ÿ ÿ ÿ ÿ ÿ ÿ XOR :
'ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ 0 XOR 0 = 0
'ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ 0 XOR 1 = 1 'Changed
'ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ 1 XOR 0 = 1 'Changed
'ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ 1 XOR 1 = 0
'
' Parameters
'ÿ ÿ ÿ (In): True = Start Timer , False = Stop Timer
'
'==============================================================================
' Changesÿ :
'ÿ ÿ ÿ ÿ ÿ :
' Dateÿ ÿ ÿ :
' Byÿ ÿ ÿ ÿ :
'==============================================================================

On Error GoTo errHandler
ÿ ÿ 'If mlngTimerID <> 0 Then
ÿ ÿ 'ÿ ÿ Err.Raise 3000, "", "Timer Already Exists " & mlngTimerID
ÿ ÿ 'End If
ÿ ÿ If (blnValue Xor mblnEnabled) Then ' Check State has Changed
ÿ ÿ ÿ ÿ mblnEnabled = blnValue
ÿ ÿ ÿ ÿ If mblnEnabled = False Then
ÿ ÿ ÿ ÿ ÿ ÿ 'Kill The Timer
ÿ ÿ ÿ ÿ ÿ ÿ mlngTimerID = KillTimer(0, mlngTimerID)
ÿ ÿ ÿ ÿ Else
ÿ ÿ ÿ ÿ ÿ ÿ 'Start The Timer
ÿ ÿ ÿ ÿ ÿ ÿ mlngTimerID = SetTimer(0, 0, mlngTimerInterval, AddressOf TimerProc)
ÿ ÿ ÿ ÿ End If
ÿ ÿ ÿ ÿ RaiseEvent OnEnabledChanged(mblnEnabled)
ÿ ÿ End If

ÿ On Error GoTo 0
ÿ Exit Property

errHandler:
ÿ ÿ ErrorHandler Err, BUSINESS_NAME, MODULE_NAME, "Enabled", , , Err.Description & " : Erl=" & Erl
ÿ ÿ
End Property

Public Property Get Enabled() As Boolean
ÿ ÿ Enabled = mblnEnabled
End Property

Public Function getReportRefreshInterval() As Long
'==============================================================================
' Description:
'
' Parameters
'ÿ ÿ ÿ (In):
'ÿ ÿ ÿ (Out):
'
' Returnsÿ :
'
'==============================================================================
' Changesÿ :
'ÿ ÿ ÿ ÿ ÿ :
' Dateÿ ÿ ÿ :
' Byÿ ÿ ÿ ÿ :
'==============================================================================
On Error GoTo errHandler

ÿ ÿ getReportRefreshInterval = mlngTimerInterval * mintInterval

ÿ On Error GoTo 0
ÿ Exit Function

errHandler:
ÿ ÿ ErrorHandler Err, BUSINESS_NAME, MODULE_NAME, "getReportrefreshInterval", , , Err.Description & " : Erl=" & Erl
ÿ ÿ
End Function

Public Sub setReportRefreshInterval(ByVal bytHours As Byte, ByVal bytMinuets As Byte, ByVal bytSeconds As Byte)
ÿ ÿ ÿ '==============================================================================
ÿ ÿ ÿ ' Description: This routine allows the client to set the interval > 60000
ÿ ÿ ÿ '
ÿ ÿ ÿ ' Parameters
ÿ ÿ ÿ 'ÿ ÿ ÿ (In): Hours, Mins, Secs
ÿ ÿ ÿ '
ÿ ÿ ÿ '==============================================================================
ÿ ÿ ÿ ' Changesÿ :
ÿ ÿ ÿ 'ÿ ÿ ÿ ÿ ÿ :
ÿ ÿ ÿ ' Dateÿ ÿ ÿ :
ÿ ÿ ÿ ' Byÿ ÿ ÿ ÿ :
ÿ ÿ ÿ '==============================================================================
ÿ ÿ ÿ ÿ ÿ Dim lngInterval As Long
ÿ ÿ
10ÿ ÿ On Error GoTo errHandler

20ÿ ÿ ÿ ÿ lngInterval = (bytHours * 3600000) + _
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ (bytMinuets * 60000) + _
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ (bytSeconds * 1000&)

30ÿ ÿ ÿ ÿ If lngInterval > 60000 Then '60000 = 1 Min
40ÿ ÿ ÿ ÿ ÿ ÿ TimerInterval = 60000
50ÿ ÿ ÿ ÿ ÿ ÿ mintInterval = lngInterval \ 60000
60ÿ ÿ ÿ ÿ Else
70ÿ ÿ ÿ ÿ ÿ ÿ mintInterval = 1 'Ignore as it is less than 1 Min
80ÿ ÿ ÿ ÿ ÿ ÿ TimerInterval = CInt(lngInterval)
90ÿ ÿ ÿ ÿ End If
ÿ ÿ
ÿ ÿ
100ÿ ÿ ÿ On Error GoTo 0
110ÿ ÿ ÿ Exit Sub

errHandler:
120ÿ ÿ ÿ 'ErrorHandler Err, BUSINESS_NAME, MODULE_NAME, "ReportRefreshInterval", , True, Err.Description & " : Erl=" & Erl
ÿ ÿ
End Sub

Public Property Let TimerInterval(ByVal lngInterval As Long)
'==============================================================================
' Description:ÿ This property allows the client to set
'ÿ ÿ ÿ ÿ ÿ ÿ ÿ the timer interval directly; If the client sets this
'ÿ ÿ ÿ ÿ ÿ ÿ ÿ > 60000 then 60000 is used - 1 min
'
' Parameters
'ÿ ÿ ÿ (In):Interval in milliseconds
'
'==============================================================================
' Changesÿ :
'ÿ ÿ ÿ ÿ ÿ :
' Dateÿ ÿ ÿ :
' Byÿ ÿ ÿ ÿ :
'==============================================================================
On Error GoTo errHandler

ÿ ÿ Enabled = False ' The Timer Must Be Stopped
ÿ ÿ
ÿ ÿ If lngInterval > 60000 Then
ÿ ÿ ÿ ÿ lngInterval = 60000 'MaxAllowed For the Timer
ÿ ÿ End If
ÿ ÿ
ÿ ÿ mintInterval = 1
ÿ ÿ mlngTimerInterval = lngInterval

ÿ On Error GoTo 0
ÿ Exit Property

errHandler:
ÿ ÿ 'ErrorHandler Err, BUSINESS_NAME, MODULE_NAME, "TimerInterval", , , Err.Description & " : Erl=" & Erl
ÿ ÿ
End Property

Public Property Get TimerInterval() As Long
ÿ ÿ TimerInterval = mlngTimerInterval
End Property

Friend Sub TimerFired()
10ÿ ÿ On Error GoTo errHandler

20ÿ ÿ ÿ ÿ If ((DatePart("n", Time) Mod mbytHeartBeatInterval) = 0) Then
30ÿ ÿ ÿ ÿ ÿ ÿ RaiseEvent OnHeartBeat
40ÿ ÿ ÿ ÿ End If
ÿ ÿ
50ÿ ÿ ÿ ÿ If mblnEnabled Then
60ÿ ÿ ÿ ÿ ÿ ÿ Debug.Print mintIntervalCount, mintInterval
70ÿ ÿ ÿ ÿ ÿ ÿ If mintIntervalCount >= mintInterval Then
80ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ mintIntervalCount = 1 'Reset the count
90ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ RaiseEvent OnTimer
100ÿ ÿ ÿ ÿ ÿ End If
110ÿ ÿ ÿ ÿ ÿ mintIntervalCount = mintIntervalCount + 1
120ÿ ÿ ÿ End If

130ÿ ÿ ÿ On Error GoTo 0
140ÿ ÿ ÿ Exit Sub

errHandler:
150ÿ ÿ ÿ 'ErrorHandler Err, BUSINESS_NAME, MODULE_NAME, "TimerFired", , False, Err.Description & " : Erl=" & Erl
ÿ ÿ
End Sub

Private Sub Class_Initialize()
ÿ ÿ Set mobjTimer = Me
ÿ ÿ mlngTimerInterval = 1000
ÿ ÿ mintIntervalCount = 1
ÿ ÿ mbytHeartBeatInterval = 3
End Sub

Private Sub Class_Terminate()
ÿ ÿ Enabled = False
ÿ ÿ mlngTimerID = KillTimer(0, mlngTimerID) ' Ensuring the Timer Is Dead
End Sub
'Create these as a component and then use then in any non form based application .

Warning this code only works for singletons
and will cause problems where more than one timer is required