深入研究VB.Net远程调用对象的机制

Imports System.Data
Imports System.Data.SQL

　　然后，添加一个方法到你的类上，用来检索相应的数据行并把作者姓名作为结果返回。参见下面列出的程序代码：

Public Function GetName(ByVal au_id As String) As String
　Const dbConn As String = "server=ineroth;uid=sa;pwd=;database=pubs"
　Dim cm As SQLCommand
　Dim dr As SQLDataReader
　Dim SQL As String
　SQL = "SELECT au_lname, au_fname " & "FROM authors WHERE
　　　　 au_id='" & au_id & "'"
　cm = New SQLCommand(SQL, dbConn)
　cm.ActiveConnection.Open()
　cm.Execute(dr)
　dr.Read()
　Return CStr(dr.Item("au_lname")) & ", " & CStr(dr.Item("au_fname"))
End Function

　　你现在就有了一个可被远程调用的类了。

　　你的远程调用对象需要在它运行的地方有一个过程，并且这个主机过程需要使用远程系统来监听传到你的对象上的请求。 幸运的是，代码使得这过程很简单的。添加一个新的Console Application项目到 VS.NET中，在Solution Explorer中，添加新的项目。 你可能需要向下滚动卷轴找到Console Application图标, 改名为 NEThost。添加一个引用到System.Runtime.Remoting.dll并添加一个 Imports语句，然后使用远程系统 :

　Imports System.Runtime.Remoting
　　在控制台应用程序中，当应用程序启动时， Sub Main方法自动运行。 你可以在这个方法中添加几行代码来设置远程系统：

Sub Main()
　　RemotingServices.ConfigureRemoting("...cfg")
　　Console.WriteLine("Press to exit")
　　Console.ReadLine()
End Sub

　　ConfigureRemoting方法接收文件名并把它当成一个参数。这个文本文件包含配置远程调用所必需的信息，你需要创建这个文件，我过一会将介绍如何创建。