using System; using System.Threading; using System.Runtime.InteropServices; using System.Runtime.Remoting; using System.Runtime.Remoting.Messaging; using System.Runtime.Remoting.Proxies; class MyProxy : RealProxy { readonly MarshalByRefObject target; public MyProxy (MarshalByRefObject target) : base (target.GetType()) { this.target = target; } public override IMessage Invoke (IMessage request) { IMethodCallMessage call = (IMethodCallMessage)request; Console.WriteLine ("Invoke " + call.MethodName); Console.Write ("ARGS("); for (int i = 0; i < call.ArgCount; i++) { if (i != 0) Console.Write (", "); Console.Write (call.GetArgName (i) + " " + call.GetArg (i)); } Console.WriteLine (")"); Console.Write ("INARGS("); for (int i = 0; i < call.InArgCount; i++) { if (i != 0) Console.Write (", "); Console.Write (call.GetInArgName (i) + " " + call.GetInArg (i)); } Console.WriteLine (")"); IMethodReturnMessage res = RemotingServices.ExecuteMessage (target, call); Console.Write ("RESARGS("); for (int i = 0; i < res.ArgCount; i++) { if (i != 0) Console.Write (", "); Console.Write (res.GetArgName (i) + " " + res.GetArg (i)); } Console.WriteLine (")"); Console.Write ("RESOUTARGS("); for (int i = 0; i < res.OutArgCount; i++) { if (i != 0) Console.Write (", "); Console.Write (res.GetOutArgName (i) + " " + res.GetOutArg (i)); } Console.WriteLine (")"); return res; } } public struct MyStruct { public int a; public int b; public int c; } class R1 : MarshalByRefObject { public int test_field = 5; public virtual MyStruct Add (int a, out int c, int b) { Console.WriteLine ("ADD"); c = a + b; MyStruct res = new MyStruct (); res.a = a; res.b = b; res.c = c; return res; } public long nonvirtual_Add (int a, int b) { Console.WriteLine ("nonvirtual_Add"); return a + b; } } class Test { delegate long RemoteDelegate2 (int a, int b); static int Main () { R1 myobj = new R1 (); long lres; MyProxy real_proxy = new MyProxy (myobj); R1 o = (R1)real_proxy.GetTransparentProxy (); RemoteDelegate2 d2 = new RemoteDelegate2 (o.nonvirtual_Add); d2 (6, 7); IAsyncResult ar1 = d2.BeginInvoke (2, 4, null, null); lres = d2.EndInvoke (ar1); if (lres != 6) return 1; return 0; } }