[LISP][LISP]如何调用Delphi编写的DLL？调试通不过

lazybones

不好意思，涉及多个概念，在VBA版也发了一份 使用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")

alin

这里是一个Vlisp调用VB的DLL的例子，参考一下。 ;;;************************************************************
;;; Filename: vbStringClass.LSP
;;; Author: David M. Stein
;;; Date: 3/2/02
;;; Purpose: Demonstrates use of imported DLL functions within
;;; Visual LISP functions
;;;************************************************************ (vl-load-com) (defun vbStrCat (string1 string2 / acad vbstrcls out)
(setq acad (vlax-get-acad-object))
(setq vbstrcls
(vlax-invoke-method acad
"getInterfaceObject" "vbStringClass.vbStrings"
)
)
(setq out
(vlax-invoke-method vbstrcls
"StrConcat" string1 string2
)
)
(vlax-release-object vbstrcls)
(vlax-release-object acad)
out
) (defun vbStrRev (string / acad vbstrcls out)
(setq acad (vlax-get-acad-object))
(setq vbstrcls
(vlax-invoke-method acad
"getInterfaceObject" "vbStringClass.vbStrings"
)
)
(setq out
(vlax-invoke-method vbstrcls
"StrReverse" string
)
)
(vlax-release-object vbstrcls)
(vlax-release-object acad)
out
) (defun vbStrVer ( / acad vbstrcls out)
(setq acad (vlax-get-acad-object))
(setq vbstrcls
(vlax-invoke-method acad
"getInterfaceObject" "vbStringClass.vbStrings"
)
)
(setq out
(vlax-invoke-method vbstrcls "StrVer")
)
(vlax-release-object vbstrcls)
(vlax-release-object acad)
out
)

lazybones

感谢


把VB DLL的源代码一起贴出来呀

alin

Download the book and check out Chapter 22 http://www.dsxcad.com/book/The%20Visual%20LISP%20Developers%20Bible.pdf