飘
飘落的枫叶
Unregistered / Unconfirmed
GUEST, unregistred user!
如何在DELPHI中动态调用DLL文件，可否请哪位大侠指点一二，最好是有个例子。
飘
飘落的枫叶
Unregistered / Unconfirmed
GUEST, unregistred user!
如何在DELPHI中动态调用DLL文件，可否请哪位大侠指点一二，最好是有个例子。
小
小谷
Unregistered / Unconfirmed
GUEST, unregistred user!
以下是动态调用Lindo线性规划dll链接库的范例，请参考！<br>var<br> LindoDllHandle :THandle;<br><br> ILINDO 
rocedure; Stdcall;<br> INIT rocedure; Stdcall;<br> LUNOPN rocedure(Lunit: PLongint; Lfname: PLongint; ByValKfname: Pchar; Inrout: PLongint; Notfmt: PLongint; Lutrmi: PLongint; Lutrmo: PLongint); Stdcall;<br> CAPOUT rocedure(Dunit: PLongint); Stdcall;<br> QUIET rocedure(j: PLongint); Stdcall;<br> DEFROW rocedure(Idir: PLongint; Rhs: PSingle; Idrow: PLongint; Trouble: PLongint); Stdcall;<br> APPCOL rocedure(ByValKname: Pchar; Nonz: PLongint; Value: PSingle; Idrow: PLongint; Trouble: PLongint); Stdcall;<br> GO rocedure(Limgo: PLongint; Istat: PLongint); Stdcall;<br> REPROW rocedure(i: PLongint; Primal: PSingle; Dual: PSingle); Stdcall;<br> REPVAR rocedure(i: PLongint; Primal: PSingle; Dual: PSingle); Stdcall;<br> LSEXIT rocedure; Stdcall;<br> MAKINT rocedure(i: PLongint); Stdcall;<br>begin<br> //动态载入 " LNDDLL32.DLL " 文件<br> str := GetCurrentDir;<br> str := str + '/LNDDLL32.DLL';<br> LindoDllHandle := loadlibrary(Pchar(str));<br> if LindoDllHandle&lt;32 then<br> begin<br> Application.MessageBox('代码结构载入失败！',PChar('系统提示'),MB_ICONWARNING+MB_OK);<br> exit;<br> end;<br> @ILINDO := GetProcAddress(LindoDllHandle,'ILINDO_STD');<br> @INIT := GetProcAddress(LindoDllHandle,'INIT_STD');<br> @LUNOPN := GetProcAddress(LindoDllHandle,'LUNOPNX_STD');<br> @CAPOUT := GetProcAddress(LindoDllHandle,'CAPOUT_STD');<br> @QUIET := GetProcAddress(LindoDllHandle,'QUIET_STD');<br> @DEFROW := GetProcAddress(LindoDllHandle,'DEFROW_STD');<br> @APPCOL := GetProcAddress(LindoDllHandle,'APPCOLX_STD');<br> @GO := GetProcAddress(LindoDllHandle,'GO_STD');<br> @REPROW := GetProcAddress(LindoDllHandle,'REPROW_STD');<br> @REPVAR := GetProcAddress(LindoDllHandle,'REPVAR_STD');<br> @LSEXIT := GetProcAddress(LindoDllHandle,'LSEXIT_STD');<br> @MAKINT := GetProcAddress(LindoDllHandle,'MAKINT_STD');<br><br> FreeLibrary(LindoDllHandle);<br>end;
rocedure; Stdcall;<br> INIT rocedure; Stdcall;<br> LUNOPN rocedure(Lunit: PLongint; Lfname: PLongint; ByValKfname: Pchar; Inrout: PLongint; Notfmt: PLongint; Lutrmi: PLongint; Lutrmo: PLongint); Stdcall;<br> CAPOUT rocedure(Dunit: PLongint); Stdcall;<br> QUIET rocedure(j: PLongint); Stdcall;<br> DEFROW rocedure(Idir: PLongint; Rhs: PSingle; Idrow: PLongint; Trouble: PLongint); Stdcall;<br> APPCOL rocedure(ByValKname: Pchar; Nonz: PLongint; Value: PSingle; Idrow: PLongint; Trouble: PLongint); Stdcall;<br> GO rocedure(Limgo: PLongint; Istat: PLongint); Stdcall;<br> REPROW rocedure(i: PLongint; Primal: PSingle; Dual: PSingle); Stdcall;<br> REPVAR rocedure(i: PLongint; Primal: PSingle; Dual: PSingle); Stdcall;<br> LSEXIT rocedure; Stdcall;<br> MAKINT rocedure(i: PLongint); Stdcall;<br>begin<br> //动态载入 " LNDDLL32.DLL " 文件<br> str := GetCurrentDir;<br> str := str + '/LNDDLL32.DLL';<br> LindoDllHandle := loadlibrary(Pchar(str));<br> if LindoDllHandle&lt;32 then<br> begin<br> Application.MessageBox('代码结构载入失败！',PChar('系统提示'),MB_ICONWARNING+MB_OK);<br> exit;<br> end;<br> @ILINDO := GetProcAddress(LindoDllHandle,'ILINDO_STD');<br> @INIT := GetProcAddress(LindoDllHandle,'INIT_STD');<br> @LUNOPN := GetProcAddress(LindoDllHandle,'LUNOPNX_STD');<br> @CAPOUT := GetProcAddress(LindoDllHandle,'CAPOUT_STD');<br> @QUIET := GetProcAddress(LindoDllHandle,'QUIET_STD');<br> @DEFROW := GetProcAddress(LindoDllHandle,'DEFROW_STD');<br> @APPCOL := GetProcAddress(LindoDllHandle,'APPCOLX_STD');<br> @GO := GetProcAddress(LindoDllHandle,'GO_STD');<br> @REPROW := GetProcAddress(LindoDllHandle,'REPROW_STD');<br> @REPVAR := GetProcAddress(LindoDllHandle,'REPVAR_STD');<br> @LSEXIT := GetProcAddress(LindoDllHandle,'LSEXIT_STD');<br> @MAKINT := GetProcAddress(LindoDllHandle,'MAKINT_STD');<br><br> FreeLibrary(LindoDllHandle);<br>end;
飘
飘落的枫叶
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么在工程里添加DLL文件呢
飘
飘落的枫叶
Unregistered / Unconfirmed
GUEST, unregistred user!
小谷朋友，能否把你的那些代码适当地加些注释。我是新手，所以看起来有点费劲。谢谢！！！
M
missinwind
Unregistered / Unconfirmed
GUEST, unregistred user!
注释如下：[
]<br>var<br> LindoDllHandle :THandle;<br><br> ILINDO rocedure; Stdcall; //定义过程变量<br> INIT rocedure; Stdcall;<br> LUNOPN rocedure(Lunit: PLongint; Lfname: PLongint; ByValKfname: Pchar; Inrout: PLongint; Notfmt: PLongint; Lutrmi: PLongint; Lutrmo: PLongint); Stdcall;<br> CAPOUT rocedure(Dunit: PLongint); Stdcall;<br> QUIET rocedure(j: PLongint); Stdcall;<br> DEFROW rocedure(Idir: PLongint; Rhs: PSingle; Idrow: PLongint; Trouble: PLongint); Stdcall;<br> APPCOL rocedure(ByValKname: Pchar; Nonz: PLongint; Value: PSingle; Idrow: PLongint; Trouble: PLongint); Stdcall;<br> GO rocedure(Limgo: PLongint; Istat: PLongint); Stdcall;<br> REPROW rocedure(i: PLongint; Primal: PSingle; Dual: PSingle); Stdcall;<br> REPVAR rocedure(i: PLongint; Primal: PSingle; Dual: PSingle); Stdcall;<br> LSEXIT rocedure; Stdcall;<br> MAKINT rocedure(i: PLongint); Stdcall;<br>begin<br> //动态载入 " LNDDLL32.DLL " 文件<br> str := GetCurrentDir; //获得当前路径<br> str := str + '/LNDDLL32.DLL'; //指定库文件<br> LindoDllHandle := loadlibrary(Pchar(str)); //引导库文件<br> if LindoDllHandle&lt;32 then //判断是否引导成功，出错小于则32<br> begin<br> Application.MessageBox('代码结构载入失败！',PChar('系统提示'),MB_ICONWARNING+MB_OK);<br> exit;<br> end;<br> @ILINDO := GetProcAddress(LindoDllHandle,'ILINDO_STD'); <br> //打开库文件，获得入口地址<br> @INIT := GetProcAddress(LindoDllHandle,'INIT_STD');<br> @LUNOPN := GetProcAddress(LindoDllHandle,'LUNOPNX_STD');<br> @CAPOUT := GetProcAddress(LindoDllHandle,'CAPOUT_STD');<br> @QUIET := GetProcAddress(LindoDllHandle,'QUIET_STD');<br> @DEFROW := GetProcAddress(LindoDllHandle,'DEFROW_STD');<br> @APPCOL := GetProcAddress(LindoDllHandle,'APPCOLX_STD');<br> @GO := GetProcAddress(LindoDllHandle,'GO_STD');<br> @REPROW := GetProcAddress(LindoDllHandle,'REPROW_STD');<br> @REPVAR := GetProcAddress(LindoDllHandle,'REPVAR_STD');<br> @LSEXIT := GetProcAddress(LindoDllHandle,'LSEXIT_STD');<br> @MAKINT := GetProcAddress(LindoDllHandle,'MAKINT_STD');<br><br> FreeLibrary(LindoDllHandle);//释放库文件<br>end;
]<br>var<br> LindoDllHandle :THandle;<br><br> ILINDO rocedure; Stdcall; //定义过程变量<br> INIT rocedure; Stdcall;<br> LUNOPN rocedure(Lunit: PLongint; Lfname: PLongint; ByValKfname: Pchar; Inrout: PLongint; Notfmt: PLongint; Lutrmi: PLongint; Lutrmo: PLongint); Stdcall;<br> CAPOUT rocedure(Dunit: PLongint); Stdcall;<br> QUIET rocedure(j: PLongint); Stdcall;<br> DEFROW rocedure(Idir: PLongint; Rhs: PSingle; Idrow: PLongint; Trouble: PLongint); Stdcall;<br> APPCOL rocedure(ByValKname: Pchar; Nonz: PLongint; Value: PSingle; Idrow: PLongint; Trouble: PLongint); Stdcall;<br> GO rocedure(Limgo: PLongint; Istat: PLongint); Stdcall;<br> REPROW rocedure(i: PLongint; Primal: PSingle; Dual: PSingle); Stdcall;<br> REPVAR rocedure(i: PLongint; Primal: PSingle; Dual: PSingle); Stdcall;<br> LSEXIT rocedure; Stdcall;<br> MAKINT rocedure(i: PLongint); Stdcall;<br>begin<br> //动态载入 " LNDDLL32.DLL " 文件<br> str := GetCurrentDir; //获得当前路径<br> str := str + '/LNDDLL32.DLL'; //指定库文件<br> LindoDllHandle := loadlibrary(Pchar(str)); //引导库文件<br> if LindoDllHandle&lt;32 then //判断是否引导成功，出错小于则32<br> begin<br> Application.MessageBox('代码结构载入失败！',PChar('系统提示'),MB_ICONWARNING+MB_OK);<br> exit;<br> end;<br> @ILINDO := GetProcAddress(LindoDllHandle,'ILINDO_STD'); <br> //打开库文件，获得入口地址<br> @INIT := GetProcAddress(LindoDllHandle,'INIT_STD');<br> @LUNOPN := GetProcAddress(LindoDllHandle,'LUNOPNX_STD');<br> @CAPOUT := GetProcAddress(LindoDllHandle,'CAPOUT_STD');<br> @QUIET := GetProcAddress(LindoDllHandle,'QUIET_STD');<br> @DEFROW := GetProcAddress(LindoDllHandle,'DEFROW_STD');<br> @APPCOL := GetProcAddress(LindoDllHandle,'APPCOLX_STD');<br> @GO := GetProcAddress(LindoDllHandle,'GO_STD');<br> @REPROW := GetProcAddress(LindoDllHandle,'REPROW_STD');<br> @REPVAR := GetProcAddress(LindoDllHandle,'REPVAR_STD');<br> @LSEXIT := GetProcAddress(LindoDllHandle,'LSEXIT_STD');<br> @MAKINT := GetProcAddress(LindoDllHandle,'MAKINT_STD');<br><br> FreeLibrary(LindoDllHandle);//释放库文件<br>end;
飘
飘落的枫叶
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢