这么简单的动态链接库为何就是会调用失败??有源码

[ycgx]

library Realtimeproc;

uses
SysUtils,
Classes;

{$R *.RES}
function min(x,y:integer):integer; export;
begin
if x<y then Min:=x else Min:=y;
end;
function max(x,y:integer):integer; export;
begin
if x>y then max:=x else max:=y;
end;

exports
min index 1 name 'min',
max index 2 name 'max';

begin
end.

通过 import Type library...菜单项导入失败....

[knock]

我试一下，也fail了

[nyxi]

export已经过时建议用StdCall;
function Min(X, Y: Integer): Integer;StdCall;
begin
if X < Y then Min:= X else Min:= Y;
end;

function Max(X, Y: Integer): Integer;StdCall;
begin
if X > Y then Max:= X else Max:= Y;
end;

[ycgx]

sharemem我加入,还是不行啊!!!!

后来改为代码调用,代码出下:
...
implementation
function Min(x,y:integer):integer; far; external 'Realtimeproc.dll';
//动态链接库与应用程序放在同一目录
...
procedure ....
begin
label1.Caption := IntToStr(Min(10,15));
...
end;
--------------------------------------
程序一运行就提示"无法定位程序输入点Min于动态链接库Realtimeproc.dll上",不知为何?

[ycgx]

我按楼上讲的改为StdCall了,还是不行,晕倒.....
我用的是DELPHI5

[ycgx]

高手请出招救啊

[cybjrf]

library Realtimeproc;

uses
sharemem,
SysUtils,
Classes;

在uses中加个sharemem引用就可以了

[leonkim]

把你的function Min(x,y:integer):integer;far;external 'realtimeproc';
中的Min,改为min就行了.
在dll输出的函数名称区分大小写.

[xikug]

改为：

library Realtimeproc;

uses
SysUtils,
Classes;

{$R *.RES}
function min(x,y:integer):integer; stdcall;
begin
if x<y then Min:=x else Min:=y;
end;
function max(x,y:integer):integer; stdcall;
begin
if x>y then max:=x else max:=y;
end;

exports
min index 1 name 'min',
max index 2 name 'max';

begin
end.

就行了