|
$ j, m' Z& y' E
# Q/ U1 E. ?& F+ [+ ]摘 要: 本文介绍了DLL技术在Windows编程中的基本运用方法及应用,给出了直 ( W' l# ]. q% N! `
接内存 , R1 a4 \, \" K/ D( X
访问及端口I/O的两个实用DLL的全部源代码。
[4 D) G+ ]( {1 `9 ^# {关键词: DLL Windows编程 内存访问 I/O - y7 ~# j6 W6 J0 `) \" z2 ^- d
8 W% ?9 F) e, S/ C3 F1 O5 m N' ?一 、引 言
1 F6 T, z2 |* U由于Windows为微机提供了前所未有的标准用户界面、图形处理能力和简单灵便
) [2 o0 U; _4 G0 S! F5 j; {的操作,绝大多数程序编制人员都已转向或正在转向Windows编程。在许多用户
3 N' U. _. V: v% Y7 d$ e设计的实际应用系统的编程任务中,常常要实现软件对硬件资源和内存资源的访 8 R" ]; L( e4 A% a6 d$ y$ F9 g
问,例如端口I/O、DMA、中断、直接内存访问等等 。若是编制DOS程序,这是轻 $ `6 v+ y. D' H. V5 A
而易举的事情,但要是编制Windows程序,尤其是WindowsNT环境下的程序,就会 " F' L3 a! p0 A. q
显得较困难。
& H3 Z O$ w: ~) b5 T* H# u因为Windows具有"与设备无关"的特性,不提倡与机器底层的东西打交道,如果
. o" m# ]+ o3 @, c" r9 Y; n直接用Windows的 API函数或I/O读写指令进行访问和操作,程序运行时往往就会 ; Y% ~5 w3 m+ V
产生保护模式错误甚至死机,更严重的情况会导致系统崩溃。那么在Windows下 " A% t( P# }6 o& D( [7 w9 i. O$ H
怎样方便地解决上述问题呢?用DLL(Dynamic Link Libraries)技术就是良好途
* A* [8 t5 Y8 ]& c' }径之一。 # q: w1 F# H' i: p
DLL是Windows最重要的组成要素,Windows中的许多新功能、新特性都是通过
: T# g4 L1 ?- m0 V6 P9 oDLL来实现的,因此掌握它、应用它是非常重要的。其实Windows本身就是由许多 ; y* S& G, F5 w
的DLL组成的,它最基本的三大组成模块Kernel、GDI和User 都是DLL,它所有的
$ @& l# |3 O5 p9 [5 Z& ~9 F库模块也都设计成DLL。凡是以.DLL、.DRV、.FON、.SYS和许多以.EXE为扩展名
: y8 Z4 V6 X7 i5 L, T的系统文件都是DLL,要是打开Windows\System目录,就可以看到许多的DLL模块 ! ` c* R, Q4 m/ S" \6 r% ~
。尽管DLL在Ring3优先级下运行,仍是实现硬件接口的简便途径。DLL可以有自 $ Q9 X+ z( I( ^1 f. E8 Z' _
己的数据段,但没有自己的堆栈,使用与调用它的应用程序相同的堆栈模式,减 . `0 h- V! f) [
少了编程设计上的不便;同时,一个DLL在内存中只有一个实例,使之能高效经 9 B5 R$ J; ]3 v" {# A. E
济地使用内存;DLL实现的代码封装性,使得程序简洁明晰;此外还有一个最大
# o \) k8 q/ y7 @- {% d$ j9 Y的特点,即DLL的编制与具体的编程语言及编译器无关,只要遵守DLL的开发规范 8 |" c2 d& o( X1 N/ X; }
和编程策略,并安排正确的调用接口,不管用何种编程语言编制的DLL都具有通
' I9 s: P, ]2 E7 p用性。例如在BC31中编制的DLL程序,可用于BC、VC、VB、Delphi等多种语言环 - {2 j9 r; L Q: P
境中。笔者在BC31环境下编译了Windows下直接内存访问和端口I/O两个DLL,用 0 o$ D2 I. Q3 k) n% v/ n. [
在多个自制系统的应用软件中,
4 i: J; Q& [: R; n5 v运行良好。
# B& |# w1 `+ S0 D3 M9 _8 i6 j/ ?! u 3 g# ~7 ?3 F; T% ?* W" D( A
二、DLL的建立和调用 9 g0 E& A8 w4 { k# P
DLL的建立及调用方法在许多资料上有详细的介绍,为了节省篇幅,在这里仅作
% y+ N) y0 d2 ~9 a: }3 k一些
?. Y* |. ^+ J4 f5 i主要的概括。 : p' i8 i- [3 ^6 X4 G* @5 K
1.DLL的建立 5 }7 d* N: H; f. I
关于DLL的建立,有如下几个方面的要素是不可缺少和必须掌握的: 9 _% J* Z+ }* ?3 e% h
?. 入口函数LibMain( ) * c# X, g3 t5 ~ ?, f
就象C程序中的WinMain( )一样,Windows每次加载DLL时都要执行LibMain( )函
" f- [# w9 L, Q4 q3 C; t+ v1 [数,主要用来进行一些初始化工作。通常的形式是:
% `- E# t d+ b1 b- \+ e: ^ ) @3 \" K8 J2 N e% }0 z
& c' r* y) [# C" d% }
) E, T! U' L+ E( H; _" z0 D
int FAR PASCAL LibMain(HINSTANCE hInstance,WORD wDataSeg,WORD " A" O) u& L" ^5 c1 b
wHeapSize,LPSTR lpszCmdLine) - N* `: C6 f1 Z3 X! T& K
{ ( J# p8 i4 m, _: T/ Y8 G8 c
if(wHeapSize!=0) //使局部堆、数据段可移动 $ |- {' [$ p8 I' r
UnlockData(0); //解锁数据段 - }% v! a6 q/ x8 j. t4 j% T
/*此处可进行一些用户必要的初始化工作*/ ; u1 V. U; W, B% X, _; F
return 1; //初始化成功 # b/ Y; q* F0 B3 U
} 7 x D6 @7 \: W4 b& R: \
?出口函数WEP( )
4 W+ j R6 b. _ `! S4 D: M; VWindows从内存中卸载DLL时,调用相应的出口函数WEP( ),主要做一些清理工作 ; _7 t7 L, C9 E w+ E5 f
,如释放占用的内存资源;丢弃某些字串、位图等资源;关闭打开的文件等等。 7 C! V; V, R8 ?' I% h
" y' N' U( D7 x' o5 T?自定义的输出函数
2 g: L; u5 @% \为了让位于不同内存段的应用程序进行远程调用,自定义的输出函数必须定义为 3 K- U0 Q" _* ^3 W
远程函数(使用FAR关键字),以防使用近程指针而得到意外的结果;同时,加上 * q% c7 z Z4 O) L* N6 y! O
PASCAL关键字可加快程序的运行速度,使代码简单高效,提高程序的运行速度。
" \1 E5 ^1 Q( L& [, H u. l. }2 {0 K# x
?输出函数的引出方法 % o+ z. H; }$ i) [! Q$ V
? 在DLL的模块定义文件中(.DEF)由EXPORTS语句对输出函数逐一列出。例如: 3 B( E# C: f/ ]- V' \! `& z
EXPORTS WEP @1 residentname //residentname可提高DLL效率和处理速度 * B! L) }* Q8 k7 F8 i
PortIn @2 $ A H1 S; _/ A K& T0 ^
PortOut @3 //通常对所有输出函数附加系列号
( l" R' O- [/ z2 I8 K? 在每个输出函数定义的说明中使用_export关键字来对其引出。
) ]5 A9 |, E* p# R7 m9 A以上两种方法任选其中的一种即可,不可重复。后面的两个实例分别使用了上述 3 T$ X& q1 y* T7 |
两种不同的引出方式,请留意。 ! e8 F [3 l `7 r
7 N# G% ]6 O6 M4 a/ i! ~) J2.DLL的调用 ( B6 X( c# N" X. {
加载DLL时,Windows寻找相应DLL的次序如下:
7 V g5 `0 W& R% k?.当前工作盘。
: k' D y# J* u1 [?Windows目录;GetWindowsDirectory( )函数可提供该目录的路径名。 # ?* q- I& [" p8 v
?Windows系统目录,即System子目录;调用GetSystemDiretory( )函数可获得这
4 d3 {$ {! U: I3 G" d个目录的路径名。 ' [1 N' O! q. V
?DOS的PATH命令中罗列的所有目录。
2 P( b! \* o3 M' f?网络中映象的目录列表中的全部目录。
' n8 U& B& r! @3 I$ R / |( f- _# v. c! S$ y; k
DLL模块中输出函数的调用方法: + N, ~4 w1 \: U' s; d
不论使用何种语言对编译好的DLL进行调用时,基本上都有两种调用方式,即静
. ], z* T7 d6 ^8 o$ W Q6 k2 F态调用方式和动态调用方式。静态调用方式由编译系统完成对DLL的加载和应用
" s0 ?7 \( S, t程序结束时DLL卸载的编码(如还有其它程序使用该DLL,则Windows对DLL的应用 / `. l5 x" F4 l$ Q* V
记录减1,直到所有相关程序都结束对该DLL的使用时才释放它),简单实用,但
& L2 n6 j" T& G m8 a# k不够灵活,只能满足一般要求。动态调用方式是由编程者用API函数加载和卸载
9 J* d, \6 E2 D& \9 ~3 `7 ZDLL来达到调用DLL的目的,使用上较复杂,但能更加有效地使用内存,是编制大 . W1 W# ^7 B+ }* t) Q( `
型应用程序时的重要方式。具体来说,可用如下的方法调用: # i" E5 E9 d2 n
?.在应用程序模块定义文件中,用IMPORTS语句列出所要调用DLL的函数名。如:
- ?9 e0 m3 O! D
. P( ?$ N3 Z/ d! V2 TIMPORTS MEMORYDLL.MemoryRead " |# x) r) p3 F& n( F
MEMORYDLL.MemoryWrite
) G2 A/ A# z/ Q: ]/ ^% E# m4 A?让应用程序运行时与DLL模块动态链接
- D7 y5 a8 N" y6 g# z) K
- \, p% z) _- M: ~% E 4 O0 ^+ S5 F; ?, m4 @
3 p. X: M9 O5 f) Z. ~" S J' F4 ]
先用LoadLibrary加载DLL,再用GetProcAddress函数检取其输出函数的地址,获
: [3 J5 s' Q0 Q i+ N得其指针来调用。如:
2 a \! _) I' IHANDLE hLibrary;
; f* J0 G5 k M8 T+ Y$ C: pFARPROC lpFunc;
! Q6 t ^; b( H8 z# uint PortValue; 4 C8 Y* |7 @/ M! g8 [* ?
M : i+ U! L3 @) E1 r" Z) l+ n
hLibrary=LoadLibrary("PORTDLL.DLL"); //加载DLL 6 u4 F$ g4 ]; `! S0 y( {# Q
if(hLibrary>31) //加载成功 ! R2 k: t" K2 J- `
{ 1 b: c5 q! A" i X
lpFunc=GetProcAddress(hLibrary,"PortIn"); //检取PortIn函数地址 : B, Y7 |0 P$ X9 A: F# U; s
if(lpFunc!=(FARPROC)NULL) //检取成功则调用
; g5 t& q$ g' l J1 RPortValue=(*lpFunc)(port); //读port端口的值 # X# w- h7 _3 i: H* C: j1 d. ?
FreeLibrary(hLibrary); //释放占用的内存
9 @) U$ {7 W3 \ m/ Y} . H- g# M" w6 \
M ; `+ W& o$ F- T& Z
1 s/ N: d* K* W+ P4 ^+ u0 i5 r5 |
三、DLL应用实例源程序
4 o9 _/ `8 w3 v# G3 A8 n+ f1.直接内存访问的DLL源代码
& E: \5 o* z. u/ G//.DEF文件
4 M5 S# c+ L% C3 TLIBRARY MEMORYDLL
$ v) N! O4 m& R: D+ x2 ?: SDESCRIPTION 'DLL FOR MEMORY_READ_WRITE '
5 {" g, r# b- v$ e, oEXETYPE WINDOWS
0 S) S1 B3 I1 e! H/ tCODE PRELOAD MOVEABLE DISCARDABLE - L& p8 U; h5 K* j7 Q8 P; t2 a
DATA PRELOAD MOVEABLE SINGLE " [, l2 l2 P& {) {* M
HEAPSIZE 1024 //DLL无自己的堆栈,故没有STACKSIZE语句
+ G+ E9 E9 L2 n: ~6 B6 \( N5 |EXPORTS WEP @1 residentname $ @! I* ]1 p0 l! b5 D
ReadMemory @2
& L2 p0 x4 Y; ? v4 v( IWriteMemory @3 " i5 C, p$ u' F! @
A. W V+ l: L6 A s: p//.CPP文件 + R2 E/ i4 Y( Z! p) B! e
#include <windows.h>
6 i4 ]: I& X/ T. {5 S 3 Q3 g- U6 z6 }) h! K. @ G
int FAR PASCAL LibMain(HINSTANCE hInstance,WORD wDataSeg,WORD 6 B% s: ~& E2 X" L1 b- s; w
wHeapSize,LPSTR lpszCmdLine) " p4 L5 `7 s6 X8 ^/ o- d# U/ y, l
{
! H- H1 h) k9 s9 J3 G; m Yif(wHeapSize!=0)
, ^/ g7 F( M- FUnlockData(0); 5 K3 `: h0 f( ]: H% e# F
return 1;
0 [4 s( P7 B9 L/ b}
, a2 S: r" G- |! t) s9 F
+ p8 U+ `( C" Mint FAR PASCAL MemoryRead(unsigned int DosSeg,unsigned int . a+ M/ R! P5 B; q' e2 @/ h. h
DosOffset)
; f/ }2 J* ]+ ?% c. J( c# ^0 r' [{ * P+ F+ @3 {5 P
WORD wDataSelector,wSelector; " o+ ?1 U& x7 I( C4 b' c
char far *pData; ; |) A0 J! x, |' i% r* [, N9 p( D, R2 T
char value; , }% V9 u9 u W& I
wDataSelector=HIWORD((DWORD)(WORD FAR *)&wDataSelector); # I. H3 @* {" }8 }: O! l
wSelector=AllocSelector(wDataSelector); //分配选择器
0 ~ f% b' Q% S6 v# `* }SetSelectorLimit(wSelector,0x2000); //置存取界限
/ j5 Z; ]$ u5 ]9 y3 g& `* X: m$ PSetSelectorBase(wSelector,(((DWORD)DosSeg)<<4)+(DWORD)DosOffset); //置
( w) N% U8 L' E9 C6 H基地址 " Z. |5 U+ `/ _8 _
pData=(char far *)((DWORD)wSelector<<16); " y4 s% S+ i' l; ^
value=*pData; ' B+ w7 j( x3 h _
FreeSelector(wSelector); //释放选择器
" |5 M- Y2 R3 s$ w8 Wreturn (value); 9 f$ h8 f& ~7 t8 N0 o
} 8 m7 G% b0 M h( I
- d4 G# K r& s: N- j! U+ u: ~
! ]- m* `, K8 I; G
1 F' s( m* `8 U3 uvoid FAR PASCAL MemoryWrite(unsigned int DosSeg,unsigned int 5 g+ H8 |* N0 t$ h7 ] I* ~ }8 R
DosOffset,char Data)
3 q) J4 T. g: I( Y" [{ & O! y/ V6 n9 O3 P- l
WORD wDataSelector,wSelector; + N- J! i8 W3 _7 D9 o* }$ `, |
char far *pData;
6 }: {# R4 r& p9 {wDataSelector=HIWORD((DWORD)(WORD FAR *)&wDataSelector);
8 T2 k+ i9 q4 [wSelector=AllocSelector(wDataSelector);
! ?7 B9 P) i6 t2 L3 KSetSelectorLimit(wSelector,0x2000); 7 V- X6 R) p5 B, r5 X
SetSelectorBase(wSelector,(((DWORD)DosSeg)<<4)+(DWORD)DosOffset); 4 x( N9 A! V5 M
pData=(char far *)((DWORD)wSelector<<16);
M% ~& G) \; F9 Z9 M; i C# u*pData=Data;
3 P1 J" A! h; gFreeSelector(wSelector); 6 s, o7 N& t9 t' V* L+ b, r2 [
}
* }; {5 Y% Q, j. Y @% k0 e- L! A ^- e
int FAR PASCAL WEP(int nParam)
7 N) X- w# o) t3 U{ 4 m1 L' q- \% G# S. {! v
return 1;
# a6 ?0 b# {' b; l7 d9 u3 W} $ D# j, w6 y7 F
, ]; Y4 G3 ^7 w; {# j5 V
2.端口读写I/O的DLL源代码
- @& G l3 R; C: b% l//.DEF文件 - }( E$ O& b! \: r8 Z3 Y' C, J6 }
LIBRARY PORTDLL , E, j9 d, l6 ]% r& v
DESCRIPTION 'DLL FOR PORT_IN_OUT '
; M9 H* m) B% pEXETYPE WINDOWS 4 V( \( k6 p9 l4 e: [5 |4 P
CODE PRELOAD MOVEABLE DISCARDABLE 6 ^" `4 h: C2 H( _8 J# ]( v" c
DATA PRELOAD MOVEABLE SINGLE 7 c( U7 M5 k: M* ~# L
HEAPSIZE 1024 8 ^5 \7 O/ J2 t3 A# X* b0 x# z4 N- N
. B* n# c9 e7 _
//.CPP文件 + a, i7 E8 a$ Y A3 M- e# e9 k
#include <windows.h>
% X% }- R; [& X$ z% \% H( _) l2 @( {#include <dos.h> 1 y" L( H: R3 d! B; t
" O7 Q/ J. I) ~* J. }) J
int FAR PASCAL LibMain(HINSTANCE hInstance,WORD wDataSeg,WORD
9 q/ Y- G5 B) }* z' EwHeapSize,LPSTR lpszCmdLine) : X/ {0 _: j+ b
{
% s' M0 S! s+ F8 i9 ~: Y! Bif(wHeapSize!=0) * B8 v# Q3 j# U
UnlockData(0); c5 C5 Q. k" K( O7 H8 s% v4 H& O
return 1; , T5 |. p9 S; u* G; G) V
}
G2 j) D' t5 }
1 L* Y1 U' _& u. A; u# P2 h/ zint FAR PASCAL _export PortOut(int port,unsigned char value) ; I! A( v( S: G" R8 O
{ 1 Z8 x4 g# S' I% v
outp(port,value);
* d6 J; Q2 Z6 h3 O7 ]" e. {return 1; 9 Z# g3 Q- i1 q9 @8 v+ k
}
- E8 Z( w- D& T3 o
6 K4 S. I M r& i) {int FAR PASCAL _export PortIn(int port) 4 n" G, _5 o0 y* C' @( ^; r# _
{
' v/ B2 v" T1 u l, V. ?6 Uint result; 2 d" l% M9 w3 d7 X& C' |
result=inp(port); 5 q( w2 J+ E, M" b- Z1 }; L
return (result); 4 u; n5 s) t" Y3 C3 ^
} 9 ^; A8 W `7 P
# A, l6 s" s; d4 Lint FAR PASCAL _export WEP(int nParam) - O- h& a8 N( ~" r5 E7 U
{
8 M8 S2 Y3 j4 m9 g5 s. u r& [return 1;
# F" t! G; L' O}
6 o: U4 t7 S" `8 B+ m{ 8 Q" s1 y2 D( S
return 1; 7 o# P( I9 g( k0 d7 K/ h
} 8 ?& F; V5 [( K+ l3 w
& o& P$ x- I% ^
4 x; E6 I0 W# a J6 |+ d9 |8 `8 r分别将上面两个实例的.DEF文件和.CPP文件各自组成一个.PRJ文件,并进行编译
, g* |7 Z7 L/ e6 H( s; a" d链接成.EXE或.DLL文件就可以在应用程序中对其进行调用。
$ F& }1 M$ E1 x. v" l) ?* O+ F
7 v6 U E# @0 @* H1 f; ~四、结 束 语
9 P, [. V8 W' J/ K在上面,我们利用DLL技术方便地实现了Windows环境下对内存的直接访问和端口
& y: D9 Y9 s6 J. M6 O1 G& _$ i6 DI/O的访问,仿效这两个例子,还可以编制出更多的适合自己应用系统所需的
1 r; C& G: J% S1 M& h' J, iDLL,如用于数据采集卡的端口操作及扩展内存区访问、视频区缓冲区及BIOS数 - {4 H ]0 k% v# m! }4 U' g
据区操作等许多实际应用的编程任务中。必要时只需直接更新DLL,而用不着对 5 c% h0 F# d/ w. ~! C
应用程序本身作任何改动就可以对应用程序的功能和用户接口作较大的改善,实
/ l+ c3 ~% j6 T1 N' S9 R' _0 L; y现版本升级。因此,掌握好DLL技术对Windows程序开发者很有裨益。 |