[VBA]呼唤凭栏拭雪！如何调用Delphi编写的DLL？

lazybones

使用VisualLISP调用Delphi编写的DLL，调试通不过 生成DLL完整的Delphi代码，生成的DLL文件名为MyDll.dll
library MyDll; // library 为 DLL
uses
SysUtils,Classes; function AddOne(i:integer):integer;stdcall; // 一般需要导出的函数都要是 stdcall
begin
Result:=i+1;
end; exports // 导出表
AddOne; begin
end. 调用DLL的LISP代码
(vl-load-com)
(defun c:testdll (/ a re)
(setq a (vla-getinterfaceobject
(vlax-get-acad-object)
"MyDll" ;1、这里肯定有问题！！！
) ; Delphi没有类模块，对照VB不知该怎么改动
)
(setq re (vlax-invoke-method ;2、是不是这样获得返回值？
a
"AddOne"
100 ;3、是不是这样传递参数？
)
)
(vlax-release-object a)
(princ re)
(princ)
)
运行提示 错误: Automation 错误。 加载应用程序时出现问题
附VBA帮助中关于GetInterfaceObject说明
Accepts a program ID and attempts to load it into AutoCAD as an in-process server. RetVal = object.GetInterfaceObject(ProgID) Object
Application
The object or objects this method applies to. ProgID
String; input-only
The program ID of the interface object to return. RetVal
Object
The interface object matching the program ID. Example中ProgID给了个令人摸不着头脑的例子
Dim poly As Object
Set poly = ThisDrawing.Application.GetInterfaceObject("Polycad.Application") 我的QQ:10824256

laoliu09

我不大懂lisp，但为什么不用vba调用你的dll呢?如下：


Public Declare Function        Addone Lib "MyDll" (i As integer) As Integer

lazybones

又见老六 ：）


单位没装Delphi，没法验证，就我的DLL你能给个完整例子吗？


另外，VBA调用DLL用不用先注册呀，调用时不涉及到DLL文件完整的文件名吗？DLL文件放到哪？与DVB同一个文件夹？AutoCAD支持路径？还是windows/system？