盒子论坛 v2.1

怎么样使用一个在文件里去调用DLL里的自定函数，而且是在里要用到的
例如:
    Function GetValue(Det:string);string;stdcall;
    var  Adoquery:Tadoquery;
        s:string;
    begin
      s:= Lround(det);   //是一个DLL里的一个函数
      result:=s;
    end;
怎么样去定义去能使这个在函数在Dll可以被其它函数调用！！！！！！！！！！！！！！！！！
----------------------------------------------
好好学习，天天向上！
→我： ●-(不许动!)  ●　←：你：
　　　 █┳        ┗█┛
      ┏┓          ┛┗

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/11 21:11:44

1楼：

library Project1;
uses SysUtils,Classes;
{$R *.res}
Function GetValue(Det:string):string;stdcall;
    var
        s:string;
    begin
      s:= det+'a';
      result:=s;
    end;
exports
  getvalue;
begin

end.

//----------------------------------------------------

var
  Form1: TForm1;

implementation
Function GetValue(Det:string):string;stdcall;external 'Project1.dll';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:Longint;
sp:PString;
begin
new(sp);
try
sp^:=GetValue('bbb');
edit1.Text :=sp^;
except
  dispose(sp);
  exit;
end;{一定要用指针好恶心啊}
end;

end.

----------------------------------------------

信息

登陆以后才能回复