Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
CODE PROJECT For Those Who Code
  • Home
  • Articles
  • FAQ
Community
  1. Home
  2. General Programming
  3. Visual Basic
  4. First Call to Remote Object Does Not Respond on Two Machines

First Call to Remote Object Does Not Respond on Two Machines

Scheduled Pinned Locked Moved Visual Basic
csharpsysadmincryptographydebuggingjson
2 Posts 2 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • T Offline
    T Offline
    TheFarsider
    wrote on last edited by
    #1

    I have encountered a very strange issue with .Net 2 Framework and my remoted object. I have the code below that runs on a service. It first publishes the remote object and then if it was succesfull trys to connect to it. Other clients connect afterwards but that beyond scope of issue Private Sub LoadRemotingClient() RMS.Debugger.AddMethodDebug() ' We Load The remoting Client within the server as this is faster overall Dim objRemotingKaveManager As AVManager.IAvManager Dim clientProvider As BinaryClientFormatterSinkProvider = New BinaryClientFormatterSinkProvider() Dim serverProvider As BinaryServerFormatterSinkProvider = New BinaryServerFormatterSinkProvider() Dim props As IDictionary = New Hashtable() Try serverProvider.TypeFilterLevel = System.Runtime.Serialization.Formatters.TypeFilterLevel.Full props("port") = 0 props("typeFilterLevel") = System.Runtime.Serialization.Formatters.TypeFilterLevel.Full props("name") = System.Guid.NewGuid().ToString() props("timeout") = 30 ClientChannel = New TcpChannel(props, clientProvider, serverProvider) clientProvider = Nothing serverProvider = Nothing props = Nothing RMS.Debugger.AddMessageDebug("Register Channel", RMS.Enumerators.Debugtype.Information) ChannelServices.RegisterChannel(ClientChannel, True) RMS.Debugger.AddMessageDebug("Start Call Activator", RMS.Enumerators.Debugtype.Information) Dim RemotingServer As String = "tcp://" & RemotingServerName & ":" & RemotingPort.ToString & "/" & RemotingURL objRemotingKaveManager = CType(Activator.GetObject(GetType(AVManager.AVManager), RemotingServer), IAvManager) RMS.Debugger.AddMessageDebug("Done Call Activator", RMS.Enumerators.Debugtype.Information) RMS.Debugger.AddMessageDebug("Start Call InterfaceRef", RMS.Enumerators.Debugtype.Information) Try Dim InterfaceRef As String = objRemotingKaveManager.WhatistheObjectHash RMS.Debugger.AddMessageDebug("Remote Object Hash = " & InterfaceRef, RMS.Enumerators.Debugtype.ExtraInfo) Catch ex As Exception RMS.Debugger.AddMethodDebug(ex.Message, RMS.Enumerators.Debugtype.Critical) End Try RMS.Debugger.AddMessageDebug("Done Call InterfaceRef", RMS.Enumerators.Debugtype.Inf

    B 1 Reply Last reply
    0
    • T TheFarsider

      I have encountered a very strange issue with .Net 2 Framework and my remoted object. I have the code below that runs on a service. It first publishes the remote object and then if it was succesfull trys to connect to it. Other clients connect afterwards but that beyond scope of issue Private Sub LoadRemotingClient() RMS.Debugger.AddMethodDebug() ' We Load The remoting Client within the server as this is faster overall Dim objRemotingKaveManager As AVManager.IAvManager Dim clientProvider As BinaryClientFormatterSinkProvider = New BinaryClientFormatterSinkProvider() Dim serverProvider As BinaryServerFormatterSinkProvider = New BinaryServerFormatterSinkProvider() Dim props As IDictionary = New Hashtable() Try serverProvider.TypeFilterLevel = System.Runtime.Serialization.Formatters.TypeFilterLevel.Full props("port") = 0 props("typeFilterLevel") = System.Runtime.Serialization.Formatters.TypeFilterLevel.Full props("name") = System.Guid.NewGuid().ToString() props("timeout") = 30 ClientChannel = New TcpChannel(props, clientProvider, serverProvider) clientProvider = Nothing serverProvider = Nothing props = Nothing RMS.Debugger.AddMessageDebug("Register Channel", RMS.Enumerators.Debugtype.Information) ChannelServices.RegisterChannel(ClientChannel, True) RMS.Debugger.AddMessageDebug("Start Call Activator", RMS.Enumerators.Debugtype.Information) Dim RemotingServer As String = "tcp://" & RemotingServerName & ":" & RemotingPort.ToString & "/" & RemotingURL objRemotingKaveManager = CType(Activator.GetObject(GetType(AVManager.AVManager), RemotingServer), IAvManager) RMS.Debugger.AddMessageDebug("Done Call Activator", RMS.Enumerators.Debugtype.Information) RMS.Debugger.AddMessageDebug("Start Call InterfaceRef", RMS.Enumerators.Debugtype.Information) Try Dim InterfaceRef As String = objRemotingKaveManager.WhatistheObjectHash RMS.Debugger.AddMessageDebug("Remote Object Hash = " & InterfaceRef, RMS.Enumerators.Debugtype.ExtraInfo) Catch ex As Exception RMS.Debugger.AddMethodDebug(ex.Message, RMS.Enumerators.Debugtype.Critical) End Try RMS.Debugger.AddMessageDebug("Done Call InterfaceRef", RMS.Enumerators.Debugtype.Inf

      B Offline
      B Offline
      BDEz Member 3919223
      wrote on last edited by
      #2

      Are you able to download / install / operate the AVManager software on these two PC's that are acting up?

      1 Reply Last reply
      0
      Reply
      • Reply as topic
      Log in to reply
      • Oldest to Newest
      • Newest to Oldest
      • Most Votes


      • Login

      • Don't have an account? Register

      • Login or register to search.
      • First post
        Last post
      0
      • Categories
      • Recent
      • Tags
      • Popular
      • World
      • Users
      • Groups