如何在 common lisp / cffi 中使用 windows HANDLE 调用本机 c 函数答案

【问题标题】：How to call native c function with windows HANDLE in common lisp / cffi如何在 common lisp / cffi 中使用 windows HANDLE 调用本机 c 函数
【发布时间】：2016-01-07 02:56:35
【问题描述】：

原生 c 头文件：

typedef HANDLE HCAMERA;
int Begin(HCAMERA* h);
int End(HCAMERA h);

HANDLE 已定义：

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*))

顺便说一句：如何获取外来物体（相机）的地址？我做对了吗？

【问题讨论】：

标签： windows lisp common-lisp sbcl cffi

【解决方案1】：

你可以这样获取地址：

(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 从命令行执行它。希望对您有所帮助。

【讨论】：

【解决方案2】：

我终于想通了使用以下代码：

(defparameter *camera-handle* (cffi:null-pointer))
(defun camera-open ()
  (unless (cffi:null-pointer-p *camera-handle*)
    (EndHVDevice (cffi:mem-ref *camera-handle* :pointer))
    (cffi:foreign-free *camera-handle*))
  (setf *camera-handle* (cffi:foreign-alloc :pointer))
  (BeginHVDevice *camera-handle*))

(defun camera-close ()
  (unless (cffi:null-pointer-p *camera-handle*)
    (EndHVDevice (cffi:mem-ref *camera-handle* :pointer))
    (cffi:foreign-free *camera-handle*)
    (setf *camera-handle* (cffi:null-pointer))))

【讨论】：