最近到图书馆里借了一本Delphi好书－《*Delphi精要*》。说实在的，国内的
Delphi书有95%是垃圾， 大都是网上的技巧，代码堆积起来的，通常一本书30分
钟就可以搞定。但是这本技术书写得有点武侠
版的味道，而且都是作者切身的经验体会，可以和我先前看过的台湾的牛人陈宽达
的《Delphi深度历险》
相提并论。好书当然要做笔记了，以下就是俺的看书笔记。
1.集合
定义
TOneSet= set of (A,B,C);//全集
声明
partSet=[A,B];
运算
+:
partSet=partSet+[B];//等价于：Include(partSet,B);
-:
partSet=partSet-[B];//等价于：Exclude(partSet,B);
2.指针
除了pchar类型的指针变量，其他类型的指针变量是不允许进行加减运算的
@I等价于addr(I)
3.编译时函数：
编译时函数可以在声明中调用如下：
var
R1:Word=Trunc(12.6);
编译时函数列表：
ord()
chr()
Trunc()
Round()
High()
Low()
SizeOf()
4.DLL
1)在DLL中编写的函数或过程都必须加上stdcall调用参数.
library Delphi;
uses
SysUtils,
Classes;
function TestDll(i:integer):integer;stdcall;
begin
Result:=i;
end;
exports
TestDll;
begin
end.
2)当使用了长字符串类型的参数、变量时要引用ShareMem。
Delphi中的string类型很强大，我们知道普通的字符串长度最大为256个字
符，但Delphi中string类型在默认情况下长度可以达到2G。（对，您没有看错，确
实是两兆。）这时，如果您坚持要使用string类型的参数、变量甚至是记录信息
时，就要引用ShareMem单元，而且必须是第一个引用的。既在uses语句后是第一个
引用的单元。如下例：
uses
ShareMem,
SysUtils,
Classes;
还有一点，在您的工程文件（*.dpr）中而不只是单元文件（*.pas）中也要做
同样的工作，这一点Delphi自带的帮助文件没有说清楚，造成了很多误会。不这样
做的话，您很有可能付出死机的代价。避免使用string类型的方法是将string类型
的参数、变量等声明为Pchar或ShortString（如：s:string[10]）类型。同样的问
题会出现在当您使用了动态数组时，解决的方法同上所述。
3)静态调用例子：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
...{ Private declarations }
public
...{ Public declarations }
end;
var
Form1: TForm1;
implementation
...{$R *.DFM}
//本行以下代码为我们真正动手写的代码
function TestDll(i:integer):integer;stdcall;
external ’Delphi.dll’;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(TestDll(1));
end;
end.
4)动态调用：
这一点很重要，使用静态调用方法时要求所调用的DLL文件以及要调用的函数或过
程等等必须存在。如果不存在或指定的路径和文件名不正确的话，运行主程序时系
统会提示“启动程序时出错”或“找不到*.dll文件”等运行错误。
动态调用DLL相对复杂很多，但非常灵活。为了全面的说明该问题，这次我们
举一个调用由C++编写的DLL的例子。首先在C++中编译下面的DLL源程序。
#include
extern ”C” _declspec(dllexport)
int WINAPI TestC(int i)
...{
return i;
}
编译后生成一个DLL文件，在这里我们称该文件为Cpp.dll，该DLL中只有一个
返回整数类型的函数TestC。为了方便说明，我们仍然引用上面的调用程序，只是
将原来的Button1Click过程中的语句用下面的代码替换掉了。
procedure TForm1.Button1Click(Sender: TObject);
type
TIntFunc=function(i:integer):integer;stdcall;
var
Th:Thandle;
Tf:TIntFunc;
Tp:TFarProc;
begin
Th:=LoadLibrary(’Cpp.dll’); ...{装载DLL}
if Th>0 then
try
Tp:=GetProcAddress(Th,PChar(’TestC’));
if Tp<>nil
then
begin
Tf:=TIntFunc(Tp);
Edit1.Text:=IntToStr(Tf(1)); ...{调用TestC函数}
end
else
ShowMessage(’TestC函数没有找到’);
finally
FreeLibrary(Th); ...{释放DLL}
end
else
ShowMessage(’Cpp.dll没有找到’);
end;
5）
一、编写技巧。
1 、为了保证DLL的正确性，可先编写成普通的应用程序的一部分，调试无误
后再从主程序中分离出来，编译成DLL。
2 、为了保证DLL的通用性，应该在自己编写的DLL中杜绝出现可视化控件的名
称，如：Edit1.Text中的Edit1名称；或者自定义非Windows定义的类型，如某种记
录。
3 、为便于调试，每个函数和过程应该尽可能短小精悍，并配合具体详细的注
释。
4 、应多利用try-finally来处理可能出现的错误和异常，注意这时要引用
SysUtils单元。
5 、尽可能少引用单元以减小DLL的大小，特别是不要引用可视化单元，如
Dialogs单元。例如一般情况下，我们可以不引用Classes单元，这样可使编译后的
DLL减小大约16Kb。
二、调用技巧。
1 、在用静态方法时，可以给被调用的函数或过程更名。在前面提到的C++编
写的DLL例子中，如果去掉extern ”C”语句，C++会编译出一些奇怪的函数名，原来
的TestC函数会被命名为@TestC$s等等可笑的怪名字，这是由于C++采用了C++
name mangling技术。这个函数名在Delphi中是非法的，我们可以这样解决这个问
题：
改写引用函数为
function TestC(i:integer):integer;stdcall;
external ’Cpp.dll’;name ’@TestC$s’;
其中name的作用就是重命名。
2 、可把我们编写的DLL放到Windows目录下或者Windowssystem目录下。这样
做可以在external语句中或LoadLibrary语句中不写路径而只写DLL的名称。但这样
做有些不妥，这两个目录下有大量重要的系统DLL，如果您编的DLL与它们重名的话
其后果简直不堪设想，况且您的编程技术还不至于达到将自己编写的DLL放到系统
目录中的地步吧！
三、调试技巧。
1 、我们知道DLL在编写时是不能运行和单步调试的。有一个办法可以，那就
是在Run|parameters菜单中设置一个宿主程序。在Local页的Host Application栏
中添上宿主程序的名字就可进行单步调试、断点观察和运行了。
2 、添加DLL的版本信息。开场白中提到了版本信息对于DLL是很重要的，如果
包含了版本信息，DLL的大小会增加2Kb。增加这么一点空间是值得的。很不幸我们
如果直接使用Project|options菜单中Version选项是不行的，这一点Delphi的帮助
文件中没有提到，经笔者研究发现，只要加一行代码就可以了。如下例：
library Delphi;
uses
SysUtils,
Classes;
...{$R *.RES}
//注意，上面这行代码必须加在这个位置
function TestDll(i:integer):integer;stdcall;
begin
Result:=i;
end;
exports
TestDll;
begin
end.
3 、为了避免与别的DLL重名，在给自己编写的DLL起名字的时候最好采用字符
数字和下划线混合的方式。如：jl_try16.dll。
4 、如果您原来在Delphi 1或Delphi 2中已经编译了某些DLL的话，您原来编
译的DLL是16位的。只要将源代码在新的Delphi 3或Delphi 4环境下重新编译，就
可以得到32位的DLL了。
[后记]：除了上面介绍的DLL最常用的使用方法外，DLL还可以用于做资源的载体。
例如，在Windows中更改图标就是使用的DLL中的资源。另外，熟练掌握了DLL的设
计技术，对使用更为高级的OLE、COM以及ActiveX编程都有很多益处。
========================================================
14:36 2005-11-30
1.操作有序变量的函数：
Ord()
Pred()
Succ()
High()
Low()
2.Boolean类型
Boolean//一个字节
...{以下四个是用以兼容操作系统的}
ByteBool//一个字节
WordBool//两个字节
LongBool//四个字节
3.枚举和子界
TColors=(Red,Blue=5,Green,Yellow,Orange,Purple);
TMyColors=Green..Purple;
4.Real
声明变量时用Double和Single,在用做参数传递时用Extended.
5.过程类型和方法类型
Type
...{过程类型：}
TMyFunction = function(参数列表):返回类型;
TMyProcedure = procedure()(参数列表);
...{方法类型：}
TNotifyEvent= procedure(Sender:TObject) of object;
6.Variant类型
Variant类型有三个状态：Unassigned,Null,非Null
7.类型别名
type DWORD =LongWord;//任何时刻DWORD和LongWord都是相容的
type
HWND = type LongWord;//用于var和out参数等要求严格类型匹配的地方时，被
认为不兼容
========================================================
21:23 2005-12-8
1.变体记录
type
TMessage=
packed record//Using packed slows data access and, in the case of a character array, affects type compatibility (for more information,
msg:Cardinal;
case Integer of
0:(
WParam:Longint;
LParam:Longint;
Result:LongInt;
);
1:(
WParamLo:word;
WParamHi:word;
LParamLo:word;
LParamHi:word;
ResultLo:word;
ResultHi:word;
);
end;
以上是vcl消息定义
typedef struct ...{
HWND hwnd;
UINT message;
WPARAM wParam;
LPARAM lParam;
DWORD time;
POINT pt;
} MSG, *PMSG;
系统消息结构定义
2.vcl中两种消息派遣
vcl消息机制的整个流程如下：
Windows->Delphi Application->(TWinControl)MainWndProc->WndProc->Dispatch->Handler
(1)Application->dispatchMessage(const lpMsg:TMsg)根据参数lpMsg的接受者句
柄字段，将消息正文发给该句柄对应的窗口控件在windows中注册的窗口过程:
Twincontrol.MainWndProc.所以到这里，消息就传递给Twincontrol了。这是在
Windows中派遣，是底层Api函数的调用。
(2)TObject.Dispatch(var Message);
Dispatch首先在本类中查找相应的消息方法，如果没有找到，那么逐级上溯父
类，祖先类，直到找到对应的消息方法。
procedure Tobject.Dispatch(var Message)
begin
搜索Handler;
如果没有找到就调用DefaultHandler(var Message);
end;
========================================================
19:40 2005-12-9
1.发送消息的多种方法
1).给指定窗口发送消息
给窗口发送消息：
function SendMessage(hWnd:HWND;Msg:UINT;wParam:WParam;lParam:LParam):LRESULT;stdcall;
//That is, SendMessage does not return until the target control has handled the message, even if it //is in another thread.
function DispatchMesage(const lpMsg:TMsg):Longint;stdcall;
------------------------------------------------------------------------------
function PostMessage(hWnd:HWND;Msg:UINT;wParam:WPARAM;lParam:LParam):Bool;stdcall;
2) 给应用程序发送消息：
function SendAppMessage(Msg:Cardinal;wParam,lParam:Longint);
3) 给线程发送消息
function PostThreadMessage(idThread:DWORD;Msg:UINT;wParam:WPARAM;lParam:LPARAM):BOOL;stdcall;
获取idThread可用Api函数得：
function GetWindowThreadProcessId(hWnd:HWND;lpdwProcessId:Pointer=nil):DWORD;stdcall;overload;
function GetWindowThreadProcessId(hWnd:HWND;var dwProcessId:DWORD):DWORD;stdcall;overload;
今天郁闷啊，去玩魔兽输了两盘，好没面子，以后不玩了，魔兽bye了！虽然
你很完美，但是与你无缘了，但是我盼望着在未来的某一天我可以开发一款像你这
样的游戏！加油，加油，继续加油！
========================================================
2005-12-12
1.字符串资源
resourcestring
AuthorName = ’Marco Cantù’;
BookName = ’Essential Pascal’;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage (BookName + #13 + AuthorName);
end;
以上代码中的两个字符串将分两行输出显示，因为字符串被分行符 #13 隔开。
有趣的是，当你用资源编辑器打开执行文件时，你会在程序资源中看到你所定义的
字符串。这意味着字符串并没有进入编译代码，而是保存在执行文件 (EXE文件)
的一个单独区域。
注意：简而言之，采用资源的好处一方面可让Windows 来完成有效的内存处理，另
一方面不用更改源代码就可实现程序的本地化 (把字符串翻译成不同的语言)。
2.位操作
type TIntBitPos=0..31;
//取得一个Integer中的某位
function GetBitOfInt(I:integer;BitPos:TIntBitPos):Boolean;
begin
result:=(I shr BitPos) and $1=1;
end;
//替换一个Integer的某位
procedure ReplaceBitOfInt(var I:integer;BitPos:TIntBitPos;NewValue:Boolean);
var
newV:Integer;
begin
if GetBitOfInt(I,BitPos)<>NewValue then
begin
if BitPos=0 then
NewV:=1;
else
NewV:=2 shl (BitPos-1);
if NewValue then
Inc(I,NewV)
else
Dec(I,NewV);
end;
end;
========================================================
11:27 2005-12-13
1.自定义系统唯一消息
UINT RegisterWindowMessage(LPCTSTR lpString);
DWORD GetWindowThreadProcessId(HWND hWnd,
LPDWORD lpdwProcessId
);
例子：
接收端
AppReceive
var
Id:dword;
begin
mainform.newOneMessage(var Msg:TMsg;var Handled:Boolean);
begin
if Msg.message=Id then
begin
showMessage(’应用程序收到消息’);
handled:=true;
end;
end;
mainform.formcreate();
begin
caption:=’接受者’；
ID:=RegisterWindowMessage(PChar(’OneOfAppMessage’));
end;
mainform.WndProc(var Message:TMessage) override;
begin
inherited;
with Message do if Msg=Id then
begin
showMessage(’主窗体收到消息’);
result:=0;
end;
end;
end;
发送端
AppSend
var
Id:dword;
begin
mainform.formcreate();
begin
caption:=’发送者’;
ID:=RegisterWindowMessage(Pchar(’OneOfAppMessage’));
end;
mainform.button1Click(sender.Tobject);
begin
H:=FindWindow(nil,pchar(’接受者’));
if H<>0 then
begin
sendMessage(H,ID,0,0);
PostThreadMessage(GetWindowThreadProcessId(H),ID,0,0);
end;
end;
end;
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/pottos/archive/2007/03/13/1528397.aspx
