underlying connection was closed:unable to connect to remote server exception message

[beachbum714]

I have been receiving this exception for over a week with a .NET remoting app and can't find a solution anywhere that works. Below I'll paste my config files and the client code calling the remote method. I'd really appreciate some assistance. The Server code and files are on a remote server within our facility and have been told more than once there is no firewall between my workstation and it. So firewalls are out of the question as the source of the problem. I assume its somewhere in my config files but I've tried everything I've seen on the net.

I receive the Net.WebException: underlying connection was closed:unable to connect to remote server exception message.

Any thoughts?



--------------------------------------------------------------------------------


client config:



<?xml version="1.0" encoding="utf-8" ?>

<configuration>

<system.runtime.remoting>

<application>


<!-- <channels>

<channel ref="http" port="1234" />

<channel ref="http" port="1235" />

</channels> -->


<client url="http://agiledev2.sanmina-sci.com/DataExtractService">

<wellknown type="AgileExtractNegotiator.ITNSManager, AgileExtractNegotiator"

url="http://agiledev2.sanmina-sci.com:1234/DataExtractService/TNSManager.soap" />

<wellknown type="AgileExtractNegotiator.IDataExtractManager, AgileExtractNegotiator"

url="http://agiledev2.sanmina-sci.com:1234/DataExtractService/DataExtractManager.soap" />

</client>

<channels>

<channel ref="http" />

</channels>

</application>

// <customErrors mode="off"/>

</system.runtime.remoting>

</configuration>




--------------------------------------------------------------------------------


server config:



<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<system.runtime.remoting>
<application>
<channels>
<channel ref="http" port="1234"/>
</channels>
<lifetime leaseTimeout="20M"
renewOnCallTime="20M"
leaseManagerPollTime="3M" />
<service>
<WellKnown mode="SingleCall"
type="DataExtractServer.DataExtractManager, DataExtractServer"
objectUri="DataExtractManager.soap" />
<WellKnown mode="SingleCall"
type="DataExtractServer.TNSManager, DataExtractServer"
objectUri="TNSManager.soap" />
</service>
</application>
<customErrors mode="Off" />
</system.runtime.remoting>
</configuration>



--------------------------------------------------------------------------------


client code:

Dim app As Windows.Forms.Application

Dim rc As RemotingConfiguration

Dim strConfigFile As String = app.StartupPath.Trim & "\DataExtractLogin.exe.config"

rc.Configure(strConfigFile.Trim)

rc.CustomErrorsEnabled(False)

Dim rh As RemotingHelper = New RemotingHelper

Dim tnsm As ITNSManager = CType(rh.GetObject(GetType(ITNSManager)), ITNSManager)

Dim props As IDictionary = ChannelServices.GetChannelSinkProperties(tnsm)

props("username") = "*********"

props("password") = "********"

Dim TNS As TNSGeneral = New TNSGeneral

Try

TNS = tnsm.GetTNSInfo

Catch rEx As RemotingException

MessageBox.Show("Remoting Exception: " & rEx.Message.Trim, _

"Remoting Service Error", MessageBoxButtons.OK, MessageBoxIcon.Stop, _

MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)

Exit Sub

Catch argEx As ArgumentException

MessageBox.Show("Exception: " & argEx.Message.Trim & argEx.InnerException.Message)

Exit Sub

Catch aEx As ApplicationException

MessageBox.Show("Exception: " & aEx.Message.Trim & aEx.InnerException.Message)

Exit Sub

Catch nrEx As NullReferenceException

MessageBox.Show("Exception: " & nrEx.Message.Trim & nrEx.InnerException.Message)

Exit Sub

Catch nwEx As Net.WebException

MessageBox.Show("Net Web Exception: " & nwEx.Message.Trim)

Exit Sub

Catch Ex As Exception

MessageBox.Show("Exception: " & Ex.Message.Trim & Ex.InnerException.Message)

Exit Sub

End Try

[Phil Weber]

Any proxy servers between you and the remoting server?

[beachbum714]

i have a transparent proxy dll on both sides that contains the interface of the implementation on the server. here's relevant code from it, then I'll supply hte server code:

transfer/channel code - transparent proxy

<Serializable()> _
Public Class TNSGeneral

Public OracleHome As String
Public OracleInstances As Collection

End Class

Public Interface ITNSManager

Function GetTNSInfo() As TNSGeneral

'Function GetOracleInstances(ByVal strOracleHome As String) As Collection

'Function GetTNS_fileName() As String

End Interface

<Serializable()> _
Public Class ApplicationServerException
'MustInherit
Inherits ApplicationException
'Implements ISerializable, 'IDeserializationCallback
Private Const _customInfoKey As String = "CustomInfo"
Private _customInfo As String

Public Sub New()

MyBase.New()

End Sub

Public Sub New(ByVal customInfo As String)

MyBase.New(customInfo)
_customInfo = customInfo

End Sub

Protected Sub New(ByVal message As String, ByVal custominfo As String)

MyBase.New(message)
_customInfo = custominfo

End Sub

Protected Sub New(ByVal message As String, ByVal inner As Exception, _
ByVal customInfo As String)

MyBase.New(message, inner)
_customInfo = customInfo

End Sub

Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)

MyBase.New(info, context)
_customInfo = info.GetString(_customInfoKey)

End Sub

Public Overrides Sub GetObjectData(ByVal info As SerializationInfo, _
ByVal context As StreamingContext)
'protected?

MyBase.GetObjectData(info, context)
info.AddValue(_customInfoKey, _customInfo)

End Sub

Public Function CustomInfo() As String

Return _customInfo

End Function

End Class

*********************************************************

server code

Imports System
Imports System.Runtime.Remoting
Imports AgileExtractNegotiator
Imports DataExtract
Imports System.Runtime.Remoting.Channels.Http
Imports System.Runtime.Remoting.Channels
Imports System.Security.Principal

Public Class TNSManager

Inherits MarshalByRefObject 'this means that this class doesn't directly inherit from object
Implements ITNSManager

Public Function getTNSInfo() As TNSGeneral Implements ITNSManager.GetTNSInfo

Dim tnsg As TNSGeneral = New TNSGeneral
tnsg.OracleHome = "error"
tnsg.OracleInstances = New Collection
getTNSInfo = tnsg
Dim machinename As String = Environment.MachineName
Dim principal As IPrincipal = System.Threading.Thread.CurrentPrincipal

If Not principal.IsInRole(machinename & "\RemotingUsers") Then

Throw New UnauthorizedAccessException( _
"Unauthorized Access Exception: This user is not in group RemotingUsers")
Exit Function

End If

Dim EOL As String = Environment.NewLine
Dim log As Log.Log = New Log.Log
Dim fs As IO.FileStream = log.OpenLog("server")

Try

fs = log.WriteLog(EOL & EOL & EOL, fs)
fs = log.WriteLog("DataExtractManager called. " & Now.ToString & EOL, fs)
fs = log.WriteLog("Getting Parser object in TNS. " & Now.ToString & EOL, fs)
Dim parser As TNS.ITNS.TNSParser = New TNS.TNS.TNSParser
fs = log.WriteLog("Getting Oracle Home in TNS. " & Now.ToString & EOL, fs)
Dim strOracleHome As String = parser.GetOracleHome.Trim
fs = log.WriteLog("Got Oracle Home in TNS. " & Now.ToString & EOL, fs)
fs = log.WriteLog("Getting Oracle Instances of TNSs in TNS. " & Now.ToString & EOL, fs)
Dim entries As Collection = _
parser.ParseFile(strOracleHome & "\network\admin\tnsnames.ora")
fs = log.WriteLog("Got Oracle Instances of TNSs in TNS. " & Now.ToString & EOL, fs)
Dim entry As TNS.ITNS.TNSEntry = New TNS.TNS.TNSEntry
tnsg.OracleHome = strOracleHome
fs = log.WriteLog("Cycling Oracle Instances of TNSs in TNS. " & Now.ToString & EOL, fs)
tnsg.OracleInstances = New Collection

For Each entry In entries

fs = log.WriteLog("Adding Oracle Instances to TNSGeneral object. " & Now.ToString & EOL, fs)
tnsg.OracleInstances.Add(entry.Name)
fs = log.WriteLog("Added Oracle Instances to TNSGeneral object. " & Now.ToString & EOL, fs)

Next entry

fs = log.WriteLog("Completed adding Oracle Instances into TNSGeneral. " & Now.ToString & EOL, fs)
getTNSInfo = tnsg

' Catch ex As Exception


Catch aEx As ApplicationException

Dim asEx As AgileExtractNegotiator.ApplicationServerException = _
New AgileExtractNegotiator.ApplicationServerException(aEx.Message)
Dim type As Type = System.Type.GetType("System.String")
Dim converter As Runtime.Serialization.IFormatterConverter = _
New Runtime.Serialization.FormatterConverter
Dim si As Runtime.Serialization.SerializationInfo = _
New Runtime.Serialization.SerializationInfo(type, converter)
Dim context As Runtime.Serialization.StreamingContext = _
New Runtime.Serialization.StreamingContext(Runtime.Serialization.StreamingContextStates.All)
asEx.GetObjectData(si, context)

MessageBox.Show(aEx.Message.Trim)
fs = log.WriteLog(aEx.Message.Trim & Now.ToString & EOL, fs)
fs.Close()
fs = Nothing
log = Nothing
Exit Function

End Try


End Function

End Class

[Phil Weber]

I didn't mean proxy code, I meant a proxy server (hardware). That's the most common cause of "underlying connection was closed" errors.

[beachbum714]

oh sorry phil no. no firewall internally either. its kinda why i'm so baffled.

[beachbum714]

is there anything wrong with the code? i know i'm missing something.