COM

Com激活说明

Server	Client	Current Support
COM*	.NET Core	Yes
.NET Core	COM*	Yes
.NET Core	.NET Core	Yes
.NET Framework	.NET Core	No
.NET Core	.NET Framework	No

• “COM”用于表示除 .NET 以外的任何 COM 环境（例如 C/C++）。

反射和直接引用都可以，示例源代码地址

1. DemoVB.Client：VB客户端
2. DemoWin.Client：.NETFramework Winform客户端
3. DemoWin.Contract：.NETFramework公开服务
4. DemoWin.Plugin：.NETFramework和.NET Core服务实现
5. DemoCore.Client：.NETCore WPF客户端
6. DemoCore.Contract：.NETCore和.NETFramework公开服务
7. DemoCore.Plugin：.NET Core和.Net Framework服务实现
8. Demo.Plugin：模块插件
9. update：更新程序

提示

1. 更新程序需要放在对应的客户端目录下，因为是从当前客户端查找的...

2. 不带UI的COM调用很容易，带UI的COM比较复杂，特别是带IOC的UI...

VB与.NET Framework

提示

VB客户端放在哪里都无所谓，通过COM CLSID找到，即使通过tlb引入。

VB调用.NET Framework

定义GUID

public sealed class ContractGuids
{
    public const string ServerClass = "XXXX-XXX-XXX-XXXX";
    public const string ServerInterface = "XXXX-XXX-XXX-XXXX";
}

公开服务接口

[ComVisible(true)]
[Guid(ContractGuids.ServerInterface)]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IServer
{
    void StartWin();
}

实现服务接口

[ComVisible(true)]
[Guid(ContractGuids.ServerClass)]
public class Server : IServer
{
    public void StartWin()
    {
        var login=new FrmLogin();
        login.ShowDialog();
    }
}

同时勾选项目属性为COM互操作注册，生成一个带xxx.tlb的文件

或者使用Regasm.exe

regasm xxx.dll /tlb:xxx.tlb

如无法找到，需要加上/codebase，即regasm xxx.dll /tlb:xxx.tlb /codebase

客户端调用

Dim obj As Object
'方式一：引用
'Set obj = New DemoWin_Plugin.Server
'obj.startwin

'方式二：反射
Set obj = CreateObject("DemoWin.Plugin.Server")
obj.startwin

set obj=Nothing

.NET Core与.NET Core

官网示例NET Core Com

NETCore与NETCore

.Net Core支持多框架

为了使DemoCore.Contract同时支持.NET Core和.NET Framework。

默认新建的是.NET Core类库项目，

编辑项目文件，将<TargetFramework>net7.0-windows</TargetFramework>

改成<TargetFrameworks>net7.0-windows;net48</TargetFrameworks>，

关闭项目，重新打开即可。

步骤与上诉流程类似，部分差异。

公开服务接口差异

这里使用的是WPF作为页面展示，编辑项目文件添加<UseWPF>true</UseWPF>，使接口能返回Window供客户端使用。

另外添加了一个StartWpf的方法，实现带Prism的启动，将模块化的功能全部搬过来。

[ComVisible(true)]
[Guid(ContractGuids.ServerInterface)]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IServer
{
    //页面直接使用
    Window StartCore();

    //Prism IOC使用
    void StartWpf();

    //不带UI的计算
    int Sum(int a,int b);
}

实现服务接口差异

这里使用的是WPF作为页面展示

编辑项目文件添加<EnableComHosting>true</EnableComHosting>，生成xxxx.comhost.dll文件。

使用regsvr32对xxx.comhost.dll进行注册。

编辑项目文件添加<EnableRegFreeCom>true</EnableRegFreeCom>，生成XXXX..X.manifest清单文件。

另外加了一个带Prism的启动，需要将App.xml文件右击属性，将生成操作调整为页。

提示

因为没有app.xaml作为启动项，所以app.xaml里的资源不能直接绑定了，需要单独使用。

这里是将模块的所有功能都复制过来，只调整了一个App.xaml，导致IOC也是包含在里面。

正如VB客户端无法使用IOC，但是可以调用StartWPF作为整体启动。

另外.NET Core客户端已经有了Application，无法启用StartWPF，但是可以将IOC放在外部客户端上，调用StartCore方法

[ComVisible(true)]
[Guid(ContractGuids.ServerClass)]
public class Server : IServer
{
    /// <summary>
    /// 不带IOC
    /// </summary>
    public Window StartCore()
    {
        return new MainView();
    }

    /// <summary>
    /// 使用Prism
    /// </summary>
    public void StartWPF()
    {
        var app = new App();
        app.Run();
    }

    public int Sum(int a, int b)
    {
        return a + b;
    }
}

客户端调用差异

.NET Core客户端

var caller = new Server();
var mainView= caller.StartCore();
mainView.ShowDialog();
Application.Current.MainWindow = mainView;

.NET Core代理

// The following classes are typically defined in a PIA, but for this example
// are being defined here to simplify the scenario.
namespace Activation
{
    /// <summary>
    /// Managed definition of CoClass
    /// </summary>
    [ComImport]
    [CoClass(typeof(ServerClass))]
    [Guid(ContractGuids.ServerInterface)] // By TlbImp convention, set this to the GUID of the parent interface
    internal interface Server : IServer
    {
    }

    /// <summary>
    /// Managed activation for CoClass
    /// </summary>
    [ComImport]
    [Guid(ContractGuids.ServerClass)]
    internal class ServerClass
    {
    }
}

.NET Framework与.NET Core

.Net Framework调用.Net Core

无法使用COM 激活的方式调用，但是可以使用COM CLSID 找到。

var comType = Type.GetTypeFromCLSID(Guid.Parse(DemoCore.Contract.ContractGuids.ServerClass));
var active = System.Activator.CreateInstance(comType) as DemoCore.Contract.IServer;
//var sum=active.Sum(2,5);
//MessageBox.Show(sum.ToString());
var mainView=active.StartCore();
mainView.ShowDialog();

.NET Framework Prism

.NET Framework客户端DemoWin.Client，调用.NET Core的WPF程序，并带Prism插件。

1. 由于DemoCore.Plugin支持.NET Cor和.NET Framework，在通过上述调用时，DemoCore.Plugin.comhost.dll需要Regsvr32注册。

2. 另外客户端是.NET Framework，虽然提供的服务是.NET Core，但是对应的Demo.Plugin需要是.NET Framework版本。

3. 最后还需要将DemoCore.Plugin生成的.NET Framework版本拷贝到DemoWin.Client目录下。

既DemoWin.Client目录下应包含DemoCore.Plugin的.NET Framework版本、Demo.Plugin的.NET Framework版本、update.exe、以及它们对应的Prism依赖。最后别忘了需要注册DemoCore.Plugin.comhost.dll文件。

.NET Framework与.NET Framework

这种通过COM CLSID用的不多，同一种语言，直接引用，或者用反射。

.NET Framework调用.NET Framework

var comType = Type.GetTypeFromCLSID(Guid.Parse(ContractGuids.ServerClass));
var active = System.Activator.CreateInstance(comType) as IServer;
active.StartWin();

VB与.NET Core

VB调用.NET Core

Dim obj As Object

Set obj = CreateObject("DemoCore.Plugin.Server")
obj.StartWpfCore

Set obj = Nothing

VB Prism

VB调用.NET Core Prism

因为直接调用DemoCore.Plugin.Server服务，而它是.NET Core，更新的插件既Demo.Plugin也应该是.NET Core，不能使用.NET Framework，否则提示找不到的问题。

另外，更新update.exe程序是找当前目录的，所有vb客户端也需要放到当前目录下才行。