COM 互操作，客户端未在进程外 COM 中找到接口

Question

我使用 Microsoft 的 CSExeCOMServer 作为设置进程外 COM 的基础服务器，但无法正常工作。服务器是64位的，客户端是32位的。

这是示例接口

[Guid(XXCryptService.InterfaceId), ComVisible(true)/*, InterfaceType(ComInterfaceType.InterfaceIsIUnknown)*/]
public interface IXXCryptService
{
  [DispId(1)] string Encrypt(string password, string key);
  [DispId(2)] string Decrypt(string password, string key);
}

和类

[ClassInterface(ClassInterfaceType.None)]   
[Guid(XXCryptService.ClassId), ComVisible(true)]
public class XXCryptService : ReferenceCountedObject, IXXCryptService
{
    internal const string ClassId =
        "C5F6938B-5593-4872-B8C7-B47EE33EABCD";
    internal const string InterfaceId =
        "6990FF5F-22E2-4032-8B98-36115DBCEFFF";

    [EditorBrowsable(EditorBrowsableState.Never)]
    [ComRegisterFunction()]
    public static void Register(Type t)
    {
        try
        {
            COMHelper.RegasmRegisterLocalServer(t);
        }
        catch (Exception ex)
        {
            Console.WriteLine(ex.Message);
            throw ex; 
        }
    }

    [EditorBrowsable(EditorBrowsableState.Never)]
    [ComUnregisterFunction()]
    public static void Unregister(Type t)
    {
        try
        {
            COMHelper.RegasmUnregisterLocalServer(t);
        }
        catch (Exception ex)
        {
            Console.WriteLine(ex.Message);
            throw ex;
        }
    }

    public string Encrypt(string password, string key)
    {
      return "Encrypted";
    }

    public string Decrypt(string password, string key)
    {
      return "Decrypted";
    }

}

程序运行，但是当客户端连接时，在服务器触发 ObjectClassFactory 上的 CreateInstance 并使用 Marshal.GetComInterfaceForObject(new XXCryptService(), typeof(IXXCryptService) 返回 ppvObject 上的对象后，它在客户端上崩溃)) 并返回 0。

在 .NET 上运行客户端会触发“无法将类型为‘COMTest.XXCryptService’的 COM 对象转换为接口类型“COMTest.IXXCryptService”。此操作失败，因为对 IID 为“{6990FF5F-22E2-4032-8B98-36115DBCEFFF}”的接口的 QueryInterface 调用因以下错误而失败：未找到元素。 HRESULT：0x8002802B（TYPE_E_ELEMENTNOTFOUND））。”。

[Guid("6990FF5F-22E2-4032-8B98-36115DBCEFFF")]
//[InterfaceType(ComInterfaceType.InterfaceIsDual)]
interface IXXCryptService
{
  [DispId(1)] string Encrypt(string password, string key);
  [DispId(2)] string Decrypt(string password, string key);
}

[ComImport, Guid("C5F6938B-5593-4872-B8C7-B47EE33EABCD")]
class XXCryptService
{
}

class Program
{
  static void Main(string[] args)
  {
    XXCryptService cs = new XXCryptService();
    IXXCryptService ics = (IXXCryptService) cs;
    Console.WriteLine(ics.Encrypt("Test","Test"));
    Console.ReadKey();
  }
}

在 Delphi 上运行客户端会触发 EIntfCastError 异常，并显示消息“接口不支持”。 COM是用“导入类型库”导入的，这样使用。

procedure TForm1.FormCreate(Sender: TObject);
begin
  FCrypter := CoXXCryptService.Create;
end;

TLB 界面看起来像这样

IXXCryptService = interface(IDispatch)
  ['{6990FF5F-22E2-4032-8B98-36115DBCEFFF}']
  function Encrypt(const password: WideString; const key: WideString): WideString; safecall;
  function Decrypt(const password: WideString; const key: WideString): WideString; safecall;
end;

// *********************************************************************//
// DispIntf:  IXXCryptServiceDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {6990FF5F-22E2-4032-8B98-36115DBCEFFF}
// *********************************************************************//
IXXCryptServiceDisp = dispinterface
  ['{6990FF5F-22E2-4032-8B98-36115DBCEFFF}']
  function Encrypt(const password: WideString; const key: WideString): WideString; dispid 1;
  function Decrypt(const password: WideString; const key: WideString): WideString; dispid 2;
end;

我已经通过注册表检查过，一切似乎都已正确注册，所以我不明白为什么我会遇到这个问题。

这里有人知道可能出现什么问题吗？

编辑：以 64 位编译客户端并且工作正常。另外，它引用了错误的路径，在我调整它之后，我在 .NET x86 客户端上遇到了不同的错误

此操作失败，因为 COM 组件上针对 IID '{6990FF5F-22E2-4032-8B98-36115DBCEFFF 的接口的 QueryInterface 调用}' 由于以下错误而失败：加载类型库/DLL 时出错。 （HRESULT 异常：0x80029C4A (TYPE_E_CANTLOADLIBRARY)）

Answer 1

这是注册问题，而且事实上，只有当程序集具有与 regasm 相同的目标时，regasm 才会执行。 regasm 应该有一个“/com_oop 之类的”参数，使其注册 LocalServer32 而不是 InprocServer32，并在 64 位系统上同时注册 32 位和 64 位。

为了解决这个问题，我必须暂时将可执行文件（具有相同的路径）编译为32位，运行32位regasm（使用/tlb:..），然后编译回64位，再次运行64位regasm（使用/tlb:..） ），现在对于 64 位可执行文件来说，它可以在 32 位和 64 位上正常工作。

CSExeComServer 有一个注册和注销方法，可以手动删除 InprocServer32 密钥并添加 LocalServer32。为了确保它正常工作，我将更改它，检测它是否在 64 位系统上注册，然后让它在那里正确注册。完成后，我将发布对注册方法所做的更改。

Answer 2

这个问题可能也用这个解决了（有同样的问题，但从 64 位客户端访问 32 位服务器的另一种方式，那么你可以使用 CLSCTX_ACTIVATE_32_BIT_SERVER 代替）：

HRESULT hr = CoCreateInstance(CLSID_ZZZ, NULL, CLSCTX_LOCAL_SERVER | CLSCTX_ACTIVATE_64_BIT_SERVER, IID_IZZZ, (void ** )&l_IZZZ);

Answer 3

根据您与 IXXCryptService 接口的需要，尝试添加 [ClassInterface(ClassInterfaceType.AutoDispatch)] 或 [ClassInterface(ClassInterfaceType.AutoDual)]

[ClassInterface(ClassInterfaceType.AutoDual)] 
[Guid(XXCryptService.InterfaceId), ComVisible(true)/*, InterfaceType(ComInterfaceType.InterfaceIsIUnknown)*/]
public interface IXXCryptService

Answer 4

我认为在所有情况下通过 COM 混合 32 位和 64 位进程都会失败。

为了能够从 32 位 Delphi 进程访问，DotNet 程序集必须编译为 x86（即 32 位模式），而不是 x64。

AFAIK COM 不会跨越 32/64 位边界。

为了在 64 位和 32 位之间进行通信，您需要另一个技巧，例如 是否可以从 32 位应用程序访问 64 位 dll？