function select_dll(const str:array of string; tol:integer):integer;
var
i: integer;
var_dll: string;
begin
for i:=0 to length(str) do
case i of
0: var_dll:='dll_process_gsm.dll';
break;
1: var_dll:='dll_process_mot.dll';
break;
2: var_dll:='dll_process_nok.dll';
break;
3: var_dll:='dll_process_sms.dll';
end;
if LoadLibrary(var_dll) = '' then
showmessage('装载动态库'+var_dll+'失败!')
end;
我公司要我做一个与动态库与平台间的函数,dll有很多,动态链接时,那不同的动态库有不同的函数,怎样建一个库与库里函数映射呀?
var
i: integer;
var_dll: string;
begin
for i:=0 to length(str) do
case i of
0: var_dll:='dll_process_gsm.dll';
break;
1: var_dll:='dll_process_mot.dll';
break;
2: var_dll:='dll_process_nok.dll';
break;
3: var_dll:='dll_process_sms.dll';
end;
if LoadLibrary(var_dll) = '' then
showmessage('装载动态库'+var_dll+'失败!')
end;
我公司要我做一个与动态库与平台间的函数,dll有很多,动态链接时,那不同的动态库有不同的函数,怎样建一个库与库里函数映射呀?
解决方案 »
- 控件获取
- 问一个关于数据实时保存的问题
- 初学delphi请各位大哥赐教。
- 给steveli放分。steveli进!500分之1。
- 如何在程序中快速清空2000下的打印作业呢?---急用
- belllab,你有DevExpress系列 For D7版的下载地址吗?
- VB和 Delphi之间怎么传递多维数组(一维数组我知道怎么传递)100
- ADOQUERY控件再次连接ORACLE数据库时报错,不知什么原因,请指教
- 关于Tclientdataset问题
- 哪有MS SQL2000下载呀?
- 简单的问题,哪位解答一下,加100分!!!!如何用一个过程释放不同的类!
- 安装 ehlib后 字体和控件尺寸变化的问题!
就象Delphi中调用API一样。