| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/2 16:34:49 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 一个项目中,将用户的仪器接口封装成DLL.根据不同的数据调用不同的dll用来解析. 比如 在DLL1.dll和DLL2.dll中都有 AnalysisData 函数.程序中根据收到的数据判断调用指定的DLL的AnalysisData函数,应如何实现 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/2 16:48:17 | ||||
| 1楼： | type Talb=function (a,b:Integer):Longint; var AnalysisData1:Talb; AnalysisData2:Talb; hShDocvw:THANDLE; begin hShDocvw := LoadLibrary('dll1.dll'); if(hShDocvw<>0) then begin AnalysisData1 := Talb(GetProcAddress(hShDocvw,'AnalysisData')); if(@AnalysisData1<>nil) then begin AnalysisData1(1,1); end; FreeLibrary(hShDocvw); end; //--------------------------------------- hShDocvw := LoadLibrary('dll2.dll'); if(hShDocvw<>0) then begin AnalysisData2 := Talb(GetProcAddress(hShDocvw,'AnalysisData')); if(@AnalysisData2<>nil) then begin AnalysisData2(1,1); end; FreeLibrary(hShDocvw); end; end; ----------------------------------------------  
|
|||||
| 作者： |
|
2004/3/2 18:14:29 | ||||
| 2楼： | DLL1/DLL2的函数参数是否不同？如果参数或参数类型不同就不能用上面的方法 当然也不是不能实现，但是要修改DLL来配合 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 信息 |
| 登陆以后才能回复 |
