我可以使用以下脚本启动Excel。但是在ghci (7.4.1)中,我在运行它时有一个分段错误。
我不知道从哪里开始搜索。如果删除行,则不会出现此错误
workSheets <- workBook # propertyGet_0 "Worksheets"
下面是代码。可能是我忘了什么。我读了com.hs here的源代码,但它没有给我任何线索。
import System.Win32.Com
import System.Win32.Com.Automation
--
-- createObjectExcel
-- coming from Automation.hs and com.hs
--
iidIDispatch_unsafe = mkIID "{00020400-0000-0000-C000-000000000046}"
createObjExl :: IO (IDispatch ())
createObjExl = do
clsidExcel <- clsidFromProgID "Excel.Application"
pExl <- coCreateInstance clsidExcel Nothing LocalProcess iidIDispatch_unsafe
return pExl
fichierTest2 = "E:/Programmation/haskell/Com/qos1.xls"
main = coRun $ do
pExl <- createObjExl
workBooks <- pExl # propertyGet_0 "Workbooks"
workBook <- workBooks # propertyGet_1 "Open" fichierTest2
workSheets <- workBook # propertyGet_0 "Worksheets"
workBooks # method_1_0 "Close" (0::Int)
pExl # method_0_0 "Quit"
mapM release [workSheets,workBook, workBooks, pExl]
根据冈萨雷斯的建议编辑我尝试过调试,但没有出现任何信息。我在ghci中手动尝试了代码,似乎有罪的那一方是释放函数。
当我在ghci中输入这些内容时,我得到了分段错误:
*Main> coInitialize
*Main> pExl <- createObjExl
*Main> release pExl
0
现在,如果我点击"pExl“,我就有一个推荐人。它不应该设置为Null吗?
*Main> pExl
<interface pointer = 0x020844cc>
*Main> coUnInitialize
*Main> :q
leaving Ghci
Segmentation Fault/access violation ...
https://stackoverflow.com/questions/14537516
复制相似问题