common-lisp - 具有 SBCL 外部接口(interface)的 Win32 MessageBox

Question

我试图弄清楚如何使用 SBCL 外部接口(interface)调用 Win32 函数 MessageBox。 MessageBox function在“user32.dll”中实现的描述如下:

int MessageBox(
  [in, optional] HWND    hWnd,
  [in, optional] LPCTSTR lpText,
  [in, optional] LPCTSTR lpCaption,
  [in]           UINT    uType
);

[...]

MB_OK 0x00000000L The message box contains one push button: OK. This is the default. 

使用 cffi library 使用此函数很简单:

(cffi:load-foreign-library '(:default "user32"))

(cffi:defcfun ("MessageBoxA" message-box) :int
  (hwnd    :pointer)
  (text    :string)
  (caption :string)
  (type    :unsigned-int))

(message-box (cffi:null-pointer) "Hello" "Test" 0)

我尝试直接通过 SBCL 接口(interface) sb-alien 使用此函数:我无法使其工作。

(sb-alien:load-shared-object "user32")

(defvar c-null (sb-sys:int-sap 0))

(sb-alien:define-alien-routine ("MessageBoxA" MessageBox) sb-alien:int
  (hwnd    (* sb-alien:integer))
  (text    sb-alien:c-string)
  (caption sb-alien:c-string)
  (uType   (sb-alien:unsigned 4)))

;; need a small wrapper to convert Lisp's strings to foreign
(defun message-box (title message)
  (let ((title-alien   (sb-alien:make-alien-string title))
        (message-alien (sb-alien:make-alien-string message)))
    (MessageBox c-null title-alien message-alien 0)
    (sb-alien:free-alien title-alien)
    (sb-alien:free-alien message-alien)))

(message-box "Hello" Test")

没有任何错误或警告，但它不起作用。 SBCL 外星人接口(interface)工作如何？我尝试阅读 CFFI 和 SBCL 中的代码，但找不到任何简单的示例。

Answer 1

我不明白我怎么能在这个问题上花费整个下午，但字符串实际上是自动从/到 Lisp 转换的。所以代码其实很简单:

(sb-alien:load-shared-object "user32")

(defvar c-null (sb-sys:int-sap 0))

(define-alien-routine ("MessageBoxA" MessageBox) sb-alien:integer
  (hwnd    (* sb-alien:integer))
  (text    sb-alien:c-string)
  (caption sb-alien:c-string)
  (uType   (sb-alien:unsigned 4)))

(MessageBox c-null "Hello" "Test" 0)