(五) 使用DLL函数
1、使用步骤如下:
1. 首先声明函数:
prototype 函数名(形参列表);
2. 使用内置函数UseDLL函数将DLL文件调入内存
3. 接着,调用已声明过的DLL函数
4. 使用内置函数UnUseDLL函数将DLL文件从内存中释放出来。
1 #define DLL_FILE "C:\\Windebug\\MYDLL.DLL"
2 //声明在MYDLL文件中定义的MydllReturn函数
3 prototype MYDLL.MydllReturn(int, POINTER);
4
5 STRING szDLL, svString;
6 INT nValue;
7 POINTER psvString;
8 NUMBER nResult;
9
10 program
11 szDLL = DLL_FILE;
12
13 // 将MYDLL.DLL文件调入内存
14
15 nResult = UseDLL(szDLL);
16 if(nResult != 0)
17 abort;
18 endif;
19
20 // 调用DLL函数
21 MydllReturn(nValue, psvString);
22
23 //将MYDLL.DLL文件从内存中释放出来
24 if(UnUseDLL(szDLL)<0) then
25 MessageBox("failed", SEVERE);
26 else
27 MessageBox("Success", INFORMATION);
28 endif;
29
30 endprogram
3 prototype MYDLL.MydllReturn(int, POINTER);
4
5 STRING szDLL, svString;
6 INT nValue;
7 POINTER psvString;
8 NUMBER nResult;
9
10 program
11 szDLL = DLL_FILE;
12
13 // 将MYDLL.DLL文件调入内存
14
15 nResult = UseDLL(szDLL);
16 if(nResult != 0)
17 abort;
18 endif;
19
20 // 调用DLL函数
21 MydllReturn(nValue, psvString);
22
23 //将MYDLL.DLL文件从内存中释放出来
24 if(UnUseDLL(szDLL)<0) then
25 MessageBox("failed", SEVERE);
26 else
27 MessageBox("Success", INFORMATION);
28 endif;
29
30 endprogram