- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
// 以下两行对需要调用的输入函数进行说明 extern C__declspec (dllimport)__stdcall int add (int a, int b); extern C__declspec (dllimport) char* SayHello (char* Name); //--------------------------------------------------------------------------- void__fastcall TForm1::Button1Click (TObject *Sender) { Label1-Caption = IntToStr (add (StrToInt (Edit1-Text), StrToInt (Edit2-Text))); } //--------------------------------------------------------------------------- void__fastcall TForm1::Button2Click (TObject *Sender) { Label1-Caption = SayHello (Edit1-Text.c_str ( )); } //--------------------------------------------------------------------------- 【评析】 凡程序中需调用输入函数时,必须进行声明。该声明一般与DLL源程序中的输出函数声明相一致,只要把输出函数声明中的__declspec (dllexport) 改为__declspec(dllimport)即可。更规范的做法是将这些声明写入头文件(扩展名为.h),然后使应用程序的单元文件包含该头文件。因为SayHello的参数为char*类型,所以要用c_str方法将Edit1-Text转换成同样类型的串。若运行时出问题,请先检查一下DLL文件是否已放在应用程序的同一目录下,并且在项目中加入了DLL的.lib文件。该程序运行时按下“Call SayHello”后的画面如图11-10所示。 图11-10 程序调用了DLL中的SayHello函数 11.3.5 动态加载DLL 动态加载DLL指程序运行时加载DLL,需要使用Win32 API函数LoadLibrary或LoadLibraryEx。DLL被动态加载后,应使用Win32 API函数 GetProcAddress ( ) 得到DLL 中输出函数的地址(指针),应用程序中可使用该指针调用DLL外部函数。这样也就不需要使用.lib文件了。下面是一个例子。 【例11-8】 利用例9-6中已建立的DLL,假定编译产生的DLL文件是 dlltest.dll。 新建一个项目,窗体内放入两个编辑框和一个命令按钮。然后在Unit1.cpp中加入以下声明和事件代码: //Unit1.cpp文件? int (__stdcall* Add) (int, int); //必须声明为一个函数指针,然后用GetProcAddress //取得DLL中对应函数的地址(也可以在Unit1.h中声明) //--------------------------------------------------------------------------- void__fastcall TForm1::Button1Click (TObject *Sender) { HINSTANCE DLLInst = NULL; DLLInst = LoadLibrary (dlltest.dll); //装载DLL并返回模块句柄 if (DLLInst) { Add = (int (__stdcall*)(int, int)) GetProcAddress (DLLInst, add); if (Add) Caption = IntToStr (Add (Edit1-Text.ToInt ( ), Edit2-Text.ToInt ( ))); else ShowMessage (Don\t obtain function pointer); FreeLibrary (DLLInst); //释放DLL }
您可能关注的文档
最近下载
- 培育和践行社会主义核心价值观专题党课.doc VIP
- 小学数学统计与概率教学中数据分析能力培养教学研究课题报告[001].docx
- 体例格式3:《windows服务器基础配置与局域网组建》工学一体化课程学习任务设计.docx VIP
- 《GB/T 1231-2024钢结构用高强度大六角头螺栓连接副》.pdf
- 22G101 三维彩色立体图集.docx VIP
- 申万宏源校招笔试题目及答案.doc VIP
- 仁爱英语八年级下册Unit8Topic2SectionB教学案例.doc VIP
- 第9课 隋唐时期的经济、科技与文化(课件)-【中职专用】《中国历史》魅力课堂教学三件套(高教版2023•基础模块).pptx VIP
- 画法几何及水利土建制图习题答案.pdf VIP
- 高考语文现代文之石门阵.docx VIP
原创力文档


文档评论(0)