By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,589 Members | 1,209 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,589 IT Pros & Developers. It's quick & easy.

Remoting and Windows Services

P: n/a
Ok, for the life of me, I just don't understand what's going on. I want to
use remoting to send messages from a windows service to a windows form app,
but I just can't get it to work. So, here's what I have so far.

I created a small, remotable object that inherits from MarshalByRefObject.
It has a public subroutine that raises an event with a message attached:

Public Delegate Sub TestServiceEventHandler(ByVal Message As String)

Public Class TestServiceMessage
Inherits MarshalByRefObject

Public Event TestServiceMessageEvent As TestServiceEventHandler

Public Overrides Function InitializeLifetimeService() As Object
Return Nothing
End Function

Public Sub SendMessage(ByVal Message As String)
DoMessageEvent(Message)
End Sub

Private Sub DoMessageEvent(ByVal Message As String)
RaiseEvent TestServiceMessageEvent(Message)
End Sub

End Class

I have a Windows Service that hosts the remotable object. The windows
service also has a timer on it, that when fired, creates a new instance of
the remotable object, and calls the send method:

Imports System.Runtime.Remoting
Imports System.Reflection
Imports Test_Service_Library
Imports System.IO

Public Class TestService

Private WithEvents m_Timer As New System.Timers.Timer(10000)

Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.
Dim RuntimePath As String =
Path.GetDirectoryName(Assembly.GetExecutingAssembl y.Location)
RemotingConfiguration.Configure(Path.Combine(Runti mePath, "Test
Service.exe.config"), False)
m_Timer.Enabled = True
End Sub

Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your
service.
m_Timer.Enabled = False
End Sub

Private Sub m_Timer_Elapsed(ByVal sender As Object, ByVal e As
System.Timers.ElapsedEventArgs) Handles m_Timer.Elapsed
Dim tsMessage As New TestServiceMessage
tsMessage.SendMessage("Timer Ticked! - " & Now)
End Sub

End Class
Finally, I have a windows form application which acts as a remoting client.
When the form loads, it declares an instance of the remotable object, and
attaches an event handler on the object. Finally, when the event is raised,
it writes the message to a textbox on the form.

Imports Test_Service_Library
Imports System.Reflection
Imports System.IO
Imports System.Runtime.Remoting

Public Class Form1
Private WithEvents tsMessage As TestServiceMessage

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim RuntimePath As String =
Path.GetDirectoryName(Assembly.GetExecutingAssembl y.Location)
RemotingConfiguration.Configure(Path.Combine(Runti mePath, "Test
Service App.exe.config"), False)
End Sub

Private Sub tsMessage_TestServiceMessageEvent(ByVal Message As String)
Handles tsMessage.TestServiceMessageEvent
TextBox1.Text &= Message & vbNewLine
End Sub

End Class

The issue is that it doesn't work. I can debug the service once it's
installed, and I have verified that the timer works, and it creates an
instance of the remotable obect, which then raises the event. That seems to
be working fine. The problem is that the windows form application never
receives the event. What could be the possible problems??

Thanks for any help and suggestions.

-Jason

Sep 30 '06 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.