次の方法で共有

リモート処理の例 : 動的公開

  • [アーティクル]

.NET リモート処理では、サーバー側でアクティブ化されるリモート処理可能な型に関しては、既定のコンストラクタのみがサポートされます。特定のコンストラクタを使用してオブジェクトを作成した後でそのオブジェクトを公開し、その特定のインスタンスの公開を完全に制御するには、プログラムによってインスタンスを公開します。

Caution note注意 :

.NET リモート処理では、既定では認証または暗号化を行いません。したがって、クライアントやサーバーとリモートで通信する前に、それらの ID の確認に必要な手順をすべて実行することをお勧めします。.NET リモート処理アプリケーションの実行には、FullTrust アクセス許可が必要です。認証されていないクライアントがサーバーへのアクセスを許可された場合は、完全な信頼を与えられているものとして、コードを実行できてしまいます。常に、エンドポイントを認証し、通信ストリームを暗号化してください。詳細については、「リモート処理でのセキュリティ」を参照してください。

このサンプルをコンパイルして実行するには

  • コマンド プロンプトで次のコマンドを入力します。

    vbc -t:library remote.vb
vbc -r:System.Runtime.Remoting.dll -r:remote.dll server.vb
vbc -r:System.Runtime.Remoting.dll -r:remote.dll client.vb

csc -t:library remote.cs
csc -r:System.Runtime.Remoting.dll -r:remote.dll server.cs
csc -r:System.Runtime.Remoting.dll -r:remote.dll client.cs

リモート

Imports System

Public Class ServiceClass
   Inherits MarshalByRefObject
   Private m_startTime As DateTime

   Public Sub New()
      Console.WriteLine("ServiceClass created without constructor. Instance hash is " & Me.GetHashCode().ToString())
      m_startTime = DateTime.Now
   End Sub   

   Overrides Protected Sub Finalize()
      Console.WriteLine("I'm being collected after " & (New TimeSpan(DateTime.Now.Ticks - m_startTime.Ticks)).ToString() & " seconds.")
      MyBase.Finalize()
   End Sub    

   Public Function GetServerTime() As DateTime
      Console.WriteLine("Time requested by a client.")
      Return DateTime.Now
   End Function   

   Public ReadOnly Property InstanceHash() As Integer
      Get
         Return Me.GetHashCode()
      End Get
   End Property 
End Class

using System;
using System.Collections.Generic;
using System.Text;

namespace Remote
{
    public class ServiceClass : MarshalByRefObject
    {
        private DateTime m_startTime;

        public ServiceClass()
        {
            Console.WriteLine("ServiceClass created without constructor. Instance hash is " + GetHashCode().ToString());
            m_startTime = DateTime.Now;
        }

        ~ServiceClass()
        {
            Console.WriteLine("I'm being collected after " + (new TimeSpan(DateTime.Now.Ticks - m_startTime.Ticks)).ToString() + " seconds.");
        }

        public DateTime GetServerTime()
        {
            Console.WriteLine("Time requested by a client.");
            return DateTime.Now;
        }

        public int InstanceHash
        {
            get { return GetHashCode(); }
        }
    }
}

サーバー

Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Http

Module Module1

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

    Dim object1 As New ServiceClass()

    ' Creates the single instance of ServiceClass. All clients
    ' will use this instance.
    Dim ref1 As ObjRef = RemotingServices.Marshal(object1, "object1uri")
    Console.WriteLine("ObjRef.URI: " & ref1.URI)

    Console.WriteLine("Running. Press Enter to end publication.")
    Console.ReadLine()

    ' This unregisters the object from publication, but leaves
    ' the channel listening.
    RemotingServices.Disconnect(object1)
    Console.WriteLine()
    Console.WriteLine("Disconnected the object. Client now receives a RemotingException.")
    Console.WriteLine("Press Enter to unregister the channel.")
    Console.ReadLine()
    ' At this point, the ServerClass object still exists. The server
    ' could republish it.

    ' This unregisters the channel, but leaves the application 
    ' domain running.
    ChannelServices.UnregisterChannel(channel)
    Console.WriteLine("Unregistered the channel. Client now receives a WebException.")
    ' The ServerClass object still exists. The server could
    ' reregister the channel and republish the object.
    Console.WriteLine("The host application domain is still running. Press Enter to stop the process.")
    Console.ReadLine()

    ' The ServiceClass object's Finalize method writes a message to
    ' the console. A single object will almost always succeed in 
    ' running its Finalize method before the Console is finalized;
    ' in a larger application, you could ensure that all objects 
    ' finalize before the application ends by calling the garbage 
    ' collector and waiting.
    GC.Collect()
    GC.WaitForPendingFinalizers()
  End Sub
End Module

using System;
using System.Runtime.Remoting;
using System.Runtime.Remoting.Channels;
using System.Runtime.Remoting.Channels.Http;
using Remote;

namespace Server
{
    class Server
    {
        static void Main(string[] args)
        {
            HttpChannel channel = new HttpChannel(8080);
            ChannelServices.RegisterChannel(channel, false);

            ServiceClass object1 = new ServiceClass();

            // Creates the single instance of ServiceClass. All clients
            // will use this instance.

            ObjRef ref1 = RemotingServices.Marshal(object1, "object1uri");
            Console.WriteLine("ObjRef.URI: " + ref1.URI);

            Console.WriteLine("Running. Press Enter to end publication.");
            Console.ReadLine();

            // This unregisters the object from publication, but leaves
            // the channel listening.
            RemotingServices.Disconnect(object1);
            Console.WriteLine();
            Console.WriteLine("Disconnected the object. Client now receives a RemotingException.");
            Console.WriteLine("Press Enter to unregister the channel.");
            Console.ReadLine();

            // At this point, the ServerClass object still exists. The server
            // could republish it.

            // This unregisters the channel, but leaves the application 
            // domain running.
            ChannelServices.UnregisterChannel(channel);
            Console.WriteLine("Unregistered the channel. Client now receives a WebException.");

            // The ServerClass object still exists. The server could
            // reregister the channel and republish the object.
            Console.WriteLine("The host application domain is still running. Press Enter to stop the process.");
            Console.ReadLine();

            // The ServiceClass object's Finalize method writes a message to
            // the console. A single object will almost always succeed in 
            // running its Finalize method before the Console is finalized;
            // in a larger application, you could ensure that all objects 
            // finalize before the application ends by calling the garbage 
            // collector and waiting.
            GC.Collect();
            GC.WaitForPendingFinalizers();
        }
    }
}

クライアント

Imports System 
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports System.Runtime.Remoting.Channels.Http

Public Class ClientProcess
   <MTAThread()> _
   Public Shared Sub Main()
      
      Dim channel As New HttpChannel(0)
      ChannelServices.RegisterChannel(channel, False)

      ' Registers the remote class. (This could be done with a
      ' configuration file instead of a direct call.)
      RemotingConfiguration.RegisterWellKnownClientType(Type.GetType("ServiceClass, remote"), "https://localhost:8080/object1uri")

      ' Instead of creating a new object, this obtains a reference
      ' to the server's single instance of the ServiceClass object.
      Dim object1 As ServiceClass = New ServiceClass()

      Try
         Console.WriteLine("ServerTime: " & object1.GetServerTime())
      Catch ex As Exception
         Console.WriteLine("Exception of type: " & ex.GetType.ToString & " occurred.")
         Console.WriteLine("Details: " & ex.Message)
      End Try

   End Sub     
End Class   

using System;
using System.Runtime.Remoting;
using System.Runtime.Remoting.Channels;
using System.Runtime.Remoting.Channels.Tcp;
using System.Runtime.Remoting.Channels.Http;
using Remote;

namespace Client
{
    public class ClientProcess
    {
  [MTAThread]
        public static void Main(string[] args)
        {
            HttpChannel channel = new HttpChannel();
            ChannelServices.RegisterChannel(channel, false);

            // Registers the remote class. (This could be done with a
            // configuration file instead of a direct call.)
            RemotingConfiguration.RegisterWellKnownClientType(
                Type.GetType("Remote.ServiceClass, remote"),
                "https://localhost:8080/object1uri");

            // Instead of creating a new object, this obtains a reference
            // to the server's single instance of the ServiceClass object.
            ServiceClass object1 = new ServiceClass();

            try
            {
                Console.WriteLine("ServerTime: " + object1.GetServerTime());
            }
            catch (Exception ex)
            {
                Console.WriteLine("Exception of type: " + ex.ToString() + " occurred.");
                Console.WriteLine("Details: " + ex.Message);
            }
        }
    }
}

関連項目

参照

RemotingServices.Marshal Method
RemotingServices.Disconnect Method
ChannelServices.UnregisterChannel Method

その他の技術情報

リモート処理の例

Footer image

Copyright © 2007 by Microsoft Corporation.All rights reserved.