最近在做64位代码移植,发现很多老代码使用到了第三方的32位dll;而且这些第三方32位dll库已经年代久远,原开发商已不再了;所以急切的需要在64位主程序 中使用老的32位dll;查询很多解决方案 发现目前只有使用com 进程外组件的方法可以解决此问题;
同时运行in-process的COM客户端和COM服务器需要以相同的位元运行,因此在x86中都是如此,或者在x64中都是这样。因此:
- 如果COM客户端以x86运行,它会与注册表的x86侧进行通信,因此COM服务器必须在注册表的x86侧注册(regsvr32、regasm、自定义reg代码等必须以x86方式运行)。
- 如果COM客户端以x64运行,它将与注册表的x64侧进行通信,因此COM服务器必须在注册表的x44侧注册(regsvr32、regasm、自定义reg代码等必须以x64方式运行)。
注意1:对于out-of-process通信,x86客户端或服务器可以与x64服务器或客户端进行通信。这是COM的一个好处。
注2:.NET“Any CPU”编译功能允许对x86和x64使用完全相同的二进制文件,但此二进制文件仍需要在所需的注册表端注册,如果需要x86客户端和x64客户端支持,则需要在两个注册表端注册。
现总结解决方案如下:
1.建一个ATL项目
2.选择可执行文件,注意:应用程序类型这里选择exe,表示创建out-of-process COM组件;如果选择DLL,则是in-process,切记不要选错
3.添加ATL简单对象
4.在IDL文件中添加 接口
// MyCalc.h: CMyCalc 的声明#pragma once
#include "resource.h" // 主符号#include "ATLProject2_i.h"#if defined(_WIN32_WCE) && !defined(_CE_DCOM) && !defined(_CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA)
#error "Windows CE 平台(如不提供完全 DCOM 支持的 Windows Mobile 平台)上无法正确支持单线程 COM 对象。定义 _CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA 可强制 ATL 支持创建单线程 COM 对象实现并允许使用其单线程 COM 对象实现。rgs 文件中的线程模型已被设置为“Free”,原因是该模型是非 DCOM Windows CE 平台支持的唯一线程模型。"
#endifusing namespace ATL;// CMyCalcclass ATL_NO_VTABLE CMyCalc :public CComObjectRootEx<CComSingleThreadModel>,public CComCoClass<CMyCalc, &CLSID_MyCalc>,public IDispatchImpl<IMyCalc, &IID_IMyCalc, &LIBID_ATLProject2Lib, /*wMajor =*/ 1, /*wMinor =*/ 0>
{
public:CMyCalc(){}DECLARE_REGISTRY_RESOURCEID(106)BEGIN_COM_MAP(CMyCalc)COM_INTERFACE_ENTRY(IMyCalc)COM_INTERFACE_ENTRY(IDispatch)
END_COM_MAP()DECLARE_PROTECT_FINAL_CONSTRUCT()HRESULT FinalConstruct(){return S_OK;}void FinalRelease(){}public:STDMETHOD(Add)(LONG num1, LONG num2, LONG* retnum);
};OBJECT_ENTRY_AUTO(__uuidof(MyCalc), CMyCalc)
// MyCalc.cpp: CMyCalc 的实现#include "pch.h"
#include "MyCalc.h"// CMyCalcSTDMETHODIMP CMyCalc::Add(LONG num1, LONG num2, LONG* retnum)
{// TODO: 在此处添加实现代码*retnum = num1 + num2;return S_OK;
}
5.在实现类中添加C++函数,实现在IDL新增的接口,此时可以调用x86的DLL,实现自己想要的功能
// ATLProject2.idl: ATLProject2 的 IDL 源
//// 此文件将由 MIDL 工具处理以
// 生成类型库(ATLProject2.tlb)和封送处理代码。import "oaidl.idl";
import "ocidl.idl";[object,uuid(97f7eb08-c930-4723-ad8d-999446e6436c),dual,nonextensible,pointer_default(unique)
]
interface IMyCalc : IDispatch
{[id(1)] HRESULT Add([in] LONG num1, [in] LONG num2, [out] LONG* retnum);
};
[uuid(2971ec98-ab45-4292-846c-f034a0ad91d4),version(1.0),
]
library ATLProject2Lib
{importlib("stdole2.tlb");[uuid(dd2f0216-ce77-4e47-b47e-4d8a30a2c3d2)]coclass MyCalc{[default] interface IMyCalc;};
};import "shobjidl.idl";
6.编译选项选X86,编译,生成ATLProject1.exe文件
7.打开cmd窗口,cd生成目录,注册COM组件:ATLProject2.exe /regserver(反注册:ATLProject2.exe /unregserver),VS编译后会自动注册,次步可以省略
cd /d %~dp0
ATLProject2.exe /regserver
8.64位客户端调用:创建测试项目,Project1,编译选项选择x64,包含ATLProject1_i.h和ATLProject1_i.c文件,CoCreateInstance的第三个测试填CLSCTX_LOCAL_SERVER,运行弹出测试窗口,成功!收工下班(2024.7.26 18:29)
// header.h: 标准系统包含文件的包含文件,
// 或特定于项目的包含文件
//#pragma once#include "targetver.h"
#define WIN32_LEAN_AND_MEAN // 从 Windows 头文件中排除极少使用的内容
// Windows 头文件
#include <windows.h>
// C 运行时头文件
#include <stdlib.h>
#include <malloc.h>
#include <memory.h>
#include <tchar.h>#import "../bin/ATLProject2.tlb" raw_interfaces_only, raw_native_types, no_namespace, named_guids
// WindowsProject1.cpp : 定义应用程序的入口点。
//#include "framework.h"
#include "WindowsProject1.h"
#include <string>
#include <iostream>
#define MAX_LOADSTRING 100// 全局变量:
HINSTANCE hInst; // 当前实例
WCHAR szTitle[MAX_LOADSTRING]; // 标题栏文本
WCHAR szWindowClass[MAX_LOADSTRING]; // 主窗口类名// 此代码模块中包含的函数的前向声明:
ATOM MyRegisterClass(HINSTANCE hInstance);
BOOL InitInstance(HINSTANCE, int);
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
INT_PTR CALLBACK About(HWND, UINT, WPARAM, LPARAM);int APIENTRY wWinMain(_In_ HINSTANCE hInstance,_In_opt_ HINSTANCE hPrevInstance,_In_ LPWSTR lpCmdLine,_In_ int nCmdShow)
{UNREFERENCED_PARAMETER(hPrevInstance);UNREFERENCED_PARAMETER(lpCmdLine);// TODO: 在此处放置代码。// 初始化全局字符串LoadStringW(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);LoadStringW(hInstance, IDC_WINDOWSPROJECT1, szWindowClass, MAX_LOADSTRING);MyRegisterClass(hInstance);// 执行应用程序初始化:if (!InitInstance (hInstance, nCmdShow)){return FALSE;}HACCEL hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_WINDOWSPROJECT1));MSG msg;// 主消息循环:while (GetMessage(&msg, nullptr, 0, 0)){if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg)){TranslateMessage(&msg);DispatchMessage(&msg);}}return (int) msg.wParam;
}//
// 函数: MyRegisterClass()
//
// 目标: 注册窗口类。
//
ATOM MyRegisterClass(HINSTANCE hInstance)
{WNDCLASSEXW wcex;wcex.cbSize = sizeof(WNDCLASSEX);wcex.style = CS_HREDRAW | CS_VREDRAW;wcex.lpfnWndProc = WndProc;wcex.cbClsExtra = 0;wcex.cbWndExtra = 0;wcex.hInstance = hInstance;wcex.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_WINDOWSPROJECT1));wcex.hCursor = LoadCursor(nullptr, IDC_ARROW);wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);wcex.lpszMenuName = MAKEINTRESOURCEW(IDC_WINDOWSPROJECT1);wcex.lpszClassName = szWindowClass;wcex.hIconSm = LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_SMALL));return RegisterClassExW(&wcex);
}//
// 函数: InitInstance(HINSTANCE, int)
//
// 目标: 保存实例句柄并创建主窗口
//
// 注释:
//
// 在此函数中,我们在全局变量中保存实例句柄并
// 创建和显示主程序窗口。
//
BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
{hInst = hInstance; // 将实例句柄存储在全局变量中HWND hWnd = CreateWindowW(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, nullptr, nullptr, hInstance, nullptr);if (!hWnd){return FALSE;}ShowWindow(hWnd, nCmdShow);UpdateWindow(hWnd);return TRUE;
}//
// 函数: WndProc(HWND, UINT, WPARAM, LPARAM)
//
// 目标: 处理主窗口的消息。
//
// WM_COMMAND - 处理应用程序菜单
// WM_PAINT - 绘制主窗口
// WM_DESTROY - 发送退出消息并返回
//
//
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{switch (message){case WM_COMMAND:{int wmId = LOWORD(wParam);// 分析菜单选择:switch (wmId){case IDM_ABOUT:DialogBox(hInst, MAKEINTRESOURCE(IDD_ABOUTBOX), hWnd, About);break;case IDM_EXIT:DestroyWindow(hWnd);break;case ID_TEST:{IMyCalcPtr mycalcptr(CLSID_MyCalc);if (mycalcptr!= NULL){long retNum = 0;mycalcptr->Add(15,23,&retNum);std::string strNum = std::to_string(retNum);MessageBoxA(NULL, strNum.c_str(), "Tips", MB_OK);}else{MessageBoxA(NULL, "com 组件创建失败", "Tips", MB_OK);}}break;case ID_TEST1:{}break;default:return DefWindowProc(hWnd, message, wParam, lParam);}}break;case WM_PAINT:{PAINTSTRUCT ps;HDC hdc = BeginPaint(hWnd, &ps);// TODO: 在此处添加使用 hdc 的任何绘图代码...EndPaint(hWnd, &ps);}break;case WM_DESTROY:PostQuitMessage(0);break;default:return DefWindowProc(hWnd, message, wParam, lParam);}return 0;
}// “关于”框的消息处理程序。
INT_PTR CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{UNREFERENCED_PARAMETER(lParam);switch (message){case WM_INITDIALOG:return (INT_PTR)TRUE;case WM_COMMAND:if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL){EndDialog(hDlg, LOWORD(wParam));return (INT_PTR)TRUE;}break;}return (INT_PTR)FALSE;
}
输出结果:38