delphi如何用保存数据库连接参数（INI篇）
在设计数据库应用程序的时候，经常需要将一些信息从程序中独立出来，以保证程序的可移植性。其中最重要的信息就是数据库的连接参数。
在Delphi中，获得正确的数据库连接参数的方法十分简单，你只需要建立一个数据模块，在其中添加一个ADO Connection,双击之，然后在弹出的窗口中选“Use Connection String”，单击“Build”按钮，在“数据链接属性”窗口中选择适当的驱动引擎，并设定相应的连接参数就可以了。点击“确认”后，系统将自动生成连接串，显示在Object Inspector的Connection String中。
以Microsoft SQL Server 为例，连接串就类似于：
Provider=SQLOLEDB.1;Password=map;Persist Security Info=True;User ID=map;Initial Catalog=SuperWorkFlow;Data Source=GTSERVER
连接串中各项参数由分号（;）分隔，具体含义如下：
Provider —— 驱动类型
Data Source —— 服务器名称
Initial Catalog —— 数据库名称
User ID —— 用户名
Password —— 口令
Persist Security Info —— 是否使用持续安全验证
现在我们所要做的第一件工作是将各项参数写入一个INI文件中。
Windows INI文件，可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。例如Windows 3.1中两个著名的INI文件win.ini和system.ini就在Windows启动时定义了Windows环境中鼠标响应速度、使用的外壳（shell）程序等设置，Windows系统附带的许多应用程序也都有自己的INI文件。Windows软件初始化参数的获取与保存是通过读取扩展名为INI的文本文件实现的，即程序运行前先从制定的INI文件中搜索到所需的参数，并反映到程序的运行环境中，当程序退出时又将当前的环境参数保存到制定的INI文件中。
INI文件是文本文件，由若干section组成，在每个带括号的标题下面，是若干个Keyword和一个等号，每个Keyword会控制应用程序某个功能的工作方式，等号右边的Value制定Keyword的操作方式，其一般形式如下：
[section1]
keyword1=value1
keyword2=value2
[section2]
keyword1=value1
keyword2=value2
其中SectionName和KeywordName分别是段名和关键字明，Value为关键字对应的设定值，如果等号右边无任何内容（value为空），表示Windows应用程序已为该Keyword指定了缺省值，如果在整个文件中找不到某个Keyword，同样表示
相关文档：
1、 系统功能
1）、数据压缩
使用DELPHI提供的两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩。
2）、数据加密压缩
通过Delphi编程中“流”的应用实现数据加密，主要采用Tstream的两个派生类Tfilestream、Tmemorystream 来完成的；其中数据压缩部分采用1）的实现� ......
屏幕的分辨率用这个
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
同上。
.而且获得屏幕上的像素好像应该使用
screen.pixelsperinch函数
int GetDeviceCaps(
......
结合Delphi
客户端桌面开发的优势和Java的稳健强壮特性，采用Delphi
Client + Java Server的系统架构应该是很有市场的，经过一段时间的实际项目实践，实现架构是这么实现的，供讨论：
1.后台应用服务层可采用基于Spring+Hibernate的轻量级J2EE实现，并使用Apache XML-RPC
提供客户端调用接口；
2.前台采用 Delphi
......
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
......
1、先用Const 定义一个常量，例如 const WM_MyMessage=WM_USER+$200;
2、在要实现的unit中定义一个私有方法
procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
3、实现这个私有方法
procedure TForm1.doMyMessage(var msg:TMessage);
begin
//
if msg. ......
