如何在LISP中使用ACTIVEX对象提供的事件接口？

起子

如题，我下了xtimers.dll时间控件，这个控件提供了一个Tick事件，该如何调用？

扩展一下，LISP中如何使用ACTIVEX对象的事件？

起子

有人做过这个吗？

yarp

贴一个类似的代码以供参考：

2. 
   
3. (defun loc:download        (url dir / bytes fic file fso http tbl)
   
4.   (setq        http (vlax-create-object "Msxml2.XMLHTTP")
   
5.         fso  (vlax-create-object "Scripting.FileSystemObject")
   
6.   )
   
7.   (vlax-invoke-method http 'open "get" url :vlax-false)
   
8.   (vlax-invoke http 'send)
   
9.   (while (not (eq (vlax-get http 'readyState) 4))
   
10.     (repeat 100)
    
11.   )
    
12.   (setq        file (strcat dir
    
13.                      (vl-filename-base url)
    
14.                      (vl-filename-extension url)
    
15.              )
    
16.         tbl  (vlax-safearray->list
    
17.                (vlax-variant-value (vlax-get-property http 'responsebody))
    
18.              )
    
19.         fic  (vlax-invoke fso 'CreateTextFile file)
    
20.   )
    
21.   (foreach bytes        tbl
    
22.     (vlax-invoke fic 'write  (chr bytes));;bytes 有进可能是unicode字符集，对其处理需要注意。
    
23.   )
    
24.   (vlax-invoke fic 'close)
    
25.   (vlax-release-object http)
    
26.   (vlax-release-object fso)
    
27.   (princ)
    
28. )

<br /> (defun loc:download        (url dir / bytes fic file fso http tbl)<br />   (setq        http (vlax-create-object "Msxml2.XMLHTTP")<br />         fso  (vlax-create-object "Scripting.FileSystemObject")<br />   )<br />   (vlax-invoke-method http 'open "get" url :vlax-false)<br />   (vlax-invoke http 'send)<br />   (while (not (eq (vlax-get http 'readyState) 4))<br />     (repeat 100)<br />   )<br />   (setq        file (strcat dir<br />                      (vl-filename-base url)<br />                      (vl-filename-extension url)<br />              )<br />         tbl  (vlax-safearray->list<br />                (vlax-variant-value (vlax-get-property http 'responsebody))<br />              )<br />         fic  (vlax-invoke fso 'CreateTextFile file)<br />   )<br />   (foreach bytes        tbl<br />     (vlax-invoke fic 'write  (chr bytes));;bytes 有进可能是unicode字符集，对其处理需要注意。<br />   )<br />   (vlax-invoke fic 'close)<br />   (vlax-release-object http)<br />   (vlax-release-object fso)<br />   (princ)<br /> )

起子

回复 yarp 的帖子

这个好像没有用到ACTIVEX对象的事件吧？

bavfpl

我也想用这个啊，估计VLISP不能调用事件吧，