mcs/class/corlib/Mono.Interop/ComInteropProxy.cs

   1 //
   2 // Mono.Interop.ComInteropProxy
   3 //
   4 // Authors:
   5 //   Jonathan Chambers <joncham@gmail.com>
   6 //
   7 // Copyright (C) 2006 Novell (http://www.novell.com)
   8 //
   9
  10 //
  11 // Permission is hereby granted, free of charge, to any person obtaining
  12 // a copy of this software and associated documentation files (the
  13 // "Software"), to deal in the Software without restriction, including
  14 // without limitation the rights to use, copy, modify, merge, publish,
  15 // distribute, sublicense, and/or sell copies of the Software, and to
  16 // permit persons to whom the Software is furnished to do so, subject to
  17 // the following conditions:
  18 //
  19 // The above copyright notice and this permission notice shall be
  20 // included in all copies or substantial portions of the Software.
  21 //
  22 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  23 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  24 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  25 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  26 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  27 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  28 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  29 //
  30
  31 using System;
  32 using System.Reflection;
  33 using System.Runtime.CompilerServices;
  34 using System.Runtime.Remoting;
  35 using System.Runtime.Remoting.Messaging;
  36 using System.Runtime.Remoting.Proxies;
  37
  38
  39 namespace Mono.Interop
  40 {
  41         internal class ComInteropProxy : RealProxy, IRemotingTypeInfo
  42     {
  43         #region Sync with object-internals.h
  44                 private __ComObject com_object;
  45         #endregion
  46         private string type_name;
  47                 public ComInteropProxy (Type t)
  48                         : base (t)
  49                 {
  50                         com_object = __ComObject.CreateRCW (t);
  51                 }
  52
  53         internal ComInteropProxy (IntPtr pUnk)
  54             : base (typeof (__ComObject))
  55         {
  56             com_object = new __ComObject(pUnk);
  57         }
  58
  59                 public override IMessage Invoke (IMessage msg)
  60                 {
  61                         Console.WriteLine ("Invoke");
  62
  63                         throw new Exception ("The method or operation is not implemented.");
  64                 }
  65
  66                 public string TypeName
  67                 {
  68                         get { return type_name; }
  69                         set { type_name = value; }
  70                 }
  71
  72                 public bool CanCastTo (Type fromType, object o)
  73                 {
  74             __ComObject co = o as __ComObject;
  75             if (co == null)
  76                 throw new NotSupportedException ("Only RCWs are currently supported");
  77
  78             if ((fromType.Attributes & TypeAttributes.Import) == 0)
  79                 return false;
  80
  81             if (co.GetInterface (fromType) == IntPtr.Zero)
  82                 return false;
  83
  84             return true;
  85                 }
  86         }
  87 }