http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FNetwork_Remote%2FRemote_Mode
VB.Net/Network Remote/Remote Mode - История изменений
2026-04-05T22:05:52Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net/Network_Remote/Remote_Mode&diff=964&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:06Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net/Network_Remote/Remote_Mode&diff=965&oldid=prev
Admin: 1 версия
2010-05-26T12:45:38Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Well Known Object Mode: Single Call==<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
///////////////////////////////////general.vb<br />
// Compile: vbc /target:library general.vb<br />
Imports System<br />
Public Interface IMyRemoteObject<br />
Sub setValue(ByVal newval As Integer)<br />
Function getValue() As Integer<br />
End Interface<br />
Public Class MyRemoteObject<br />
Inherits MarshalByRefObject<br />
Implements IMyRemoteObject<br />
Private myvalue As Integer<br />
Public Sub New()<br />
End Sub "New<br />
Public Sub New(ByVal startvalue As Integer)<br />
myvalue = startvalue<br />
End Sub<br />
Public Sub setValue(ByVal newval As Integer) Implements IMyRemoteObject.setValue<br />
myvalue = newval<br />
End Sub<br />
Public Function getValue() As Integer Implements IMyRemoteObject.getValue<br />
Return myvalue<br />
End Function<br />
End Class<br />
<br />
<br />
<br />
///////////////////////////////////test.vb<br />
// Compile: vbc /t:exe /r:general.dll test.vb<br />
<br />
Imports System<br />
Imports System.Runtime.Remoting<br />
Imports System.Runtime.Remoting.Channels.Http<br />
Imports System.Runtime.Remoting.Channels<br />
Imports Microsoft.VisualBasic<br />
Module Client<br />
Sub Main()<br />
Dim channel As New HttpChannel()<br />
ChannelServices.RegisterChannel(channel,false)<br />
Dim obj As IMyRemoteObject = CType(Activator.GetObject( _<br />
GetType(IMyRemoteObject), _<br />
"http://localhost:1234/MyRemoteObject.soap"), _<br />
IMyRemoteObject)<br />
Console.WriteLine("Server connected")<br />
Dim tmp As Integer = obj.getValue()<br />
Console.WriteLine("Original server side value: {0}", tmp)<br />
obj.setValue(42)<br />
tmp = obj.getValue()<br />
Console.WriteLine("New server side value {0}", tmp)<br />
End Sub<br />
End Module<br />
///////////////////////////////////server.vb<br />
// vbc /target:exe /r:general.dll server.vb<br />
Imports System<br />
Imports System.Runtime.Remoting<br />
Imports System.Runtime.Remoting.Channels.Http<br />
Imports System.Runtime.Remoting.Channels<br />
Imports Microsoft.VisualBasic<br />
<br />
Module ServerStartup<br />
Sub Main()<br />
Console.WriteLine("ServerStartup.Main(): Server started")<br />
Dim chnl As New HttpChannel(1234)<br />
ChannelServices.RegisterChannel(chnl,false)<br />
RemotingConfiguration.RegisterWellKnownServiceType( _<br />
GetType(MyRemoteObject), _<br />
"MyRemoteObject.soap", _<br />
WellKnownObjectMode.SingleCall)<br />
" the server will keep running until keypress.<br />
Console.ReadLine()<br />
End Sub<br />
End Module<br />
<br />
<br />
<br />
</source><br />
<br />
<br />
==Well Known Object Mode Singleton==<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
///////////////////////////////////general.vb<br />
// Compile: vbc /target:library general.vb<br />
Imports System<br />
Public Interface IMyRemoteObject<br />
Sub setValue(ByVal newval As Integer)<br />
Function getValue() As Integer<br />
End Interface<br />
Public Class MyRemoteObject<br />
Inherits MarshalByRefObject<br />
Implements IMyRemoteObject<br />
Private myvalue As Integer<br />
Public Sub New()<br />
End Sub "New<br />
Public Sub New(ByVal startvalue As Integer)<br />
myvalue = startvalue<br />
End Sub<br />
Public Sub setValue(ByVal newval As Integer) Implements IMyRemoteObject.setValue<br />
myvalue = newval<br />
End Sub<br />
Public Function getValue() As Integer Implements IMyRemoteObject.getValue<br />
Return myvalue<br />
End Function<br />
End Class<br />
<br />
<br />
<br />
///////////////////////////////////test.vb<br />
// Compile: vbc /t:exe /r:general.dll test.vb<br />
<br />
Imports System<br />
Imports System.Runtime.Remoting<br />
Imports System.Runtime.Remoting.Channels.Http<br />
Imports System.Runtime.Remoting.Channels<br />
Imports Microsoft.VisualBasic<br />
Module Client<br />
Sub Main()<br />
Dim channel As New HttpChannel()<br />
ChannelServices.RegisterChannel(channel,false)<br />
Dim obj As IMyRemoteObject = CType(Activator.GetObject( _<br />
GetType(IMyRemoteObject), _<br />
"http://localhost:1234/MyRemoteObject.soap"), _<br />
IMyRemoteObject)<br />
Console.WriteLine("Server connected")<br />
Dim tmp As Integer = obj.getValue()<br />
Console.WriteLine("Original server side value: {0}", tmp)<br />
obj.setValue(42)<br />
tmp = obj.getValue()<br />
Console.WriteLine("New server side value {0}", tmp)<br />
End Sub<br />
End Module<br />
<br />
///////////////////////////////////server.vb<br />
// vbc /target:exe /r:general.dll server.vb<br />
Imports System<br />
Imports System.Runtime.Remoting<br />
Imports System.Runtime.Remoting.Channels.Http<br />
Imports System.Runtime.Remoting.Channels<br />
Imports Microsoft.VisualBasic<br />
<br />
Module ServerStartup<br />
Sub Main()<br />
Console.WriteLine("ServerStartup.Main(): Server started")<br />
Dim chnl As New HttpChannel(1234)<br />
ChannelServices.RegisterChannel(chnl,false)<br />
RemotingConfiguration.RegisterWellKnownServiceType( _<br />
GetType(MyRemoteObject), _<br />
"MyRemoteObject.soap", _<br />
WellKnownObjectMode.Singleton)<br />
" the server will keep running until keypress.<br />
Console.ReadLine()<br />
End Sub<br />
End Module<br />
<br />
<br />
<br />
</source></div>
Admin