Remote Object with default value : Remote Object « Network Remote « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » Network Remote » Remote ObjectScreenshots 
Remote Object with default value

///////////////////////////////////general.vb
// Compile: vbc /target:library  general.vb

Imports System

Public Interface IMyRemoteObject
    Sub setValue(ByVal newval As Integer)
    Function getValue() As Integer
End Interface

Public Class MyRemoteObject
    Inherits MarshalByRefObject
    Implements IMyRemoteObject

    Private myvalue As Integer

    Public Sub New()
    End Sub 'New

    Public Sub New(ByVal startvalue As Integer)
        myvalue = startvalue
    End Sub

    Public Sub setValue(ByVal newval As IntegerImplements IMyRemoteObject.setValue
        myvalue = newval
    End Sub

    Public Function getValue() As Integer Implements IMyRemoteObject.getValue
        Return myvalue
    End Function

End Class





///////////////////////////////////test.vb
// Compile: vbc /t:exe /r:general.dll test.vb

Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels.Http
Imports System.Runtime.Remoting.Channels
Imports Microsoft.VisualBasic

Module Client

    Sub Main()
        Dim channel As New HttpChannel()
        ChannelServices.RegisterChannel(channel,false)

        Dim obj As IMyRemoteObject = CType(Activator.GetObject_
            GetType(IMyRemoteObject), _
            "http://localhost:1234/MyRemoteObject.soap"), _
            IMyRemoteObject)

        Console.WriteLine("Server connected")
        Dim tmp As Integer = obj.getValue()

        Console.WriteLine("Original server side value: {0}", tmp)
        obj.setValue(42)
        tmp = obj.getValue()
        Console.WriteLine("New server side value {0}", tmp)

    End Sub

End Module



///////////////////////////////////server.vb
// vbc /target:exe  /r:general.dll server.vb

Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels.Http
Imports System.Runtime.Remoting.Channels
Imports Microsoft.VisualBasic



Module ServerStartup

    Sub Main()
        Console.WriteLine("ServerStartup.Main(): Server started")

        Dim chnl As New HttpChannel(1234)
        ChannelServices.RegisterChannel(chnl,false)

        Dim obj As MyRemoteObject = New MyRemoteObject(47)
        RemotingServices.Marshal(obj, "MyRemoteObject.soap")

        ' the server will keep running until keypress.
        Console.ReadLine()

    End Sub
End Module




           
       
Related examples in the same category
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.