导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
zxm (认真学习)
★☆☆☆☆
-
盒子活跃会员
2003/12/11 20:48:49
标题:
加入我的收藏
楼主:
怎么样使用一个在文件里去调用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.
----------------------------------------------