释放临时COM对象
考虑使用COM对象的以下C＃代码。
MyComObject o = new MyComObject;
try
{
var baz = o.Foo.Bar.Baz;
try
{
// do something with baz
}
finally
{
Marshal.ReleaseComObject(baz);
}
}
finally
{
Marshal.ReleaseComObject(o);
}
这将释放COM对象o和baz ，但不会释放由o.Foo和o.Foo.Bar的临时对象。 当这些对象拥有大量非托管内存或其他资源时，这可能会导致问题。
一个明显但很难看的解决方案是，用try-finally和Marshal.ReleaseComObject更加Marshal.ReleaseComObject 。 请参阅C＃+ COM Interop确定性发布
作为一种解决方法，我创建了一个辅助类
class TemporaryComObjects: IDisposable
{
public C T<C>(C comObject)
{
m_objects.Add(comObject);
return comObject;
}
public void Dispose()
{
foreach (object o in m_objects)
Marshal.ReleaseComObject(o);
}
}
用法：
using (TemporaryComObjects t = new TemporaryComObjects())
{
MyComObject o = t.T(new MyComObject);
var baz = t.T(t.T(t.T(o.Foo).Bar).Baz);
// do something with baz
}
我的问题：这个代码是否存在潜在的问题？ 有没有人有更优雅的解决方案？
我最大的抱怨就是名字， T ; Add可能对使用更具说服力。 我还要添加where T : class到泛型方法的地方，但“流利的API”似乎可用。 我也倾向于将代码扁平化一点。 我还可以看到使用Expression API遍历整个树并捕获所有中间步骤的一些方法，但它不是微不足道的 - 但想象一下：
using(var com = new SomeWrapper()) {
var baz = com.Add(() => new MyComObject().Foo.Bar.Baz);
}
那里是一个表达式树，我们自动获取中介。
（另外，你可以Clear()或null列表中Dispose()
像这样：
static class ComExample {
static void Main()
{
using (var wrapper = new ReleaseWrapper())
{
var baz = wrapper.Add(
() => new Foo().Bar.Baz);
Console.WriteLine(baz.Name);
}
}
}
class ReleaseWrapper : IDisposable
{
List<object> objects = new List<object>();
public T Add<T>(Expression<Func<T>> func)
{
return (T)Walk(func.Body);
}
object Walk(Expression expr)
{
object obj = WalkImpl(expr);
if (obj != null && Marshal.IsComObject(obj) && !objects.Contains(obj))
{
objects.Add(obj);
}
return obj;
}
object[] Walk(IEnumerable<Expression> args)
{
if (args == null) return null;
return args.Select(arg => Walk(arg)).ToArray();
}
object WalkImpl(Expression expr)
{
switch (expr.NodeType)
{
case ExpressionType.Constant:
return ((ConstantExpression)expr).Value;
case ExpressionType.New:
NewExpression ne = (NewExpression)expr;
return ne.Constructor.Invoke(Walk(ne.Arguments));
case ExpressionType.MemberAccess:
MemberExpression me = (MemberExpression)expr;
object target = Walk(me.Expression);
switch (me.Member.MemberType)
{
case MemberTypes.Field:
return ((FieldInfo)me.Member).GetValue(target);
case MemberTypes.Property:
return ((PropertyInfo)me.Member).GetValue(target, null);
default:
throw new NotSupportedException();
}
case ExpressionType.Call:
MethodCallExpression mce = (MethodCallExpression)expr;
return mce.Method.Invoke(Walk(mce.Object), Walk(mce.Arguments));
default:
throw new NotSupportedException();
}
}
public void Dispose()
{
foreach(object obj in objects) {
Marshal.ReleaseComObject(obj);
Debug.WriteLine("Released: " + obj);
}
objects.Clear();
}
}
Marc Gravell的解决方案将不会与.Net 4 +一起工作，因为在COM中引入了Dynamic而不是对象。 此外，使用Excel COM进行测试时，构造函数会出现“转换不支持”（WalkImpl开关的缺省值）的异常。
表达式还有其他限制，因为没有索引属性，也没有可选参数。 从来没有编码的表达式，然后我不知道如何解决这些问题。
不会编译或执行：
using (var wrapper = new ComWrapper())
{
var application = wrapper.Add(() => new Excel.Application());
var workbook = wrapper.Add(() => application.Workbooks.Open(@"C:MyExcel.xls"));
Excel.Range range = wrapper.Add(() => workbook.Sheets[1].UsedRange);
string value = wrapper.Add(() => range.Cells[1, 1]).Value2;
}