DLL引用是不是只能用绝对路径？？

莫名

设计VB程序时用引用,但程序运行时能否用代码引用呢?
怎样用代码引用?

Taoyimaier

莫名这位，应该是GG吧，你说得太不清楚了，结果是别人听不太懂你的意思，可能是自己水平有限吧，http://www.mjtd.com/a2/list.asp?id=488这个是以前我在明经看到的相关的文章，用VLisp调用VB写得DLL，大家可以看看先，让后也许就会懂一些不好怎么用文字表达的东西了，

efan2000

使用VL调用VB编写的AcitveX DLL。
首先在VB中新建一个ActiveX DLL工程，工程名称为VBTest，新建一个类模块，名称为Test。
在类模块中加下下面的代码，其中GetComputerName的API函数是用于获取本地的计算机名称。具体说明参考API资料。

2. 
   
3. Private Declare Function APIGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
   
4. 
   
5. Public Property Get GetComputerName() As String
   
6.     Dim strString As String
   
7.     strString = String(255, Chr$(0))
   
8.     APIGetComputerName strString, 255
   
9.     strString = Left$(strString, InStr(1, strString, Chr$(0)))
   
10.     GetComputerName = strString
    
11. End Property
    

<br /> Private Declare Function APIGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long<br /> <br /> Public Property Get GetComputerName() As String<br />     Dim strString As String<br />     strString = String(255, Chr$(0))<br />     APIGetComputerName strString, 255<br />     strString = Left$(strString, InStr(1, strString, Chr$(0)))<br />     GetComputerName = strString<br /> End Property<br />

完成后，编译成VBTest.DLL文件。
接下来，在VL中，首先获取该对象的引用。
(setq vltest (vlax-create-object "VBTest.test"))
接着，获取它的GetComputerName属性。
(setq name (vlax-get-property vltest 'getcomputername))
这时就会在IDE窗口中出现自己的计算机名称了。其它的使用类似，有兴趣的朋友可以自己去研究。
以下附上所有的代码。



这是以前在晓东CAD空间应一个朋友的要求而做的，感兴趣的可以参考。
http://www.xdcad.net/forum/showthread.php?s=&postid=231959#post231959

mikewolf2k

Taoyimaier老弟，那我就不客气了．
明经通道上那篇关于ｄｌｌ的文件早就看过了，我的ｄｌｌ就是参考它做的，在ｖｂａ中调用成功．在ｌｉｓｐ中调用就看不懂了，没有成功．因此求详细的ｌｉｓｐ源程序．
什么时候能搞出来都行，反正我现在还在编程过程中，短时间内还用不上．

Taoyimaier

那天有时间帮你作一个简单的吧，可能你得VLisp用的还不太熟练，呵呵

mikewolf2k

不瞒您说,lisp我一窍不通.

Taoyimaier

程序我写出来了，VB的DLL代码如下

2. '该DLL虽然简单，但是其功能却是一般的VLisp所不容易实现的
   
3. '主要是VLisp不容易实现对话框功能（现在好像有一些第三方的软件，比如ObjectDCL可以实现一些），
   
4. '所以有时候我认为，学习DCL没有什么必要，好处就是使得你的Lisp程序更加一体化，但是我想DCL实现
   
5. '对话框功能也是几乎不可能的把                   Designed by Taoyimaier
   
6. 
   
7. Function dia_show_test() As String
   
8. Dim return_str As String
   
9. dia_frm.dia1.ShowOpen
   
10. On Error GoTo errhand
    
11. return_str = dia_frm.dia1.FileName
    
12. dia_show_test = return_str
    
13. Exit Function
    
14. '下面的语句是使得选择了取消按钮后，不出现错误提示
    
15. errhand:
    
16. If Err.Number = 32755 Then
    
17.     Err.Clear
    
18.     End If
    
19.     Exit Function
    
20. End Function
    
21. 
    
22. Function get_average(ByVal one As Single, ByVal two As Single, ByVal three As Single) As Single
    
23. get_average = (one + two + three) / 3
    
24. End Function
    
25. 
    
26. '然后将编译后的DLL用命令"regsvr32 dia_pro.dll"注册
    
27. '以便于在VLisp里用(vlax-create-object "dia_pro.dia_test")语句调用

'该DLL虽然简单，但是其功能却是一般的VLisp所不容易实现的<br /> '主要是VLisp不容易实现对话框功能（现在好像有一些第三方的软件，比如ObjectDCL可以实现一些），<br /> '所以有时候我认为，学习DCL没有什么必要，好处就是使得你的Lisp程序更加一体化，但是我想DCL实现<br /> '对话框功能也是几乎不可能的把                   Designed by Taoyimaier<br /> <br /> Function dia_show_test() As String<br /> Dim return_str As String<br /> dia_frm.dia1.ShowOpen<br /> On Error GoTo errhand<br /> return_str = dia_frm.dia1.FileName<br /> dia_show_test = return_str<br /> Exit Function<br /> '下面的语句是使得选择了取消按钮后，不出现错误提示<br /> errhand:<br /> If Err.Number = 32755 Then<br />     Err.Clear<br />     End If<br />     Exit Function<br /> End Function<br /> <br /> Function get_average(ByVal one As Single, ByVal two As Single, ByVal three As Single) As Single<br /> get_average = (one + two + three) / 3<br /> End Function<br /> <br /> '然后将编译后的DLL用命令"regsvr32 dia_pro.dll"注册<br /> '以便于在VLisp里用(vlax-create-object "dia_pro.dia_test")语句调用

VLisp内容如下

2. (vl-load-com)
   
3. (defun C:test(/ vla_obj_test file_obj) ;vla_obj_test是一个VLA对象,不同于Lisp里一些变量.
   
4.   (setq vla_obj_test (vlax-create-object "dia_pro.dia_test"))  
   
5.   (setq file_obj (open (vlax-invoke-method  vla_obj_test 'dia_show_test) "r"))
   
6.   (setq aa (read-line file_obj))
   
7.   (setq bb (read-line file_obj))
   
8.   (setq cc (read-line file_obj))
   
9.   (close file_obj)
   
10.   (princ (strcat "\n选取文件的前三行平均数为"
    
11.                  (rtos (vlax-invoke-method
    
12.                          vla_obj_test
    
13.                          'get_average
    
14.                          (atof aa)
    
15.                          (atof bb)
    
16.                          (atof cc)
    
17.                        )
    
18.                  )
    
19.          )
    
20.   )
    
21.   (princ)
    
22.   )
    
23. ;在看该程序时，可以使用VLisp的监视器观看一些ActiveX变量相关信息,便于理解.
    
24. ;程序功能，读取一个文本文件的前三行，将其求平均数，并将结果打印出来.
    
25. ;注意选取文件的类型及格式要正确，该程序对这部分的处理没有花功夫.

(vl-load-com)<br /> (defun C:test(/ vla_obj_test file_obj) ;vla_obj_test是一个VLA对象,不同于Lisp里一些变量.<br />   (setq vla_obj_test (vlax-create-object "dia_pro.dia_test"))  <br />   (setq file_obj (open (vlax-invoke-method  vla_obj_test 'dia_show_test) "r"))<br />   (setq aa (read-line file_obj))<br />   (setq bb (read-line file_obj))<br />   (setq cc (read-line file_obj))<br />   (close file_obj)<br />   (princ (strcat "\n选取文件的前三行平均数为"<br />                  (rtos (vlax-invoke-method<br />                          vla_obj_test<br />                          'get_average<br />                          (atof aa)<br />                          (atof bb)<br />                          (atof cc)<br />                        )<br />                  )<br />          )<br />   )<br />   (princ)<br />   )<br /> ;在看该程序时，可以使用VLisp的监视器观看一些ActiveX变量相关信息,便于理解.<br /> ;程序功能，读取一个文本文件的前三行，将其求平均数，并将结果打印出来.<br /> ;注意选取文件的类型及格式要正确，该程序对这部分的处理没有花功夫.

差不多了吧，其实efan版主的代码也是一样的，它写得更有代表性，调用API也是vlisp
做不到的（只是我不会API），差不多了吧，以后有时间看看lisp的书，不难的，可能
关于ActiveX这部分开始有些不适应，等你懂了后，你会。。。。 程序附上

mikewolf2k

谢谢.等我的dll完全编完后再照样编一个lisp.到时候还不懂的话,再....不耻下问.....