संदेश बॉक्स त्रुटि: विदेशी आयात असुरक्षित

Question

import Graphics.Win32 
import System.Win32.DLL 
import Control.Exception (bracket) 
import Foreign 
import System.Exit 
main :: IO() 
main = do 
    mainInstance <- getModuleHandle Nothing 
    hwnd <- createWindow_ 200 200 wndProc mainInstance 
    createButton_ hwnd mainInstance 
    messagePump hwnd 
wndProc :: HWND -> WindowMessage -> WPARAM -> LPARAM -> IO LRESULT 
wndProc hwnd wmsg wParam lParam 
    | wmsg == wM_DESTROY = do 
     sendMessage hwnd wM_QUIT 1 0 
     return 0 
    | wmsg == wM_COMMAND && wParam == 1 = do 
     messageBox nullPtr "Yahoo!!" "Message box" 0 -- Error! Why? :(
     return 0 
    | otherwise = defWindowProc (Just hwnd) wmsg wParam lParam 
createWindow_ :: Int -> Int -> WindowClosure -> HINSTANCE -> IO HWND 
createWindow_ width height wndProc mainInstance = do 
    let winClass = mkClassName "ButtonExampleWindow" 
    icon <- loadIcon Nothing iDI_APPLICATION 
    cursor <- loadCursor Nothing iDC_ARROW 
    bgBrush <- createSolidBrush (rgb 240 240 240) 
    registerClass (cS_VREDRAW + cS_HREDRAW, mainInstance, Just icon, Just cursor, Just bgBrush, Nothing, winClass) 
    w <- createWindow winClass "Button example" wS_OVERLAPPEDWINDOW Nothing Nothing (Just width) (Just height) Nothing Nothing mainInstance wndProc 
    showWindow w sW_SHOWNORMAL 
    updateWindow w 
    return w 
createButton_ :: HWND -> HINSTANCE -> IO() 
createButton_ hwnd mainInstance = do 
    hBtn <- createButton "Press me" wS_EX_CLIENTEDGE (bS_PUSHBUTTON + wS_VISIBLE + wS_CHILD) (Just 50) (Just 80) (Just 80) (Just 20) (Just hwnd) (Just (castUINTToPtr 1)) mainInstance 
    return() 
messagePump :: HWND -> IO() 
messagePump hwnd = allocaMessage $ \ msg -> 
    let pump = do 
     getMessage msg (Just hwnd) `catch` \ _ -> exitWith ExitSuccess 
     translateMessage msg 
     dispatchMessage msg 
     pump 
    in pump 

यहाँ एक बटन के साथ सरल Win32 जीयूआई आवेदन है लेकिन जब मैं बटन पर क्लिक करें वहाँ एक संदेश बॉक्स (22 लाइन) होना चाहिए, लेकिन वहाँ त्रुटि है:

बटन .exe: शेड्यूल: असुरक्षित रूप से पुनः दर्ज किया गया। शायद एक 'विदेशी आयात असुरक्षित' होना चाहिए 'सुरक्षित'?

मैं इसे कैसे ठीक कर सकता हूं?

Answer 1

डैनियल वाग्नेर की तरह टिप्पणी की, यह Win32 पैकेज में एक बग है। MessageBoxW को इसके कई दुष्प्रभावों के कारण सुरक्षित रूप से आयात किया जाना चाहिए।

messageBox फ़ंक्शन 'असुरक्षित' आयातित MessageBoxW फ़ंक्शन के लिए एक रैपर है। जब एक असुरक्षित आयातित फ़ंक्शन फ़ंक्शन असुरक्षित रूप से आयात किया जाता है, तो हास्केल मानता है कि थ्रेड तब तक किसी भी हास्केल कोड को कॉल नहीं करेगा जब तक वह वापस न आए। हालांकि, अगर आप MessageBoxW पर कॉल करते हैं, तो विंडोज़ लाइन 30 में बनाई गई विंडो में कुछ विंडो संदेश फेंक देगा, इसलिए जब आप असुरक्षित विदेशी फ़ंक्शन में हों तो हास्केल कोड चलाया जाएगा। यही कारण है कि messageBox पर कॉल तक काम करेगा जो विंडो बनाई गई है।

एक संभावित कामकाज केवल कार्य को सही करने के लिए है। सबसे पहले,

import Graphics.Win32 hiding (messageBox, c_MessageBox) 

तब को

import Graphics.Win32 

बदल मॉड्यूल Graphics.Win32.Misc से messageBox और c_MessageBox की परिभाषा कॉपी, unsafe हटा दिया और/या safe जोड़ा साथ:

messageBox :: HWND -> String -> String -> MBStyle -> IO MBStatus 
messageBox wnd text caption style = 
    withTString text $ \ c_text -> 
    withTString caption $ \ c_caption -> 
    failIfZero "MessageBox" $ c_MessageBox wnd c_text c_caption style 
foreign import stdcall safe "windows.h MessageBoxW" 
    c_MessageBox :: HWND -> LPCTSTR -> LPCTSTR -> MBStyle -> IO MBStatus