原生 C 头文件:
typedef HANDLE HCAMERA;
int Begin(HCAMERA* h);
int End(HCAMERA h);
定义句柄:
typedef void *HANDLE;
我想要的原生 c 源代码:
HCAMERA h;
int r = 0;
r = Begin(&h);
VERIFY(r);
r = End(h);
VERIFY(r);
我在 sbcl 1.3.1 中尝试了以下代码,但无法正常工作。
(cffi:use-foreign-library "camera.dll")
(cffi:defcfun "Begin" :int
(handle :pointer))
(cffi:defcfun "End" :int
(handle :pointer))
(defparameter *camera* (cffi:foreign-alloc :pointer)) ; alloc handle
(cffi:with-foreign-object (handle :pointer)
(setf (cffi:mem-ref handle :pointer) *camera*) ; handle address
(Begin handle)
(End *camera*))
顺便说一句:如何获取异物(相机)的地址?我做得对吗?
最佳答案
你可以这样获取地址:
(defun get-foreign-address (obj)
(write-to-string (cffi:pointer-address obj) :base 16))
如果你有这个C文件
#include <stdio.h>
typedef void *HANDLE;
typedef HANDLE HCAMERA;
int Begin(HCAMERA* h);
int End(HCAMERA h);
int Begin(HCAMERA* h) {
printf("Address from Begin: %p\n", h);
return 0;
};
int End(HCAMERA h) {
printf("Address from End: %p\n", (void*)&h);
return 0;
};
你可以看到,例如通过这个通用的 lisp 文件,您可以从 lisp 和 C 中为 handle
获得相同的地址。它与 *camera*
不同,因为它是按值传递的。我在Linux上试过,但我想在Windows上应该是一样的,把camera.so
改成camera.dll
就可以了。
(cffi:use-foreign-library "camera.so")
(cffi:defcfun "Begin" :int
(handle :pointer))
(cffi:defcfun "End" :int
(handle :pointer))
(cffi:defcvar ("stdout" stdout) :pointer)
(defparameter *camera* (cffi:foreign-alloc :pointer))
(cffi:with-foreign-object (handle :pointer)
(format t "Address from Lisp: ~a~%" (get-foreign-address handle))
(Begin handle)
(format t "Address from Lisp: ~a~%" (get-foreign-address *camera*))
(End *camera*))
(cffi:foreign-funcall "fflush" :pointer stdout :int)
可能的陷阱:如果我使用来自 Emacs 的 lisp 代码,我看不到来自 C 的标准输出。我使用 sbcl --script file.lisp
从命令行执行它。希望这能以某种方式帮助您。
关于windows - 如何在普通的 lisp/cffi 中使用 Windows HANDLE 调用 native c 函数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34646657/