+ -
当前位置:首页 → 问答吧 → delphi7中新建的dll,dll中如何声明函数,代码如下

delphi7中新建的dll,dll中如何声明函数,代码如下

时间:2011-08-12

来源:互联网

library Project2;


uses
  SysUtils,
  Classes;

{$R *.res}
var
  i: integer;

function myfuc1():integer;

function myfuc():integer;
begin

  Result := myfuc1();
end;

function myfuc1():integer;
begin
  Result := 0;
end;


begin


end.


编译错误提示信息

[Error] Project2.dpr(29): ';' expected but '.' found
[Error] Project2.dpr(31): Declaration expected but end of file found

作者: make2008   发布时间: 2011-08-12

library Project2;


uses
  SysUtils,
  Classes;

{$R *.res}
var
  i: integer;

function myfuc1():integer;stdcall;
begin
  Result := 0;
end;


function myfuc():integer;stdcall;
begin

  Result := myfuc1();
end;

exports
  myfuc;

begin

end.

作者: gh54321   发布时间: 2011-08-12

上面的代码写错了,从新编辑了下,其实就是上面的先定义函数调用下面后定义的函数
所以需要在第一个函数前面做一个声明

library Project2;


uses
  SysUtils,
  Classes;

{$R *.res}
var
  i: integer;

  function myfuc():integer;stdcall;

function myfuc1():integer;stdcall;
begin
  Result := myfuc();
end;


function myfuc():integer;stdcall;
begin

  Result := 0;
end;


begin

end.

作者: make2008   发布时间: 2011-08-12

热门下载

更多