本文使用一个简单实例讲述如何使用多态在Delphi中实现动态编程。
多态（Polymorphism）按字面的意思就是“多种形状”。引用Charlie Calverts对多态的描述——多态性是允许你将父对象设置成为和一个或更多的他的子对象相等的技术，赋值之后，父对象就可以根据当前赋值给它的子对象的特性以不同的方式运作。更多有关多态的讲述，请参考网络资料。
“动态语言“是一种在执行期间才去发现数据类型的程序设计语言，其有点在于其优良的扩展性，主要用于创建一些需要经常更新的动态系统。本文描述的动态编程，没有动态语言的意思，但是能让Delphi程序同样具有动态扩展的能力。
以Polymorphism的字面意思来举例，要实现一个画出各种形状的程序。刚开始，可能只需要实现画矩形、正方形的功能，但是可预知以后需要画其它图形。这很自然想到使用多态来实现，可是如何实现在增加其它形状时主程序完全不用修改呢？
一、实例描述：
1. 抽象类TGeometry（几何图形），它有一个画图形的抽象方法Draw()
2. 继承抽象类的子类：TRectangle（矩形）、TSquare（正方形）等等。所有类如下图
3. Main程序无须知道子类，只通过TGeometry画出各种图形，也无须关心 ......
http://social.msdn.microsoft.com/Forums/en-US/windowspro-audiodevelopment/thread/5ce74d5d-2b1e-4ca9-a8c9-2e27eb9ec058
it's work in Delphi 7
//////////////////////////
unit MMDevApi;
interface
uses
Windows, ActiveX, ComObj;
const
CLASS_IMMDeviceEnumerator : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
IID_IMMDeviceEnumerator : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
IID_IMMDevice : TGUID = '{D666063F-1587-4E43-81F1-B948E807363F}';
IID_IMMDeviceCollection : TGUID = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
IID_IAudioEndpointVolume & ......
为何有人嫌弃delphi?
个人最近学习愚见
2009年9月23日9:26:08（今天秋分，太阳会逐渐离开赤道向南回归线移动，太阳会一天天的远离我们北半球，注意保暖。）
本人最近被新的事物冲昏了头。Windows7、Delphi2010、VS2008+SP1、VS2010、Office2010等等一些软件的出现；3G来了（没有钱没有体会）；Iphone（MAC），Android（Google的），Linux（嵌入式方向的。Android从它派生的吧），塞班（诺基亚，不过听说他们有用新的操作系统了）等等几个巨头在瓜分着移动设备也就是未来的个人电脑的操作系统领域。Google百度都宣布要研发操作系统了；还有什么云了，框了等等就一个感觉晕，世界发展太TMD的快了，感觉自己更加渺小了。
我的第一个编程语言Delphi，说到她有种莫名的伤感。名字很好听的，是希腊神话中一个女神的名字。从CSDN上面看到09年8月份编程语言排行榜上面Delphi的排名为第11名，这个被anders创造，在Borland辉煌，而被Borland转手给易博龙的神话难道就此没落了吗？这个可是我不想看到的。她是我的信仰，我的母语，她让我第一次体会到变成的快乐，我不能说她没有缺点，但是我不能说她坏，不能说她不好。
很多人说她不好：有些是Delphi把他带入编程世界的，“它 ......
众所周知，系统需要进行多人并行开发时，应该把系统分拆成独立的模块，这样才能避免开发冲突。但如何进行分拆呢？在Delphi系统中，有很多种方法，下面来进行一一介绍与分享。
1.把模块拆分成包(dpk)，直接在主程序中通过LoadPackage函数把包装载进来即可。不过这种方法也有些不便，所有的类必须继承自TPersistentClass，并且RegisterClass之后才能被GetClass从主程序获取，这样操作也是比较麻烦的。（不推荐使用）
2.把模块拆分成DLL，编译时不带包编译（问题：由于类在独立的空间，使用外部包时，容易产生类不兼容的问题，在DLL中判断类是否继承自主exe中的对象是不行的，而这种需求又经常出现，因此不推荐使用这种方式。）
3.把模块拆分成DLL，编译时带包编译（在project->Options->Packages中把Build with runtime packages选上），然后把需要的包带进去即可，主程序也是带包编译，这样主程序与DLL就会使用共同的类分配表空间，对相同的类就可以进行兼容判断了，这样就可以使用DLL中继承自公共包中的基类来实现功能了，另外这样还可以避免很多问题，如使用第三方控件产生的奇怪问题，DLL建立的子窗口无法在主窗口中“存活”的问题，等等。
4.把模块拆� ......
dpr 为工程文件
dfm 为窗体文件
pas 为单元文件
cfg 配置文件
dof 为项目选项文件(一般没用)
dcu compiled units文件 ,编译后的单元文件
res 资源文件
ddp 文件就是Delphi Diagram Portfolio简写,是用来保存Code Editor中的Diagram信息的.
一般一个项目要考个别人,只需要 dpr,dfm,pas文件即可,如果有cfg,res也一块考(后两个文件很少用到) ......
希望大家在转贴的时候注明出处，谢谢)
用DELPHI开发网络代码已经有一段时间了！
我发现在网上用VC来实现完成端口（IOCP）的代码很多，但是使用DELPHI来实现的就比较少了。对IOCP讲的清楚的就更少了。在这里我把自己编写DELPHI下的IOCP写出来，希望对刚学完成端口的朋友有个帮助。
首先我们来了解一些在使用IOCP的时候需要使用的一些结构！
（1）：单IO数据结构
LPVOID = Pointer;
LPPER_IO_OPERATION_DATA = ^ PER_IO_OPERATION_DATA ;
PER_IO_OPERATION_DATA = packed record
Overlapped: OVERLAPPED;
DataBuf: TWSABUF;
Buffer: array [0..1024] of CHAR;
BytesSEND: DWORD;
BytesRECV: DWORD;
end;
上面的结构中Overlapped: OVERLAPPED;和DataBuf: TWSABUF;是固定的结构类型。Buffer: array [0..1024] of CHAR;是用来保存接受数据的缓存。BytesSEND: DWORD;用来标志发送数据的长度。BytesRECV: DWORD;用来标志接受数据的长度。因为完成端口的工作者线程可以接受到来自客户端的数据，同时还可以接受到自己发送给客户端的数据， ......
最新文章 : delphi