作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

写一个简单的Remoting 服务程序，HelloWorld:)

类函数：

Public Class SimpleObjectClass SimpleObject
    Inherits System.MarshalByRefObject

    Public Function HelloWorld()Function HelloWorld(ByVal message As String) As String
        Return "Hello World" & message
    End Function

End Class

Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.RemotingConfiguration
Public Class HostClass Host
    Public Shared Sub Main()Sub Main()
        Dim channel As New Http.HttpServerChannel(6363)
        ChannelServices.RegisterChannel(channel)
        RegisterWellKnownServiceType(GetType(ObjectLib.SimpleObject), "simpleobject", Runtime.Remoting.WellKnownObjectMode.SingleCall)
        Console.WriteLine("started ok")
        Console.ReadLine()
    End Sub
End Class

Dim o As New SoapClient30
o.MSSoapInit "http://Server:6363/simpleobject?wsdl"
MsgBox o.HelloWorld("montaque")

Dim o As Object = System.Runtime.InteropServices.Marshal.BindToMoniker("soap:wsdl=http://localhost:6363/simpleobject?wsdl")
MsgBox(o.helloworld("asdf"))

相关软件：