Delphi背后---初学者参考之二(2)
2006-02-04 13:47:18 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鐐劤缂嶅﹪寮婚悢鍏尖拻閻庨潧澹婂Σ顔剧磼閻愵剙鍔ょ紓宥咃躬瀵鎮㈤崗灏栨嫽闁诲酣娼ф竟濠偽i鍓х<闁绘劦鍓欓崝銈囩磽瀹ュ拑韬€殿喖顭烽幃銏ゅ礂鐏忔牗瀚介梺璇查叄濞佳勭珶婵犲伣锝夘敊閸撗咃紲闂佺粯鍔﹂崜娆撳礉閵堝洨纾界€广儱鎷戦煬顒傗偓娈垮枛椤兘骞冮姀銈呯閻忓繑鐗楃€氫粙姊虹拠鏌ュ弰婵炰匠鍕彾濠电姴浼i敐澶樻晩闁告挆鍜冪床闂備浇顕栭崹搴ㄥ礃閿濆棗鐦遍梻鍌欒兌椤㈠﹤鈻嶉弴銏犵闁搞儺鍓欓悘鎶芥煛閸愩劎澧曠紒鈧崘鈹夸簻闊洤娴烽ˇ锕€霉濠婂牏鐣洪柡灞诲妼閳规垿宕卞▎蹇撴瘓缂傚倷闄嶉崝搴e垝椤栫偛桅闁告洦鍨扮粻鎶芥倵閿濆簼绨藉ù鐘荤畺濮婃椽妫冨☉娆愭倷闁诲孩鐭崡鎶芥偘椤曗偓瀹曞爼顢楁径瀣珫婵犳鍣徊鍓р偓绗涘洤绠查柛銉墮閽冪喖鏌i弬鎸庢喐闁荤喎缍婇弻娑⑩€﹂幋婵囩亪濡炪値鍓欓悧鍡涒€旈崘顔嘉ч幖绮光偓鑼嚬缂傚倷绶¢崰妤呭箰閹间焦鍋╅柣鎴f绾偓闂佺粯鍔曠粔闈浳涢崘顔兼槬闁逞屽墯閵囧嫰骞掗幋婵愪紑閻庤鎸风粈渚€鍩為幋锔藉亹闁圭粯甯╂导鈧紓浣瑰劤瑜扮偟鍒掑▎鎾宠摕婵炴垶鐭▽顏堟煙鐟欏嫬濮囨い銉︾箞濮婃椽鏌呴悙鑼跺濠⒀傚嵆閺岀喖鎼归锝呯3闂佹寧绻勯崑娑㈠煘閹寸姭鍋撻敐搴樺亾椤撴稒娅婇柡灞界У濞碱亪骞忕仦钘夊腐闂備焦鐪归崐鏇㈠箠閹邦喗顫曢柟鎯х摠婵挳鏌涢幘鏉戠祷闁告挸宕—鍐Χ閸℃浠搁梺鑽ゅ暱閺呮盯鎮鹃悜钘壩ㄧ憸澶愬磻閹剧粯鏅查幖绮瑰墲閻忓秹姊虹紒妯诲鞍婵炲弶锕㈡俊鐢稿礋椤栨氨鐤€闂傚倸鐗婄粙鎰姳閼测晝纾藉ù锝堟閻撴劖鎱ㄥΟ绋垮婵″弶鍔欓獮妯兼嫚閼碱剦妲伴梻浣稿暱閹碱偊宕愭繝姣稿洭寮舵惔鎾存杸濡炪倖姊婚妴瀣啅閵夛负浜滄い鎾跺仜濡插鏌i敐鍥у幋妤犵偞甯¢獮瀣籍閳ь剟鎮楁繝姘拺閻熸瑥瀚崕妤呮煕濡 鍋撻悢鎻掑緧婵犵數濮烽弫鍛婃叏閻戣棄鏋侀柛娑橈攻閸欏繑銇勯幘鍗炵仼缁炬儳顭烽弻鐔煎礈瑜忕敮娑㈡煃闁垮鐏﹂柕鍥у楠炴帡宕卞鎯ь棜缂傚倸鍊风粈渚€藝闁秴鏋佸┑鐘虫皑瀹撲線鏌涢埄鍐姇闁稿﹦鍏橀弻娑樷攽閸℃浼€濡炪倖姊归崝鏇㈠煘閹达附鍊婚柛銉㈡櫇鏍¢梻浣告啞閹稿鎮烽敂鐣屸攳濠电姴娲﹂崵鍐煃閸濆嫬鏆熼柨娑欑矒濮婇缚銇愰幒鎴滃枈闂佸憡鐟ユ鎼佸煝閹炬枼鍫柛顐ゅ枔閸樻悂鏌h箛鏇炰户缁绢厼鐖煎畷鎴﹀箻鐠囪尙鐤€婵炶揪绲介幉锟犲磹椤栫偞鈷戠痪顓炴噹娴滃綊鎮跺☉鏍у姦闁糕斁鍋撳銈嗗笒閸燁偊鎯冨ú顏呯厸濞达絽婀辨晶顏堟煃鐟欏嫬鐏撮柟顔界懇瀵爼骞嬮悩杈敇闂傚倷绀佸﹢杈ㄧ仚闂佺濮ょ划搴ㄥ礆閹烘绫嶉柛顐ゅ枎娴犺櫣绱撴担鍓插創妞ゆ洘濞婇弫鍐磼濞戞艾骞堥梻浣告惈濞层垽宕濆畝鍕€堕柣妯肩帛閻撴洟鏌熼懜顒€濡煎ù婊勫劤閳规垿鏁嶉崟顐℃澀闂佺ǹ锕ラ悧鐘茬暦濠靛鏅濋柍褜鍓熼垾锕傚锤濡も偓閻掑灚銇勯幒宥堝厡缂佺姴澧介埀顒€鍘滈崑鎾斥攽閻樿京绐旈柛瀣殔閳规垿顢欑涵鐑界反濠电偛鎷戠徊鍨i幇鏉跨闁瑰啿纾崰鎾诲箯閻樼粯鍤戦柤绋跨仛濮f劙姊婚崒姘偓鐑芥嚄閼哥數浠氭繝鐢靛仜椤曨參宕楀Ο渚殨妞ゆ劑鍊栫€氭氨鈧懓澹婇崰鏍р枔閵婏妇绡€闁汇垽娼ф牎缂佺偓婢樼粔鐟邦嚕閺屻儱绠甸柟鐑樼箘閸炵敻鏌i悩鐑橆仩閻忓繈鍔岄蹇涘Ψ瑜夐崑鎾舵喆閸曨剙纰嶅┑鈽嗗亝缁诲倿锝炶箛娑欐優闁革富鍘鹃敍婊冣攽閳藉棗鐏犻柟纰卞亰閿濈偛顓奸崶鈺冿紳婵炶揪缍侀ˉ鎾诲礉瀹ュ鐓欑紒瀣仢閺嗛亶鏌i敐鍥у幋妤犵偛顑夐弫鍐焵椤掑倻涓嶅┑鐘崇閸嬶綁鏌涢妷鎴濆暟妤犲洭鎮楃憴鍕碍缂佸鎸抽垾鏃堝礃椤斿槈褔鏌涢埄鍏狀亪妫勫鍥╃=濞达絽澹婇崕鎰版煕閵娿儱顣崇紒顔碱儏椤撳吋寰勭€n亖鍋撻柨瀣ㄤ簻闁瑰搫绉堕ˇ锔锯偓娈垮枛閻忔繈鍩為幋锕€鐓¢柛鈩冾殘娴狀垶姊洪崨濠庣劶闁告洦鍙庡ú鍛婁繆閵堝繒鍒伴柛鐕佸灦瀹曟劙宕归锝呭伎濠碘槅鍨抽崢褎绂嶆ィ鍐╁€垫慨妯煎亾鐎氾拷

(续Delphi背后---初学者参考之二(1) )
2 Windows API
API(application PRogramming Interface)应用编程接口,所有的计算机语言都要用到它。API是什么?API是程序使用操作系统提供的服务的一个途径,我们大多数的编程都不直接操作硬件,而是调用这些API,再由操作系统直接操作硬件,这样的好处是我们编程时不必考滤与硬件兼容的问题,更重要的是从操作系统层实现了代码共享。所以,在编程时如果能用API实现的功能,我们尽量用它。
l Delphi如何使用Windows API
在日常开发工作中,我们经常要使用Windows API函数,那么API函存在在哪里呢?我们可以这样理解,API函数就是封装在Windows系统提供的DLL系统文件中。如我们经常使用的Beep过程(响铃),就是调用Windwos系统目录下的user32.dll中的MessageBeep实现的;SendMessage(发消息)就是直接调用user32.dll的SendMessageA。Delphi使用频率最多的Dll是:advapi32.dll、kernel32.dll、mpr.dll、version.dll、comctl32.dll、gdi32.dll、opengl32.dll、user32.dll、wintrust.dll、msimg32.dll。
那么Delphi是如何使用这API函数的呢?既然API函数存在于系统的DLL中,那么我们就可以像调用自己写的DLL一样调用API函数啦。调用DLL函数有两种方式,一种是静态方式,一种是动态方式。调用Windows的API都是采用静态方式,为什么呢?这是因为这些DLL是操作系统提供的最基本服务,操作系统在启动时就已经加载到内存中了,并且操作系统也大量的使用他们。
l API与日常编程
Delphi封装了Windows的大部分API函数(主要在Windows.pas单元中),应该说可以完成我们的大部分工作,我们一般不直接调用API函数。但有时有特别要求时,我们可能就要调用一些Delphi没封装过的API,有时甚至会调用Windows没公布的API函数。那么如何调用这些API函数呢?就像前面说的,使用静态方法调用就好了。更详细的调用请参看相关的资料。
调用这些Delphi没封装的API函数关键是要知道参数。可以查阅看最新的MSDN或相关的资料。
l API与VCL
Microsoft的MFC大量的封装地Windows API,VCL也不例外。VCL功能的实现大部分都离不开Windows API,要么是直接调用,要么是经过简单的封装再调用。如TControl的Repaint的实现(Control单元中):
procedure TControl.Repaint;
var
DC: HDC;
begin
if (Visible or (csDesigning in ComponentState) and not (
csNoDesignVisible in ControlStyle)) and (Parent <> nil) and
Parent.HandleAllocated then
if csOpaque in ControlStyle then
begin
//直接调用user32.Dll的GetDC
DC := GetDC(Parent.Handle);
Try
//直接调用gdi32.Dll的IntersectClipRect
IntersectClipRect(DC, Left, Top, Left + Width, Top +
Height);
// Parent.PaintControls调用大量的API
Parent.PaintControls(DC, Self);
Finally
// 直接调用user32.Dll的ReleaseDC
ReleaseDC(Parent.Handle, DC);
end;
end else
begin
//以下两个经过封装调用
Invalidate;
Update;
end;
end;
可见VCL中处处都有API,我们从另外一个面来理解VCL就是:VCL就是大量封装API函数的类库,这样的结果就是使我们更容易使用API,不必关心那些烦人的API参数。
3 Delphi与Windwos COM服务
COM是什么东西?COM(Component Object Model),组件对象模型,它是基于Windows平台的让不同的独立对象能相互通讯的不受任何计算语言约束的软件组件模型,它定义一组API和一个二进制标准。这个定义比较抽象,首先它是一种组件模型,定义了一种组件对象规范,实现这个COM模型的对象就是COM对象。COM对象是通过接口(Interface)来实现访问的,一个COM对象可以包含一个或多个接口,这些接口构成了COM对象的功能,你可以像访问VCL对象方法一样访问COM对象的接口方法。COM对象的目的是实现资源共享,它在二进制代码级别实现了共享,所以它可以用不同的编程语言来实现,也可以由不同的编程语言来调用,这类似于DLL(其实COM的思想来源来DLL)。
l VCL与COM
COM是Microsoft以前极力推崇的东西,所以在Windows操作系统中无处不在,同样Delphi的VCL也有调用Windows COM服务的,最明显例子就是组件栏ADO页的所有ADO组件,如TADOQuery,它是从TCustomADODataSet继承下来的,而TCustomADODataSet的定义如下:
TCustomADODataSet = class(TDataSet, IUnknown,
RecordsetEventsVt)
private
FRecordsetObject: _Recordset;
FFindCursor: _Recordset;
FLookupCursor: _Recordset;
FLockCursor: _Recordset;
FRowset: IRowset;
Faccessor: IAccessor;
FRowsetFind: IRowsetFind;
FHAccessor: HACCESSOR;
FOleRecBufSize: Integer;
…
end;
ADO(Microsoft ActiveX Data Objects),它是一组通过Microsoft OLE DB 提供者访问数据库的COM对象的集合。如我们研究一下TADOQuery的First方法的实现过程:
TADOQuery.First->TDataSet.First->TdataSet.InternalFirst-> TCustomADODataSet. InternalFirst ->Recordset15. MoveFirst
TADOQuery从TCustomADODataSet继承,而TCustomADODataSet从TdataSet继承,TdataSet.InternalFirst定义的是虚方法,而子类TCustomADODataSet. InternalFirst覆盖了它。TCustomADODataSet. InternalFirs调用接口Recordset15的 MoveFirst方法。
不难发现,TADOQuery.First最终是通过接口调用COM对象实现的。
l Delphi与Windows 外壳
什么是Windows外壳呢?Windows外壳是Windows界面操作的环境,它还为我们编程提供了强大的可扩展性。我们利用Windows外壳实现某些功能的编程,称为外壳扩展。例如,如果你的机器上已经装了WinRAR,在文件夹的右键菜单就会看到WinRAR的压缩菜单。这些功能就是通过Windows的外壳扩展实现的。
Windows外壳是基于COM的,所以所有的外壳扩展都要通过接口实现。Delphi也定义了很多外壳扩展接口,在Delphi7的安装目录下的Source\rtl\Win\ShlObj.pas单元中。
在Delphi的Demo目录下的有一个Virtual Listview的例子,就是通过Windows外壳扩展实现磁盘浏览的,有兴趣的读者可以研究一下。
4 嵌入式汇编语言
在代码中嵌入汇编语言也是Delphi的一大特色,如VCL的根类Tobjce的实现就大量嵌入了汇编语句。
汇编语言是一种比较低级的计算机语言,与硬件的关系比较密切。所以我们在平时编程中尽量不要使用它,但是在某些特殊场合(如性能要求比较高、需要直接操纵硬件)下,使用它还是能发挥很大的作用的。
The end.
(如需要转载,请注明出处及作者http://haitian.myrice.com)
- ››Delphi实现把10进制转换成16进制的函数进制转化
- ››Delphi中将字符串按给定字符分隔(似split函数功能...
- ››Delphi 动态创建窗体,锁定窗口赋值
- ››Delphi 与 VC 共享接口和对象
- ››Delphi图像处理 -- 表面模糊
- ››Delphi之多线程实例
- ››Delphi SelectSingleNode的使用 根据节点属性获取...
- ››Delphi接口详述
- ››delphi 远程调试
- ››Delphi与DirectX之DelphiX(34): TDIB.Lightness()...
- ››Delphi Application.MessageBox详解
- ››Delphi只能运行一个程序实例的两种方法
更多精彩
赞助商链接