实现跨32位64位函数调用的方法 附获取CPU序列号Demo

changguangyu321

原理：
进程内COM是DLL的形式，需要载入主程序的进程空间，所以32位和64位是不通用的。
而通过进程外COM，可以轻松实现单COM服务，32位和64位通用。

这个是获取CPU序列号的Demo。

Delphi代码：
function TSystemInfo.Get_CPUSerialNumber: WideString;
var
  LCPUID: TCPUIDRec;
begin
  SetProcessAffinityMask(GetCurrentProcess, 1);
  LCPUID := GetCPUID(1);
  Result := LCPUID.EAX.ToHexString(8) + LCPUID.EBX.ToHexString(8) +
    LCPUID.ECX.ToHexString(8) + LCPUID.EDX.ToHexString(8);
end;


VBA代码：
Function GetCPUSN() As String
    Set Server = CreateObject("COMServer.SystemInfo")
    GetCPUSN = Server.CPUSerialNumber
End Function

调用测试：
Sub COMDemo()
    MsgBox GetCPUSN
End Sub


32位Excel 2007：

64位Excel 2019


VSTO里调用更简单：
首先添加引用

选择COMServer

然后using COMServer; 就可以调用了（使用前期绑定，带代码提示）

zpy2

通过进程外COM 科普一下吗？VB6也有类似的active com吗？

changguangyu321

zpy2 发表于 2019-3-1 13:11
通过进程外COM 科普一下吗？VB6也有类似的active com吗？

就是exe形式的COM Server。包括跨进程数据共享，也可以用这种方式
VB6不太了解，C#是可以做的，这里有demo
https://code.msdn.microsoft.com/windowsdesktop/CSExeCOMServer-3b1c1054

headtrain

有劳大佬看一下：我的电脑的是WIN10 64位+Office365 64位，CMD注册成功，但运行到这句Set Server = CreateObject("COMServer.SystemInfo")就弹出错误：ActiveX 部件不能创建对象，请问该如何解决呢？非常感谢！

changguangyu321

headtrain 发表于 2019-11-23 20:58
有劳大佬看一下：我的电脑的是WIN10 64位+Office365 64位，CMD注册成功，但运行到这句Set Server = CreateO ...

没有注册附件里的COM组件，需要先注册才行

fxl447098457

大佬展示下delphi怎么写com步骤哈。只会写导出函数的标准dll.这种就不会了。