.Net Remoting 实战之----TCP Channel(vb.net实现)

类别:.NET开发 点击:0 评论:0 推荐:

.Net Remoting 实战----TCP Channel

1.Service.vb:继承MarshalByRefObject,当跨应用程序域边界使用类型时,类型必须是从MarshalByRefObject继承的,远程应用程序域中的应用程序首次访问MarshalByRefObject  时,会向该远程应用程序传递代理。对该代理后面的调用将封送回驻留在本地应用程序域中的对象。

Public Class Service

    Inherits MarshalByRefObject

 

    Public Function GetServerName() As String

        Return System.Environment.MachineName()

    End Function

 

    Public Function GetProcessID() As Integer

        Return System.Diagnostics.Process.GetCurrentProcess.Id

    End Function

    Public Function GetCustomer() As Customer

        Dim obj As New Customer

        obj.Name = "User"

        Return obj

    End Function

End Class

2.Customer.vb:可用于网络传输的序列化对象。

_

Public Class Customer

    Private mName As String

    Private mTheadID As String

    Private mMachineName As String

 

    Public Sub New()

        mTheadID = AppDomain.CurrentDomain.GetCurrentThreadId

        mName = System.Environment.MachineName()

    End Sub

 

    Public Property Name() As String

        Get

            Return mName

        End Get

        Set(ByVal Value As String)

            mName = Value

        End Set

    End Property

    Public ReadOnly Property CreatedID() As String

        Get

            Return mTheadID

        End Get

    End Property

 

    Public ReadOnly Property CreatedMachine() As String

        Get

            Return mMachineName

        End Get

    End Property

    Public ReadOnly Property CurrentID() As String

        Get

            Return AppDomain.GetCurrentThreadId

        End Get

    End Property

    Public ReadOnly Property CurrentMachine() As String

        Get

            Return System.Environment.MachineName()

        End Get

    End Property

End Class

 

3.ServerForm.vb:服务端,对Channelports进行设定

Imports System.Runtime

Imports System.Runtime.Remoting

Imports System.Runtime.Remoting.Channels

Imports System.Runtime.Remoting.Channels.Tcp

 

 

Public Class ServerForm

    Inherits System.Windows.Forms.Form

 

#Region " Windows 窗体设计器生成的代码 "

 

    Public Sub New()

        MyBase.New()

 

        '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

 

        '在 InitializeComponent() 调用之后添加任何初始化

 

    End Sub

 

    '窗体重写 dispose 以清理组件列表。

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

 

    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer

 

    '注意: 以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Private Sub InitializeComponent()

        Me.Label1 = New System.Windows.Forms.Label

        Me.SuspendLayout()

        '

        'Label1

        '

        Me.Label1.Location = New System.Drawing.Point(56, 24)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(176, 23)

        Me.Label1.TabIndex = 0

        Me.Label1.Text = "The server host is running"

        '

        'ServerForm

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

        Me.ClientSize = New System.Drawing.Size(292, 61)

        Me.Controls.Add(Me.Label1)

        Me.Name = "ServerForm"

        Me.Text = "ServerForm"

        Me.ResumeLayout(False)

 

    End Sub

 

#End Region

    Private sName As String = "server"

    Private sPort As String = "9999"

 

    Private Sub ServerForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Remoting.RemotingConfiguration.ApplicationName = sName

        ChannelServices.RegisterChannel(New Tcp.TcpServerChannel(sPort))

        RemotingConfiguration.RegisterActivatedServiceType(GetType(Service.Service))

 

    End Sub

End Class

 

4.Form1.vb 客户端

 

Public Class Form1

    Inherits System.Windows.Forms.Form

    Dim objClass As Service.Service

 

#Region " Windows 窗体设计器生成的代码 "

 

    Public Sub New()

        MyBase.New()

 

        '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()

 

        '在 InitializeComponent() 调用之后添加任何初始化

 

    End Sub

 

    '窗体重写 dispose 以清理组件列表。

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

 

    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer

 

    '注意: 以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    Friend WithEvents Button1 As System.Windows.Forms.Button

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Private Sub InitializeComponent()

        Me.Button1 = New System.Windows.Forms.Button

        Me.Label1 = New System.Windows.Forms.Label

        Me.SuspendLayout()

        '

        'Button1

        '

        Me.Button1.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))

        Me.Button1.Location = New System.Drawing.Point(0, 0)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(184, 48)

        Me.Button1.TabIndex = 0

        Me.Button1.Text = "取得对象"

        '

        'Label1

        '

        Me.Label1.BackColor = System.Drawing.SystemColors.Window

        Me.Label1.Location = New System.Drawing.Point(0, 48)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(368, 200)

        Me.Label1.TabIndex = 1

        Me.Label1.Text = "输出信息"

        '

        'Form1

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

        Me.ClientSize = New System.Drawing.Size(368, 245)

        Me.Controls.Add(Me.Label1)

        Me.Controls.Add(Me.Button1)

        Me.Name = "Form1"

        Me.Text = "Client"

        Me.ResumeLayout(False)

 

    End Sub

 

#End Region

 

 

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim output As New System.Text.StringBuilder

        With output

            .Append("Server 端")

            .Append(vbCrLf)

            .Append("服务器名: ")

            .Append(objClass.GetServerName)

            .Append(vbCrLf)

            .Append("进程ID: ")

            .Append(objClass.GetProcessID)

            .Append(vbCrLf)

            .Append(vbCrLf)

            .Append("Client 端")

            .Append(vbCrLf)

            .Append("服务器名: ")

            .Append(System.Environment.MachineName)

            .Append(vbCrLf)

            .Append("进程ID: ")

            .Append(System.Diagnostics.Process.GetCurrentProcess.Id.ToString)

            .Append(vbCrLf)

            Label1.Text = output.ToString

        End With

 

    End Sub

'在load时创建远端对象 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        System.Runtime.Remoting.RemotingConfiguration.RegisterActivatedClientType( _

        GetType(Service.Service), "tcp://localhost:9999/Server")

        objClass = New Service.Service

    End Sub

End Class

首先运行ServerForm,开启服务端,然后再运行客户端,这样客户端就可使用远端对象了,由于采用tcp,二进制传输,速度很快!

本文地址:http://com.8s8s.com/it/it44092.htm