【NetOffice】NetOfficeの注意点というかバグ?
- 2012.12.11 Tuesday
- 20:38
----------------------------------------
Summary
Application.GetActiveInstances();
を実行すると、実行環境によって例外が発生する事がある。
----------------------------------------
英語が、中学生レベルというと中学生に失礼なぐらい英語が苦手なのですが、NetOfficeのバグだと思われるものを見つけたので、何とか報告をあげたいのですが、どうしたものか・・・というかすでに報告ずみなのかもしれないのですが、それすら確認できない(涙)
【NetOffice】方法:起動中の複数のExcelアプリケーションを取得する。
http://pro.art55.jp/?eid=1304139
起動中の複数のExcelアプリケーションを取得する。
Application[] applications = Application.GetActiveInstances();
で、紹介した方法なのです、管理者権限のない状態で、このコードを実行すると例外が発生します。原因はCOMオブジェクトでないものをリリースしようとして例外発生という流れなのですが、単にリリースする前にCOMオブジェクトであるかどうかのチェックが抜けているだけに見えます。
ということで、もう少し詳しく調査していくと、COMオブジェクトではなく、透過プロキシを返すモニカがROTに登録されているようです。
using System;
using System.ComponentModel;
using System.Runtime.InteropServices;
using System.Runtime.InteropServices.ComTypes;
using System.Runtime.Remoting;
using System.Runtime.Remoting.Proxies;
{
class Program
{
static void Main()
{
object instance = GetNoComObjectInRunningObjectTable();
var realProxy = (IRemotingTypeInfo) RemotingServices.GetRealProxy(instance);
Console.WriteLine(realProxy.TypeName);
}
private static extern int CreateBindCtx(uint reserved, out IBindCtx pctx);
public static object GetNoComObjectInRunningObjectTable()
{
IBindCtx bindCtx;
if (CreateBindCtx(0, out bindCtx) != 0)
{
return null;
}
IRunningObjectTable runningObjectTable;
bindCtx.GetRunningObjectTable(out runningObjectTable);
IEnumMoniker enumMoniker;
runningObjectTable.EnumRunning(out enumMoniker);
IntPtr fetched = IntPtr.Zero;
enumMoniker.Reset();
var monikers = new IMoniker[1]; // 一つずつ取得する。
while (enumMoniker.Next(monikers.Length, monikers, fetched) == 0)
{
IMoniker moniker = monikers[0];
string displayName;
moniker.GetDisplayName(bindCtx, null, out displayName);
object comObject;
if (runningObjectTable.GetObject(moniker, out comObject) == 0)
{
if (Marshal.IsComObject(comObject))
{
Marshal.ReleaseComObject(comObject);
}
else
{
string name = TypeDescriptor.GetClassName(comObject);
string component = TypeDescriptor.GetComponentName(comObject, false);
Console.WriteLine("Display Name: " + displayName);
Console.WriteLine("ClassName: " + name);
Console.WriteLine("Component: " + component);
Console.WriteLine("COMObject: " + Marshal.IsComObject(comObject));
Console.WriteLine();
Marshal.ReleaseComObject(runningObjectTable);
Marshal.ReleaseComObject(bindCtx);
return comObject;
}
}
Marshal.ReleaseComObject(moniker);
}
Marshal.ReleaseComObject(enumMoniker);
Marshal.ReleaseComObject(runningObjectTable);
Marshal.ReleaseComObject(bindCtx);
return null;
}
}
}
Marshal.IsComObject(comObject))
でfalseになるオブジェクトをみると確かに私のPCではCOM以外のオブジェクトが帰ってきます。型を見る限り透過プロキシなので
object instance = GetNoComObjectInRunningObjectTable();
RealProxy realProxy = RemotingServices.GetRealProxy(instance);
Type type = realProxy.GetProxiedType();
リアルプロキシに変換して、Typeを見てみましたが、MarshalByRfObjectが帰ってくるので、うん・・・よくわからない。
実行結果は
-------------------------------------------------
Display Name: !{CC7C96DF-1942-4D46-9FCD-810EF1C56C2D}
ClassName: System.MarshalByRefObject
Component:
COMObject: False
-------------------------------------------------
DisplayName以外は役に立ちそうな情報はなさそうです。ググってみるとAMD Radeon HDのグラフィックカードが引っかかるので、おそらくその辺りで、ROTを使っていらっしゃるみたいです。つまり
http://store.sony.jp/Special/Computer/Vaio/Z/index.html
上記のPCを利用されている方は同一の現象が発生すると思います。
これを管理者権限で実行すると見えなくなるので、例外が発生しなくなるのですが、Excelも管理者権限で実行しているわけではないので、一緒にみえなくなります。それは悲しい(笑)