易截截图软件、单文件、免安装、纯绿色、仅160KB

Excel 如何调用 Delphi 编译的 Dll 中的函数?

我想用 Delphi 编写包含函数的 Dll,然后在 Excel VBA 调用。试了很多次都无法返回正确的结果。
具体如下:

Delphi7 中的测试源码:

//********************************************************************************************
library XlsExt;
{比较两数的大小,并返回较大者}

uses
  SysUtils,
  Classes;

{$R *.res}

var
  SaveExit:Pointer;
procedure LibExit;              //为了不使退出Excel时出现异常
begin
  ExitProc:=SaveExit;          //恢复退出过程链表
end;

function MyMax(X,Y:SmallInt):SmallInt;stdcall;  //定义函数
begin
  try
    if X>Y then MyMax:=X else MyMax:=Y;
  except
    MyMax:=333;                                  //测试异常处理,可是好像没有看到这个结果。
  end;
end;

exports                              //函数输出
  MyMax;

begin
  SaveExit:=ExitProc;                //保存退出过程链表
  ExitProc:=@LibExit;                //设置LibExit为退出过程


相关问答:

ACCESS的自定义函数在delphi里怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


(在A ......

delphi中ACCESS的自定义函数怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


......

delphi 除法 "/" 与 div 的不同

[size=18px]var s,n:integer;
begin
write('输入变长的条数n');       
readln(n);
[color=#FF0000]s:=n*(n-1)*(n-2)div 6;    //本行替换为s:=n*(n-1)*(n-2)/ ......

Delphi 像亡国的南宋,试问这语言还有前途吗?

Delphi 像亡国的南宋,试问这语言还有前途吗?
Win32开发不如C#;
面像对像开发不如JAVA;
系统开发不如VC++6.0;
能用性不如VB6.0;
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗? ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号