lispworks fli：無法轉換爲外部類型

我想根據下面的示例A添加一個列表框。 The Common Lisp Cookbook - Using the Win32 API lispworks fli：無法轉換爲外部類型

我添加了一個函數sendmessage，它映射到它的windows API計數器部分並從wndproc調用它。但它抱怨像下面的類型轉換錯誤。

CL-USER 1 > (create-toplevel-window "ppp") 

Error: #<Pointer to type (:UNSIGNED :SHORT) = #x01E902D8> cannot be 
converted to foreign type (:UNSIGNED-INTEGER-TYPE 32).

以下是與錯誤相關的功能。任何想法來解決這個問題？我試圖定義sendmail與lparam爲（：unsigned：short）但沒有用。

(fli:define-foreign-function 
    (SendMessage "SendMessage" :dbcs) 
((hwnd hwnd) (msg uint) (wparam ulong) (lparam (:unsigned :long))) 
    :result-type ulong :calling-convention :stdcall) 


(fli:define-foreign-callable 
    (wndproc :result-type :long :calling-convention :stdcall) 
    ((hwnd hwnd) (msg (:unsigned :long)) 
    (wparam (:unsigned :long)) (lparam (:unsigned :long))) 
    (case msg 
    (#.WM_CREATE 
    (fli:with-foreign-string ;; class name pointer 
     (cn-p ec bc :external-format (external-format)) "LISTBOX" 
    (fli:with-foreign-string ;; window name pointer 
     (wn-p ec bc :external-format (external-format)) "" 
     (let ((lstbx (createwindowex hwnd cn-p wn-p 
         (logior ws_visible ws_child lbs_notify) 
       cw_usedefault cw_usedefault cw_usedefault cw_usedefault 
       0 0 200 100))) 
    (fli:with-foreign-string (msg ec bc :external-format (external-format)) "item1" 
       (sendmessage lstbx LB_ADDSTRING 0 msg)))))) 
       ;;0 0 (GetModuleHandle-current 0) 0)))) 

    ;;(createwindowex "listbox4test" hwnd)) 
    ;;(#.WM_PAINT (wndproc-paint hwnd msg wparam lparam)) 
    #+console (#.WM_DESTROY (PostQuitMessage 0) 0) 
    (t (DefWindowProc hwnd msg wparam lparam))))

來源

2016-10-09 user1461328

只是想分享一下，如果我在sendmessage函數中聲明lparam爲：pointer（not：unsinged：long above），它不會抱怨。 – user1461328

我改變了sendmessage函數，如下所示。而這一次，它沒有抱怨。

(fli:define-foreign-function 
    (SendMessage "SendMessage" :dbcs) 
((hwnd hwnd) (msg uint) (wparam ulong) (lparam :pointer)) ;;;(lparam (:unsigned :long))) 
    :result-type ulong :calling-convention :stdcall)

來源

2016-10-11 15:16:10 user1461328

lispworks fli：無法轉換爲外部類型

回答

相關問題