想通过ole32.dll调用cad的com组件。
这是python的做法
ole32 = ctypes.windll.ole32
# 定义 CLSIDFromString 函数原型
CLSIDFromString = ole32.CLSIDFromString
CLSIDFromString.argtypes = [ctypes.c_wchar_p, ctypes.POINTER(ctypes.c_ulong)]
# 定义 progid
progid = "ZWCAD.Application"
# 初始化一个 ULONG 类型的变量
clsid = ctypes.c_ulong()
# 调用 CLSIDFromString 函数
result = CLSIDFromString(progid, ctypes.byref(clsid))
然后这是sb-alien的
;;; 加载外部函数库
(sb-alien:load-shared-object "ole32.dll")
;;; 定义guid结构
(define-alien-type GUID
(struct guid (data1 (sb-alien:unsigned 32))
(data2 (sb-alien:unsigned 16))
(data3 (sb-alien:unsigned 16))
(data4 (array (sb-alien:unsigned 8) 8))))
;; 函数 CLSIDFromString
(sb-alien:define-alien-routine("CLSIDFromString" CLSIDFromString)
sb-alien:int
(LPCOLESTR (c-string))
(LPCLSID (* GUID))
)
(defvar lpsz (make-alien (sb-alien:c-string)))
(setf lpsz "ZWCAD.Application")
;; 传参
(defvar pclsid (make-alien (sb-alien:struct guid)))
(defvar *result* (make-alien sb-alien:int))
;;调用函数
(setf (sb-alien:deref *result*) (CLSIDFromString lpsz pclsid))
(format t "CLSIDFromProgID result: ~A~%" (sb-alien:deref *result*))
结果python能正常获取CLSID,sbcl失败了
CLSIDFromProgID result: -2147221005
函数的调用结果是progid未注册(应该),直接抓瞎。
怀疑是string在传参的过程中被修改了,未能传递正确字符。但不知道从何入手了。
以下是用cffi调用的代码,发生了同样的错误。
(ql:quickload :cffi)
(cffi:load-foreign-library "ole32.dll")
(cffi:defcstruct guid
(data1 :uint32)
(data2 :uint16)
(data3 :uint16)
(data4 :uint8 :count 8))
(cffi:defcfun ("CLSIDFromString" clsid-from-string) :int
(str :string)
(clsid :pointer (:struct guid)))
(cffi:with-foreign-object (clsid '(:struct guid))
(let ((result (clsid-from-string "Shell.Application" clsid)))
(print result)))
CLSIDFromString 的第一个参数,[in] LPCOLESTR lpsz 的类型,可能不是 c-string,或者说不是 ascii 编码的 char,而是 wchar_t。来源:https://stackoverflow.com/a/1607840/18964608
至于 c-string,manual 里说:c-string: an array of char in the structure.
有可能是因为这个
(defvar lpsz (make-alien (sb-alien:c-string)))
(print lpsz)
(setf lpsz "Shell.Application")
(print lpsz)
赋值之后修改了类型
#<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X00E41980 :TYPE (* SB-ALIEN:C-STRING)>
"Shell.Application"
还在排查。
找到解决办法了。
字符转换宏
(defmacro with-ole-str ((var str) &body body)
"wchar_t string which ends of null"
(let ((len (gensym)))
`(let* ((,len (length ,str)))
(cffi:with-foreign-object (,var :unsigned-short (1+ ,len))
(loop for i from 0 below ,len
do (setf (cffi:mem-aref ,var :unsigned-short i)
(char-code (char ,str i)))
finally (setf (cffi:mem-aref ,var :unsigned-short ,len) 0))
,@body))))
(cffi:with-foreign-objects ((clsid 'guid))
(with-ole-str (s "Shell.Application")
(print (cffi:foreign-funcall "CLSIDFromString" :pointer s :pointer clsid :int))))
昨天自己写了一个,创建的是8位数组,结果是要创建16为数组。哭死。
最好不要使用 char-code,它返回的是 32 位数字,可能会整数溢出,比如:
(char-code #\😳)
=> 128563
使用函数 sb-ext:string-to-octet
可以将字符串转换成其他编码的 8 bit vector,参见:SBCL 2.4.5 User Manual
举例,将字符串 "hello world"
转换为 utf-16 小端序的 8 bit byte vector:
(sb-ext:string-to-octet "Hello world" :external-format '(:utf-16be))
不过 sbcl 有直接把字符串转换为外部字符串的方式,使用函数 sb-ext:make-alien-string
,参见:SBCL 2.4.5 User Manual
注意,用这个函数创建的字符串要用 free-alien
来释放,就像 C 里用 malloc
分配的内存一样。
举例:创建 Windows 能识别的 utf-16 字符串:
(setq str (sb-alien:make-alien-string "Hello world" :external-format '(utf-16be) :null-terminate t))
;; do something
(sb-alien:free-alien str)
这里给出一个让使用变得简单,省得还要 free-alien
的宏:
(defmacro with-external-format-string ((var string format) &body body)
`(let ((,var (sb-alien:make-alien-string
,string
:external-format ,format
:null-terminate t)))
(unwind-protect
(progn . ,body)
(sb-alien:free-alien ,var))))
用法:
(with-external-format-string (foo "Hello world" '(:utf-16le))
(call-with-string foo)) ; 假设 `call-with-string' 是一个需要 utf-16 的字符串
没跑起来,排错之后····
sb-ext:string-to-octet函数名应该是sb-ext:string-to-octets
make-alien-string 中,应该传入:utf-16be
结果竟然得到的是一个8位数组,结果dll接口要的是16为数组
所以有种gpt的感觉。![:sob: :sob:](https://emacs-china.org/images/emoji/apple/sob.png?v=12)
(defun LPCOLESTR (txt)
(let* ( (size (length txt))
(wchar (sb-alien:make-alien short (1+ size))))
(loop for i from 0 below size do
(setf (sb-alien:deref wchar i) (char-code (char txt i)))
finally
(setf (sb-alien:deref wchar size) 0))
(return-from LPCOLESTR wchar)
)
)
最后抄了cffi的方法,创建的字符创需要手动释放内存。