关于远程对象租约的问题

pupo 2005-07-01 03:39:44

Public Class CUserStub
Inherits MarshalByRefObject

Public User As String

Public Sub New(ByVal user As String)
Me.User = user
End Sub

Public Overrides Function ToString() As String
Return Me.User
End Function

Public Overrides Function InitializeLifetimeService() As Object
Dim lease As ILease = CType(MyBase.InitializeLifetimeService(), ILease)
If lease.CurrentState = LeaseState.Initial Then
lease.InitialLeaseTime = TimeSpan.FromMinutes(1)
lease.SponsorshipTimeout = TimeSpan.FromSeconds(10)
lease.RenewOnCallTime = TimeSpan.FromSeconds(20)
End If
Return lease
End Function

End Class

'远程对象
Public Class Server
Inherits MarshalByRefObject
Implements System.Runtime.Remoting.Services.ITrackingHandler

Public Function RegisterOnline(ByVal userId As String) As CUserStub

Dim stub As CUserStub
stub = New CUserStub(userId)

System.Runtime.Remoting.RemotingServices.Marshal(stub)

Return stub
End Function

End Class

Public Class Client

Dim stub As CUserStub

stub = myServer.RegisterOnline(Me.userId)

Private Sub ReLease(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
Dim lease As System.Runtime.Remoting.Lifetime.ILease = CType(RemotingServices.GetLifetimeService(stub), System.Runtime.Remoting.Lifetime.ILease)
lease.Renew(System.TimeSpan.FromSeconds(20))
End Sub

End Class

这是我写的几个远程对象的类,大概的写了出来,意思是客户端注册后获得一个CUserStub的远程对象引用,然后定时器关联ReLease方法定时续订租约,远程对象是部署在IIS中,本机测试都通过,但是将远程对象部署到internet服务器时执行ReLease方法的时候就会报基础连接已经关闭的错误,不知道为什么

...全文