Reply to thread

Message

<blockquote data-quote="Scrounger" data-source="post: 1034032" data-attributes="member: 87610">Hi,in the last days i tried to create a TvServer remote service to send commands from Client to TvServer using the GlobalServiceProvider. That works all well.Here is the code:libary classes (used with Client and Server plugin)[collapse][CODE]Imports TVMLib.MediaPortal.TvDatabaseNamespace RemoteControl&nbsp; &nbsp; Public Interface ITVMControl&nbsp; &nbsp; &nbsp; &nbsp; Sub writeToServerLog(ByVal msg As String, ByVal ParamArray arg As Object())&nbsp; &nbsp; &nbsp; &nbsp; Sub StartImport()&nbsp; &nbsp; &nbsp; &nbsp; Function SearchLocalImages() As String&nbsp; &nbsp; End InterfaceEnd Namespace[/CODE][CODE]Imports TVMLib.logImports TVMLib.SettingsImports TVMLib.MediaPortal.TvServerNamespace RemoteControl&nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; ''' Class which holds the connection with powerscheduler in the tvengine&nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; Public Class TVMControl#Region &quot;Variables&quot;&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; ''' IPowerController singleton&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; Private Shared _TVMController As ITVMControl&nbsp; &nbsp; &nbsp; &nbsp; Private Shared _hostName As String = &quot;localhost&quot;#End Region#Region &quot;Public Properties&quot;&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; ''' Gets or sets the name the hostname of the master tv-server.&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;value&gt;The name of the host.&lt;/value&gt;&nbsp; &nbsp; &nbsp; &nbsp; Public Shared Property HostName() As String&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return _hostName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Get&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set(ByVal value As String)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _hostName &lt;&gt; value Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _TVMController = Nothing&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _hostName = value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _hostName = &quot;localhost&quot; Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Instance.writeToServerLog(&quot;Registered TVM Client: localhost&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim _ClientName As String = System.Net.Dns.GetHostName()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim _ClientIP As String = System.Net.Dns.GetHostByName(_ClientName).AddressList(0).ToString()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Instance.writeToServerLog(&quot;Registered TVM Client: {0} ({1})&quot;, _ClientName, _ClientIP)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Set&nbsp; &nbsp; &nbsp; &nbsp; End Property&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; ''' Returns the one and only instance of the IPowerController (PowerScheduler)&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; Public Shared ReadOnly Property Instance() As ITVMControl&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _TVMController IsNot Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return _TVMController&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _TVMController = DirectCast(Activator.GetObject(GetType(ITVMControl), [String].Format(&quot;http://{0}:31457/TVMRemoteControl&quot;, _hostName)), ITVMControl)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyLog.Error(ex.Message)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return _TVMController&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Catch generatedExceptionName As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return _TVMController&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Get&nbsp; &nbsp; &nbsp; &nbsp; End Property&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; ''' Is the RemotePowerControl client connected to the server?&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; Public Shared ReadOnly Property Isconnected() As Boolean&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If _TVMController Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return myTvServer.isConnected&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Catch generatedExceptionName As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Get&nbsp; &nbsp; &nbsp; &nbsp; End Property#End Region#Region &quot;Public methods&quot;&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; ''' Reinitializes the IPowercontroller singleton&nbsp; &nbsp; &nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; &nbsp; &nbsp; Public Shared Sub Clear()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _TVMController = Nothing&nbsp; &nbsp; &nbsp; &nbsp; End Sub#End Region&nbsp; &nbsp; End ClassEnd Namespace[/CODE][/collapse]server class to register the service on TvServer (Server plugin):[collapse][CODE]Imports System.CollectionsImports System.Collections.GenericImports System.Collections.SpecializedImports System.DiagnosticsImports System.Runtime.CompilerServicesImports System.Runtime.RemotingImports System.Runtime.Remoting.ChannelsImports System.Runtime.Remoting.Channels.HttpImports System.ThreadingImports TvControlImports TvDatabaseImports TvLibrary.InterfacesImports TvEngine.InterfacesImports TVMLib.logImports TVMLibImports TVMLib.MediaPortal.TvDatabaseImports TVMLib.RemoteControlImports TVMLib.SettingsImports TVMServer.TvEngine.TVMServerSetupPublic Class myRemoteControl&nbsp; &nbsp; Inherits MarshalByRefObject&nbsp; &nbsp; Implements ITVMControl#Region &quot;Variables&quot;&nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; ''' Reference to tvservice's TVController&nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; Private _controller As IController&nbsp; &nbsp; Private _remotingStarted As Boolean = False&nbsp; &nbsp; Private _TVMEPGUpdateThread As Thread#End Region#Region &quot;Constructor&quot;&nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; ''' Creates a new PowerScheduler plugin and performs the one-time initialization&nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; Public Sub New()&nbsp; &nbsp; &nbsp; &nbsp; ' Add ourselves to the GlobalServiceProvider&nbsp; &nbsp; &nbsp; &nbsp; If GlobalServiceProvider.Instance.IsRegistered(Of ITVMControl)() Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GlobalServiceProvider.Instance.Remove(Of ITVMControl)()&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; GlobalServiceProvider.Instance.Add(Of ITVMControl)(Me)&nbsp; &nbsp; &nbsp; &nbsp; MyLog.Info(String.Empty)&nbsp; &nbsp; &nbsp; &nbsp; MyLog.Info(&quot;-------------Remote Control---------------------&quot;)&nbsp; &nbsp; &nbsp; &nbsp; MyLog.Info(&quot;Registered TVM service to GlobalServiceProvider&quot;)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Protected Overrides Sub Finalize()&nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If GlobalServiceProvider.Instance.IsRegistered(Of ITVMControl)() Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GlobalServiceProvider.Instance.Remove(Of ITVMControl)()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyLog.Debug(&quot;UnRegistered TVM service to GlobalServiceProvider&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Finally&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyBase.Finalize()&nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; End Sub#End Region#Region &quot;Start/Stop methods&quot;&nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; ''' Called by the PowerSchedulerPlugin to start the PowerScheduler&nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; ''' &lt;param name=&quot;controller&quot;&gt;TVController from the tvservice&lt;/param&gt;&nbsp; &nbsp; &lt;CLSCompliant(False)&gt; _&nbsp; &nbsp; Public Sub Start(ByVal controller As IController)&nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim threadname As String = Thread.CurrentThread.Name&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If String.IsNullOrEmpty(threadname) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Thread.CurrentThread.Name = &quot;TVMServer&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Save controller&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _controller = controller&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Configure remoting if not already done&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; StartRemoting()&nbsp; &nbsp; &nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyLog.[Error](&quot;myRemoteControl: Error in Start(): {0}&quot;, ex.Message)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Throw&nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; End Sub&nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; ''' Called by the PowerSchedulerPlugin to stop the PowerScheduler&nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; Public Sub [Stop]()&nbsp; &nbsp; &nbsp; &nbsp; ' Stop the global timer responsible for standby checking and refreshing settings&nbsp; &nbsp; &nbsp; &nbsp; If Not _TVMEPGUpdateThread Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _TVMEPGUpdateThread.Abort()&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; MyLog.Info(&quot;myRemoteControl: TVM Stopped&quot;)&nbsp; &nbsp; End Sub#Region &quot;MarshalByRefObject overrides&quot;&nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; ''' Make sure SAO never expires&nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; ''' &lt;returns&gt;&lt;/returns&gt;&nbsp; &nbsp; Public Overrides Function InitializeLifetimeService() As Object&nbsp; &nbsp; &nbsp; &nbsp; Return Nothing&nbsp; &nbsp; End Function#End Region#End Region#Region &quot;Remoting&quot;&nbsp; &nbsp; ''' &lt;summary&gt;&nbsp; &nbsp; ''' Configure remoting for power control from MP&nbsp; &nbsp; ''' &lt;/summary&gt;&nbsp; &nbsp; Private Sub StartRemoting()&nbsp; &nbsp; &nbsp; &nbsp; If _remotingStarted Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim channelProperties As New ListDictionary()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelProperties.Add(&quot;port&quot;, 31457)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelProperties.Add(&quot;exclusiveAddressUse&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim channel As New HttpChannel(channelProperties, New SoapClientFormatterSinkProvider(), New SoapServerFormatterSinkProvider())&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ChannelServices.RegisterChannel(channel, False)&nbsp; &nbsp; &nbsp; &nbsp; Catch generatedExceptionName As RemotingException&nbsp; &nbsp; &nbsp; &nbsp; Catch generatedExceptionName As System.Net.Sockets.SocketException&nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; &nbsp; &nbsp; ' RemotingConfiguration.RegisterWellKnownServiceType(typeof(PowerScheduler), &quot;PowerControl&quot;, WellKnownObjectMode.Singleton);&nbsp; &nbsp; &nbsp; &nbsp; Dim objref As ObjRef = RemotingServices.Marshal(Me, &quot;TVMRemoteControl&quot;)&nbsp; &nbsp; &nbsp; &nbsp; MyLog.Info(&quot;Registered TVM as remoting service&quot;)&nbsp; &nbsp; &nbsp; &nbsp; MyLog.Info(&quot;-------------------------------------------------------&quot;)&nbsp; &nbsp; &nbsp; &nbsp; MyLog.Info(String.Empty)&nbsp; &nbsp; &nbsp; &nbsp; _remotingStarted = True&nbsp; &nbsp; End Sub#End Region#Region &quot;Remote functions&quot;&nbsp; &nbsp; Public Sub StartImport() Implements TVMLib.RemoteControl.ITVMControl.StartImport&nbsp; &nbsp; &nbsp; &nbsp; _TVMEPGUpdateThread = New Thread(AddressOf enrichEPG.SavedSettings.start)&nbsp; &nbsp; &nbsp; &nbsp; _TVMEPGUpdateThread.Start()&nbsp; &nbsp; &nbsp; &nbsp; _TVMEPGUpdateThread.Join()&nbsp; &nbsp; End Sub&nbsp; &nbsp; Public Function SearchLocalImages() As String Implements TVMLib.RemoteControl.ITVMControl.SearchLocalImages&nbsp; &nbsp; &nbsp; &nbsp; If _TVMEPGUpdateThread Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _TVMEPGUpdateThread = New Thread(AddressOf enrichEPG.SearchLocalImages.start)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _TVMEPGUpdateThread.Start()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return &quot;started&quot;&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Not _TVMEPGUpdateThread.IsAlive Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _TVMEPGUpdateThread = New Thread(AddressOf enrichEPG.SearchLocalImages.start)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _TVMEPGUpdateThread.Start()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return &quot;started&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return &quot;still running&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End Function&nbsp; &nbsp; Private Sub start_EnrichEPG(ByVal mode As enrichEPG)&nbsp; &nbsp; &nbsp; &nbsp; 'If IO.File.Exists(TB_TVMPath.Text &amp; &quot;\EPGupdate.exe&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; ProgressBar.Style = ProgressBarStyle.Marquee&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; TVMLib.TVM.ExternalImportStatus.clear()&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; If Not TVMEPGUpdateThread.IsAlive Then&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TVMEPGUpdateThread = New Thread(AddressOf mode.start)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TVMEPGUpdateThread.Start()&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;Import still running !&quot;, MsgBoxStyle.Information)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; TVMEPGUpdateThread = New Thread(AddressOf mode.start)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; TVMEPGUpdateThread.Start()&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; End Try&nbsp; &nbsp; &nbsp; &nbsp; 'Else&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; MsgBox(&quot;TVM EPGupdate.exe not found!&quot; &amp; vbNewLine &amp; &quot;Check the path: &quot; &amp; mySettings.TVMPath, MsgBoxStyle.Critical, &quot;Error&quot;)&nbsp; &nbsp; &nbsp; &nbsp; 'End If&nbsp; &nbsp; End Sub#End Region&nbsp; &nbsp; Public Sub writeToServerLog(ByVal msg As String, ByVal ParamArray arg() As Object) Implements TVMLib.RemoteControl.ITVMControl.writeToServerLog&nbsp; &nbsp; &nbsp; &nbsp; MyLog.Info(msg, arg)&nbsp; &nbsp; End SubEnd Class[/CODE][/collapse]Send command from client to TvServer:[CODE]TvMControl.HostName = TvDatabase.Server.ListAll.ToList.Find(Function(x) x.IsMaster).HostNameTvMControl.Instance.writeToServerLog(&quot;send message to TvServer log file&quot;)[/CODE]Now my question. I would like to check form client side, if the remote service is registered on TvServer. This is nessaccary because i would like to send some remote commands to TvServer on MP Client startup.Hope any can give me the decisive hint?</blockquote>

[QUOTE="Scrounger, post: 1034032, member: 87610"] Hi, in the last days i tried to create a TvServer remote service to send commands from Client to TvServer using the GlobalServiceProvider. That works all well. Here is the code: libary classes (used with Client and Server plugin) [collapse] [CODE]Imports TVMLib.MediaPortal.TvDatabase Namespace RemoteControl Public Interface ITVMControl Sub writeToServerLog(ByVal msg As String, ByVal ParamArray arg As Object()) Sub StartImport() Function SearchLocalImages() As String End Interface End Namespace[/CODE] [CODE]Imports TVMLib.log Imports TVMLib.Settings Imports TVMLib.MediaPortal.TvServer Namespace RemoteControl ''' <summary> ''' Class which holds the connection with powerscheduler in the tvengine ''' </summary> Public Class TVMControl #Region "Variables" ''' <summary> ''' IPowerController singleton ''' </summary> Private Shared _TVMController As ITVMControl Private Shared _hostName As String = "localhost" #End Region #Region "Public Properties" ''' <summary> ''' Gets or sets the name the hostname of the master tv-server. ''' </summary> ''' <value>The name of the host.</value> Public Shared Property HostName() As String Get Return _hostName End Get Set(ByVal value As String) If _hostName <> value Then _TVMController = Nothing _hostName = value If _hostName = "localhost" Then Instance.writeToServerLog("Registered TVM Client: localhost") Else Dim _ClientName As String = System.Net.Dns.GetHostName() Dim _ClientIP As String = System.Net.Dns.GetHostByName(_ClientName).AddressList(0).ToString() Instance.writeToServerLog("Registered TVM Client: {0} ({1})", _ClientName, _ClientIP) End If End If End Set End Property ''' <summary> ''' Returns the one and only instance of the IPowerController (PowerScheduler) ''' </summary> Public Shared ReadOnly Property Instance() As ITVMControl Get Try If _TVMController IsNot Nothing Then Return _TVMController End If Try _TVMController = DirectCast(Activator.GetObject(GetType(ITVMControl), [String].Format("http://{0}:31457/TVMRemoteControl", _hostName)), ITVMControl) Catch ex As Exception MyLog.Error(ex.Message) End Try Return _TVMController Catch generatedExceptionName As Exception Return _TVMController End Try End Get End Property ''' <summary> ''' Is the RemotePowerControl client connected to the server? ''' </summary> Public Shared ReadOnly Property Isconnected() As Boolean Get Try If _TVMController Is Nothing Then Return False End If Return myTvServer.isConnected Catch generatedExceptionName As Exception Return False End Try End Get End Property #End Region #Region "Public methods" ''' <summary> ''' Reinitializes the IPowercontroller singleton ''' </summary> Public Shared Sub Clear() _TVMController = Nothing End Sub #End Region End Class End Namespace[/CODE] [/collapse] server class to register the service on TvServer (Server plugin): [collapse] [CODE]Imports System.Collections Imports System.Collections.Generic Imports System.Collections.Specialized Imports System.Diagnostics Imports System.Runtime.CompilerServices Imports System.Runtime.Remoting Imports System.Runtime.Remoting.Channels Imports System.Runtime.Remoting.Channels.Http Imports System.Threading Imports TvControl Imports TvDatabase Imports TvLibrary.Interfaces Imports TvEngine.Interfaces Imports TVMLib.log Imports TVMLib Imports TVMLib.MediaPortal.TvDatabase Imports TVMLib.RemoteControl Imports TVMLib.Settings Imports TVMServer.TvEngine.TVMServerSetup Public Class myRemoteControl Inherits MarshalByRefObject Implements ITVMControl #Region "Variables" ''' <summary> ''' Reference to tvservice's TVController ''' </summary> Private _controller As IController Private _remotingStarted As Boolean = False Private _TVMEPGUpdateThread As Thread #End Region #Region "Constructor" ''' <summary> ''' Creates a new PowerScheduler plugin and performs the one-time initialization ''' </summary> Public Sub New() ' Add ourselves to the GlobalServiceProvider If GlobalServiceProvider.Instance.IsRegistered(Of ITVMControl)() Then GlobalServiceProvider.Instance.Remove(Of ITVMControl)() End If GlobalServiceProvider.Instance.Add(Of ITVMControl)(Me) MyLog.Info(String.Empty) MyLog.Info("-------------Remote Control---------------------") MyLog.Info("Registered TVM service to GlobalServiceProvider") End Sub Protected Overrides Sub Finalize() Try If GlobalServiceProvider.Instance.IsRegistered(Of ITVMControl)() Then GlobalServiceProvider.Instance.Remove(Of ITVMControl)() MyLog.Debug("UnRegistered TVM service to GlobalServiceProvider") End If Finally MyBase.Finalize() End Try End Sub #End Region #Region "Start/Stop methods" ''' <summary> ''' Called by the PowerSchedulerPlugin to start the PowerScheduler ''' </summary> ''' <param name="controller">TVController from the tvservice</param> <CLSCompliant(False)> _ Public Sub Start(ByVal controller As IController) Try Dim threadname As String = Thread.CurrentThread.Name If String.IsNullOrEmpty(threadname) Then Thread.CurrentThread.Name = "TVMServer" End If ' Save controller _controller = controller ' Configure remoting if not already done StartRemoting() Catch ex As Exception MyLog.[Error]("myRemoteControl: Error in Start(): {0}", ex.Message) Throw End Try End Sub ''' <summary> ''' Called by the PowerSchedulerPlugin to stop the PowerScheduler ''' </summary> Public Sub [Stop]() ' Stop the global timer responsible for standby checking and refreshing settings If Not _TVMEPGUpdateThread Is Nothing Then _TVMEPGUpdateThread.Abort() End If MyLog.Info("myRemoteControl: TVM Stopped") End Sub #Region "MarshalByRefObject overrides" ''' <summary> ''' Make sure SAO never expires ''' </summary> ''' <returns></returns> Public Overrides Function InitializeLifetimeService() As Object Return Nothing End Function #End Region #End Region #Region "Remoting" ''' <summary> ''' Configure remoting for power control from MP ''' </summary> Private Sub StartRemoting() If _remotingStarted Then Return End If Try Dim channelProperties As New ListDictionary() channelProperties.Add("port", 31457) channelProperties.Add("exclusiveAddressUse", False) Dim channel As New HttpChannel(channelProperties, New SoapClientFormatterSinkProvider(), New SoapServerFormatterSinkProvider()) ChannelServices.RegisterChannel(channel, False) Catch generatedExceptionName As RemotingException Catch generatedExceptionName As System.Net.Sockets.SocketException End Try ' RemotingConfiguration.RegisterWellKnownServiceType(typeof(PowerScheduler), "PowerControl", WellKnownObjectMode.Singleton); Dim objref As ObjRef = RemotingServices.Marshal(Me, "TVMRemoteControl") MyLog.Info("Registered TVM as remoting service") MyLog.Info("-------------------------------------------------------") MyLog.Info(String.Empty) _remotingStarted = True End Sub #End Region #Region "Remote functions" Public Sub StartImport() Implements TVMLib.RemoteControl.ITVMControl.StartImport _TVMEPGUpdateThread = New Thread(AddressOf enrichEPG.SavedSettings.start) _TVMEPGUpdateThread.Start() _TVMEPGUpdateThread.Join() End Sub Public Function SearchLocalImages() As String Implements TVMLib.RemoteControl.ITVMControl.SearchLocalImages If _TVMEPGUpdateThread Is Nothing Then _TVMEPGUpdateThread = New Thread(AddressOf enrichEPG.SearchLocalImages.start) _TVMEPGUpdateThread.Start() Return "started" Else If Not _TVMEPGUpdateThread.IsAlive Then _TVMEPGUpdateThread = New Thread(AddressOf enrichEPG.SearchLocalImages.start) _TVMEPGUpdateThread.Start() Return "started" Else Return "still running" End If End If End Function Private Sub start_EnrichEPG(ByVal mode As enrichEPG) 'If IO.File.Exists(TB_TVMPath.Text & "\EPGupdate.exe") Then ' ProgressBar.Style = ProgressBarStyle.Marquee ' TVMLib.TVM.ExternalImportStatus.clear() ' Try ' If Not TVMEPGUpdateThread.IsAlive Then ' TVMEPGUpdateThread = New Thread(AddressOf mode.start) ' TVMEPGUpdateThread.Start() ' Else ' MsgBox("Import still running !", MsgBoxStyle.Information) ' End If ' Catch ex As Exception ' TVMEPGUpdateThread = New Thread(AddressOf mode.start) ' TVMEPGUpdateThread.Start() ' End Try 'Else ' MsgBox("TVM EPGupdate.exe not found!" & vbNewLine & "Check the path: " & mySettings.TVMPath, MsgBoxStyle.Critical, "Error") 'End If End Sub #End Region Public Sub writeToServerLog(ByVal msg As String, ByVal ParamArray arg() As Object) Implements TVMLib.RemoteControl.ITVMControl.writeToServerLog MyLog.Info(msg, arg) End Sub End Class[/CODE] [/collapse] Send command from client to TvServer: [CODE]TvMControl.HostName = TvDatabase.Server.ListAll.ToList.Find(Function(x) x.IsMaster).HostName TvMControl.Instance.writeToServerLog("send message to TvServer log file")[/CODE] Now my question. I would like to check form client side, if the remote service is registered on TvServer. This is nessaccary because i would like to send some remote commands to TvServer on MP Client startup. Hope any can give me the decisive hint? [/QUOTE]

Verification