delphi 学习积累

ORM：对象关系映射Object Relational Mapping，简称ORM，或O/RM，或O/R mapping），是一种程序技术，用于实现面向对象编程语言里不同类型系统的数据之间的转换 [1]  。从效果上说，它其实是创建了一个可在编程语言里使用的--“虚拟对象数据库”。

面向对象是从软件工程基本原则（如耦合、聚合、封装）的基础上发展起来的，而关系数据库则是从数学理论发展而来的，两套理论存在显著的区别。为了解决这个不匹配的现象，对象关系映射技术应运而生。

对象关系映射（Object-Relational Mapping）提供了概念性的、易于理解的模型化数据的方法。ORM方法论基于三个核心原则： 简单：以最基本的形式建模数据。 传达性：数据库结构被任何人都能理解的语言文档化。 精确性：基于数据模型创建正确标准化的结构。 典型地，建模者通过收集来自那些熟悉应用程序但不熟练的数据建模者的人的信息开发信息模型。建模者必须能够用非技术企业专家可以理解的术语在概念层次上与数据结构进行通讯。建模者也必须能以简单的单元分析信息，对样本数据进行处理。ORM专门被设计为改进这种联系。

简单的说：ORM相当于中继数据。具体到产品上，例如ADO.NET Entity Framework。DLINQ中实体类的属性[Table]就算是一种中继数据。

 

SOA：面向服务的架构（SOA）是一个组件模型，它将应用程序的不同功能单元（称为服务）通过这些服务之间定义良好的接口和契约联系起来。接口是采用中立的方式进行定义的，它应该独立于实现服务的硬件平台、操作系统和编程语言。这使得构建在各种各样的系统中的服务可以以一种统一和通用的方式进行交互。

 

耦合与内聚：相反概念，内聚标志一个模块内各个元素彼此结合的紧密程度，它是信息隐蔽和局部化概念的自然扩展。内聚是从功能角度来度量模块内的联系，一个好的内聚模块应当恰好做一件事。它描述的是模块内的功能联系。耦合是软件结构中各模块之间相互连接的一种度量，耦合强弱取决于模块间接口的复杂程度、进入或访问一个模块的点以及通过接口的数据。 程序讲究的是低耦合，高内聚。就是同一个模块内的各个元素之间要高度紧密，但是各个模块之间的相互依存度却要不那么紧密。 [2]

内聚和耦合是密切相关的，同其他模块存在高耦合的模块意味着低内聚，而高内聚的模块意味着该模块同其他模块之间是低耦合。在进行软件设计时，应力争做到高内聚，低耦合。

（1） 内容耦合。当一个模块直接修改或操作另一个模块的数据时，或一个模块不通过正常入口而转入另一个模块时，这样的耦合被称为内容耦合。内容耦合是最高程度的耦合，应该避免使用之。

（2） 公共耦合。两个或两个以上的模块共同引用一个全局数据项，这种耦合被称为公共耦合。在具有大量公共耦合的结构中，确定究竟是哪个模块给全局变量赋了一个特定的值是十分困难的。

（3） 外部耦合 。一组模块都访问同一全局简单变量而不是同一全局数据结构，而且不是通过参数表传递该全局变量的信息，则称之为外部耦合。

（4） 控制耦合 。一个模块通过接口向另一个模块传递一个控制信号，接受信号的模块根据信号值而进行适当的动作，这种耦合被称为控制耦合。

（5） 标记耦合 。若一个模块A通过接口向两个模块B和C传递一个公共参数，那么称模块B和C之间存在一个标记耦合。

（6） 数据耦合。模块之间通过参数来传递数据，那么被称为数据耦合。数据耦合是最低的一种耦合形式，系统中一般都存在这种类型的耦合，因为为了完成一些有意义的功能，往往需要将某些模块的输出数据作为另一些模块的输入数据。

（7） 非直接耦合 。两个模块之间没有直接关系，它们之间的联系完全是通过主模块的控制和调用来实现的。

总结：耦合是影响软件复杂程度和设计质量的一个重要因素，在设计上我们应采用以下原则：如果模块间必须存在耦合，就尽量使用数据耦合，少用控制耦合，限制公共耦合的范围，尽量避免使用内容耦合。

耦合强度，依赖于以下几个因素：

（1）一个模块对另一个模块的调用；

（2）一个模块向另一个模块传递的数据量；

（3）一个模块施加到另一个模块的控制的多少；

（4）模块之间接口的复杂程度。

 

NativeXml

 

 

1、文件名函数

　　文件名函数可以对文件的名称、所在子目录、驱动器和扩展名等进行操作。下表列出这些函数及其功能。

函数 说明

ExpandFileName() 返回文件的全路径(含驱动器、路径)

ExtractFileExt() 从文件名中抽取扩展名

ExtractFileName() 从文件名中抽取不含路径的文件名

ExtractFilePath() 从文件名中抽取路径名

ExtractFileDir() 从文件名中抽取目录名

ExtractFileDrive() 从文件名中抽取驱动器名

ChangeFileExt() 改变文件的扩展名

ExpandUNCFileName() 返回含有网络驱动器的文件全路径

ExtractRelativePath() 从文件名中抽取相对路径信息

ExtractShortPathName() 把文件名转化为DOS的8·3格式

MatchesMask() 检查文件是否与指定的文件名格式匹配

ExtractFilePath(FileName:String)

该函数返回路径名，其结尾字符总是“/”

ExtractFileDir(FileName:String)

该函数同样返回路径名，但不包括结尾的字符“/”，除非返回的路径是根目录。

 　　下面就把这些函数作一一介绍：

⑴ExpandFileName()

　　原型：extern PACKAGE AnsiString __fastcall ExpandFileName(const AnsiString FileName);

　　功能：返回文件的全路径(含驱动器、路径)

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExpandFileName(Application->ExeName));//显示你的程序文件名，如C:/MyBCB/Sample1.EXE

 ⑵ExtractFileExt()

　　原型：extern PACKAGE AnsiString __fastcall ExtractFileExt(const AnsiString FileName);

　　功能：从文件名中抽取扩展名

　　参数：FileName:要处理的文件名（全路径）

　　例：ShowMessage(ExtractFileExt(Application->ExeName));//显示".exe"

 ⑶ExtractFileName()

　　原型：extern PACKAGE AnsiString __fastcall ExtractFileName(const AnsiString FileName);

　　功能：从文件名中抽取不含路径的文件名

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractFileExt("c://Winnt//SOL.EXE"));//显示"SOL.EXE"

 ⑷ExtractFilePath()

　　原型：extern PACKAGE AnsiString __fastcall ExtractFilePath(const AnsiString FileName);

　　功能：从文件名中抽取路径名

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractFilePath("Winnt//SOL.EXE"));//显示"Winnt/"

 ⑸ExtractFileDir()

　　原型：extern PACKAGE AnsiString __fastcall ExtractFileDir(const AnsiString FileName);

　　功能：从文件名中抽取目录名(和上个函数不同，不包括最后的"/")

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractFileDir("Winnt//SOL.EXE"));//显示"Winnt",注意和上个函数的区别

⑹ExtractFileDrive()

　　原型：extern PACKAGE AnsiString __fastcall ExtractFileDrive(const AnsiString FileName);

　　功能：从文件名中抽取驱动器名

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractFileDrive("c://Winnt//SOL.EXE"));//显示"c:"

 ⑺ChangeFileExt()

　　原型：extern PACKAGE System::AnsiString __fastcall ChangeFileExt(const System::AnsiString FileName, const System::AnsiString Extension);

　　功能：更改文件名的扩展名，不是对真正的文件进行改名，只是对文件名这个字符串进行处理

　　参数：FileName:要改名的文件名，Extension：新的扩展名

　　例：ShowMessage(ChangeFileExt("c://Winnt//SOL.EXE",".OOO"));//显示"c:/winnt/SOL.OOO"

 ⑻ExpandUNCFileName()

　　原型：extern PACKAGE AnsiString __fastcall ExpandUNCFileName(const AnsiString FileName);

　　功能：返回含有网络驱动器的文件全路径，格式为：//机器名/共享名/文件名

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExpandUNCFileName("F://Winnt//SOL.EXE"));/*如果F:是映射的网络驱动器，则显示"

⑼ExtractRelativePath()

　　原型：extern PACKAGE AnsiString __fastcall ExtractRelativePath(const AnsiString BaseName, const AnsiString DestName);

　　功能：从文件名中抽取相对路径信息，如"../sss/ss.asd"这种形式

　　参数：BaseName：基准文件名；DestName：目标文件名

　　例：ShowMessage(ExtractRelativePath("D://Source//c//1.123","D://Source//Asm//dz.asm"));/*显示"../asm/dz.asm"*/

 ⑽ExtractShortPathName()

　　原型：extern PACKAGE AnsiString __fastcall ExtractShortPathName(const AnsiString FileName);

　　功能：把文件名转换为DOS的8、3格式

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractShortPathName("E://Program Files//Dual Wheel Mouse//4dmain.exe"));/*显示"E:/Progra~1/dualwh~1/4dmain.exe"*/

 ⑾MatchesMask()

　　原型：extern PACKAGE bool __fastcall MatchesMask(const AnsiString Filename, const AnsiString Mask);

　　功能：检查文件是否与指定的文件名格式匹配

　　参数：FileName:要处理的文件名；Mask:文件名格式，支持通配符

例：ShowMessage(MatchesMask("Lxf.exe","*.?x?));//显示"true"

 

 

顺序函数：

顺序函数	引用形式	函数功能描述
序数函数	Ord(x)；	返回数据x的序数
前趋函数	Pred(x)；	返回数据x的前趋值。如果将Pred函数用于第一个数据，就可能产生一个编译时的错误
后继函数	Succ(x)；	返回数据x的后继值。如果将Succ函数用于最后一个数据，就可能产生一个编译时的错误
首序数函数	Low(x)；	返回顺序型数据x取值集合中的第一个值（序数最小）。它还可以返回数组的第一个元素
末序数函数	High(x)；	返回顺序型数据x取值集合中的最末一个值（序数最大），它还可以返回数组的最末一个元素

 

Delphi提供内部对话框有两种。

第一种：信息输出对话框Showmessage过程、ShowMessageFmt过程、MessageDlg函数、MessageDlgPos函数、CreateMessageDialog函数。

第二种：信息输入对话框InputBox函数、InputQuery函数。

 

Delphi2010 String、ANSIString及TBytes之间的转换

一、string转为ansistring

1、直接赋值 （有警告）

2、ansistring()类型强制转换。（无警告）

二、ansistring 转为string

1、直接赋值 （有警告）

2、string()类型强制转换。（无警告）

三、string 转为Tbytes

1、bytes:= bytesof(str) 已转为ansi编码

2、bytes:= widebytesof(str) UNICODE 编码

四、ansistring 转为Tbytes

1、bytes:= bytesof(str) ansi编码

2、bytes:= widebytesof(string(str)) UNICODE 编码

五、Tbytes 转为string

1、 str:=stringof(bytes) Tbytes 为ansi编码

2、 str:=widestringof(bytes) Tbytes 为unicode编码

六、PChar转String

用StrPas函数，StrPas(PChar):AnsiString;

解决中文乱码问题：

TEncoding.UTF8.GetBytes

TEncoding.UTF8.GetString

 

多线程学习：

function CreateThread(

  lpThreadAttributes: Pointer;             {安全设置}

  dwStackSize: DWORD;                  {堆栈大小}

  lpStartAddress: TFNThreadStartRoutine;   {入口函数}

  lpParameter: Pointer;                   {函数参数}

  dwCreationFlags: DWORD;              {启动选项}

  var lpThreadId: DWORD                {输出线程 ID }

): THandle; stdcall;                       {返回线程句柄}

当前程序是一个进程, 进程只是一个工作环境, 线程是工作者;

每个进程都会有一个启动线程(或叫主线程), 也就是说: 我们之前大量的编码都是写给这个主线程的;

ExitThread(0); 就是退出这个主线程;

系统不允许一个没有线程的进程存在, 所以程序就退出了.

另外: ExitThread 函数的参数是一个退出码, 这个退出码是给之后的其他函数用的, 这里随便给个无符号整数即可.

或许你会说: 这个 ExitThread 挺好用的; 其实不管是用 API 还是用 TThread 类写多线程, 我们很少用到它; 因为:

1、假如直接使用 API 的 CreateThread, 它执行完入口函数后会自动退出, 无需 ExitThread;

2、用 TThread 类建立的线程又绝不能使用 ExitThread 退出; 因为使用 TThread 建立线程时会同时分配更多资源(譬如你自定义的成员、还有它的祖先类(TObject)分配的资源等等), 如果用 ExitThread 给草草退出了, 这些资源将得不到释放而导致内存泄露. 尽管 Delphi 提供了 EndThread(其内部调用 ExitThread), 这也不需要我们手动操作(假如非要手动操作也是件很麻烦的事情, 因为很多时候你不知道线程是什么时候执行完毕的).

除了 CreateThread, 还有一个 CreateRemoteThread, 可在其他进程中建立线程

CreateThread 的倒数第二个参数 dwCreationFlags(启动选项) 有两个可选值:

0: 线程建立后立即执行入口函数;

CREATE_SUSPENDED: 线程建立后会挂起等待.

可用 ResumeThread 函数是恢复线程的运行; 可用 SuspendThread 再次挂起线程.

这两个函数的参数都是线程句柄, 返回值是执行前的挂起计数.

什么是挂起计数?

SuspendThread 会给这个数 +1; ResumeThread 会给这个数 -1; 但这个数最小是 0.

当这个数 = 0 时, 线程会运行; > 0 时会挂起.

如果被 SuspendThread 多次, 同样需要 ResumeThread 多次才能恢复线程的运行