概述：
SQL Relay是个功能强大并且非常容易使用的持久数据库连接池系统，能够运行在Unix/Linux系统下，能够支持大部分主流的数据库系统和大部分的编程语言，有效的减轻服务器的负载和移植问题，是很多Web应用数据库连接池的一个选择。

SQL Relay 是适合于Unix/Linux下的一个持久数据库连接池，代理服务器和负载平衡系统。

 

SQL Relay的特点：

• 快速的执行数据库驱动的Web应用
• 增强的可测性数据库驱动的Web应用
• 分配数据库的访问连接
• 关闭数据库的访问连接
• 从不支持的平台访问数据库
• 从一个数据库到另一种数据库移植应用

SQL Relay支持的数据库系统：

Oracle MySQL mSQL PostgreSQL

Sybase MS SQL Server IBM DB2 Interbase

Sybase SQLite ODBC

MS Access

SQL Relay 客户端API支持一些高级的数据库操作，例如绑定变量、多记录获取、客户端结果的缓存和支持事务等。

SQL Relay 的客户端API支持的编程语言有：

C C++ Perl

Python PHP Ruby

Java TCL Zope

 
SQL Relay 给下面的数据库抽象层提供驱动支持：

Perl DBD

Python DB

Ruby DBD

PHP Pear DB

SQL Relay 的支持：

• 命令行客户端
• 一个GUI的配置工具
• 丰富的文档

[  相关链接 ]

• 官方网站：http://sqlrelay.sourceforge.net
• 文档支持：http://sqlrelay.sourceforge.net/documentation.html
• PHP API编程指南：http://sqlrelay.sourceforge.net/sqlrelay/programming/php.html
• PHP API参考手册：http://sqlrelay.sourceforge.net/sqlrelay/api/php/doc.html
• PEAR DB API编程指南：http://sqlrelay.sourceforge.net/sqlrelay/programming/phppeardb.html
• 安装配置：http://blog.csdn.net/heiyeshuwu/archive/2006/05/12/726082.aspx

Connecting to an Open or WEP enabled WLAN (DHCP)

 

Connecting to an Open or WEP enabled WLAN (Manual IP Setup)

 

iwconfig commands

 

ifconfig commands

 

iwpriv commands

 

iwlist commands

 

madwifi-ng commands

 

NOTE: NOT ALL CARDS/FIRMWARE SUPPORT ALL OF THE COMMANDS LISTED BELOW.

 

 

Note: To connect your Linux machine to a WLAN using WPA, WPA2 or 802.1X you will need to use WPA Supplicant

 

 

Connecting to an OPEN / WEP WLAN (DHCP)

 

Note: replace [interface] with your interface name as required (e.g. eth1, wlan0, ath0 etc.)

 

iwconfig [interface] mode managed key [WEP key] (128 bit WEP use 26 hex characters, 64 bit WEP uses 10)

 

 

iwconfig essid "[ESSID]" (Specify ESSID for the WLAN)

 

 

dhclient [interface] (to receive an IP address, netmask, DNS server and default gateway from the Access Point)

 

 

ping www.bbc.co.uk  (if you receive a reply you have access)

 

 

Connecting to an OPEN / WEP WLAN (Manual IP Setup)

 

Note: replace [interface] with your interface name as required (e.g. eth1, wlan0, ath0 etc.)

 

It may be necessary to run some packet capture software (e.g. Ethereal) to determine the IP addresses of both the Default Gateway and DNS servers.

 

iwconfig [interface] mode managed key [WEP key] (128 bit WEP use 26 hex characters, 64 bit WEP uses 10)

 

 

iwconfig essid "[ESSID]"

 

 

ifconfig [interface] [IP address] netmask [subnetmask]

 

 

route add default gw [IP of default gateway] (Configure your default gateway; usually the IP of the Access Point)

 

 

echo nameserver [IP address of DNS server]  >>  /etc/resolve.conf (Configure your DNS server)

 

 

ping www.bbc.co.uk (if you receive a reply you have access)

 

 

 

iwconfig Commands:

 

Note: replace [interface] with your interface name as required (e.g. eth1, wlan0, ath0 etc.)

 

iwconfig [interface] mode master (set the card to act as an access point mode)

 

 

iwconfig [interface] mode managed (set card to client mode on a network with an access point)

 

 

iwconfig [interface] mode ad-hoc (set card to peer to peer networking or no access point mode)

 

 

iwconfig [interface] mode monitor (set card to RFMON mode our favourite)

 

 

iwconfig [interface] essid any (with some cards you may  disable the  ESSID  checking)

 

 

iwconfig [interface] essid ?/span>your ssid_here?(configure ESSID for network)

 

 

iwconfig [interface] key 1111-1111-1111-1111 (set 128 bit WEP key)

 

 

iwconfig [interface] key 11111111 (set 64 bit WEP key)

 

 

iwconfig [interface] s:mykey (set key as an ASCII string)

 

 

iwconfig [interface] key off (disable WEP key)

 

 

iwconfig [interface] key open (sets open mode, no authentication is used and card may accept non-encrypted sessions)

 

 

iwconfig [interface] channel [channel no.] (set a channel 1-14)

 

 

iwconfig [interface] channel auto (automatic channel selection)

 

 

iwconfig [interface] freq 2.422G (channels can also be specified in GHz)

 

 

iwconfig [interface] ap 11:11:11:11:11:11 (Force card to register AP address)

 

 

iwconfig [interface] rate 11M (card will use the rate specified)

 

 

iwconfig [interface] rate auto (select automatic rate)

 

 

iwconfig [interface] rate auto 5.5M (card will use the rate specified and any rate below as required)

 

 

ifconfig Commands:

 

Note: replace [interface] with your interface name as required (e.g. eth1, wlan0, ath0 etc.)

 

ifconfig [interface] up (bring up specified interface)

 

 

ifconfig [interface] down (take down specified interface)

 

 

ifconfig [interface] [IP address] netmask [subnet-mask] (manually set IP and subnet-mask details)

 

 

ifconfig [interface] hw ether [MAC] (Change the wireless cards MAC address, specify in format 11:11:11:11:11:11)

 

 

iwpriv Commands:

 

Note: replace [interface] with your interface name as required (e.g. eth1, wlan0, ath0 etc.)

 

iwpriv [interface] hostapd 1 (used to set card mode to hostapd e.g. for void11)

 

 

When the monitor mode patch is installed as per the Wireless Build HOWTO the following commands may be used to set the card into monitor mode.

 

 

iwpriv [interface] monitor [A] [B]

 

iwlist Commands:

 

Note: replace [interface] with your interface name as required (e.g. eth1, wlan0, ath0 etc.)

 

iwlist is used to display some large chunk of information from a wireless network interface that is not displayed by iwconfig.

 

 

iwlist [interface] scan (Give the list of Access Points and Ad-Hoc cells in range (ESSID, Quality, Frequency, Mode etc.) Note: In tests only worked with Atheros cards).

 

 

iwlist [interface] channel (Give the list of available frequencies in the device and the number of channels).

 

 

iwlist [interface] rate (List the bit-rates supported by the device).

 

 

iwlist [interface] key (List the encryption key sizes supported and display all the encryption keys available in the device).

 

 

iwlist [interface] power (List the various Power Management attributes and modes of the device).

 

 

iwlist [interface] txpower (List the various Transmit Power available on the device).

 

 

iwlist [interface] retry (List the transmit retry limits and retry lifetime on the device).

 

 

iwlist [interface] ap (Give the list of Access Points in range, and optionally the quality of link to them.  Deprecated in favour of scan)

 

 

iwlist [interface] peers (Give the list of Peers associated/registered with this card).

 

 

iwlist [interface] event (List the wireless events supported by this card).

 

 

Madwifi-ng Commands:

 

MADWiFi supports virtual access points (VAPS), which means you can create more than one wireless device per wireless card (the host wireless card = wifi0). 

 

By default, a sta mode VAP is created by, which is MadWifi talk for a 'managed mode wireless interface'.

 

 

Note: replace athx with your interface name as required (e.g. ath0, ath1)

 

 

wlanconfig athx destroy (Destroy VAP, athx)

 

 

 

 

 

Scan for Access Points (requires both steps):

 

 

 

For more detailed information, see Madwifi Docs

文本编辑器是所有计算机系统中最常用的一种工具。UNIX下的编辑器有ex,sed和vi等，其中，使用最为广泛的是vi，而vi命令繁多，论坛里好像这方面的总结不多，以下稍做总结，以资共享！渴望更正和补充！

进入vi的命令
vi filename :打开或新建文件，并将光标置于第一行首
vi +n filename ：打开文件，并将光标置于第n行首
vi + filename ：打开文件，并将光标置于最后一行首
vi +/pattern filename：打开文件，并将光标置于第一个与pattern匹配的串处
vi -r filename ：在上次正用vi编辑时发生系统崩溃，恢复filename
vi filename....filename ：打开多个文件，依次进行编辑

移动光标类命令
h ：光标左移一个字符
l ：光标右移一个字符
space：光标右移一个字符
Backspace：光标左移一个字符
k或Ctrl+p：光标上移一行
j或Ctrl+n ：光标下移一行
Enter ：光标下移一行
w或W ：光标右移一个字至字首
b或B ：光标左移一个字至字首
e或E ：光标右移一个字至字尾
) ：光标移至句尾
( ：光标移至句首
}：光标移至段落开头
{：光标移至段落结尾
nG：光标移至第n行首
n+：光标下移n行
n-：光标上移n行
n$：光标移至第n行尾
H ：光标移至屏幕顶行
M ：光标移至屏幕中间行
L ：光标移至屏幕最后行
0：（注意是数字零）光标移至当前行首
$：光标移至当前行尾

屏幕翻滚类命令
Ctrl+u：向文件首翻半屏
Ctrl+d：向文件尾翻半屏
Ctrl+f：向文件尾翻一屏
Ctrl＋b；向文件首翻一屏
nz：将第n行滚至屏幕顶部，不指定n时将当前行滚至屏幕顶部。

插入文本类命令
i ：在光标前
I ：在当前行首
a：光标后
A：在当前行尾
o：在当前行之下新开一行
O：在当前行之上新开一行
r：替换当前字符
R：替换当前字符及其后的字符，直至按ESC键
s：从当前光标位置处开始，以输入的文本替代指定数目的字符
S：删除指定数目的行，并以所输入文本代替之
ncw或nCW：修改指定数目的字
nCC：修改指定数目的行

删除命令
ndw或ndW：删除光标处开始及其后的n-1个字
do：删至行首
d$：删至行尾
ndd：删除当前行及其后n-1行
x或X：删除一个字符，x删除光标后的，而X删除光标前的
Ctrl+u：删除输入方式下所输入的文本

搜索及替换命令
/pattern：从光标开始处向文件尾搜索pattern
?pattern：从光标开始处向文件首搜索pattern
n：在同一方向重复上一次搜索命令
N：在反方向上重复上一次搜索命令
：s/p1/p2/g：将当前行中所有p1均用p2替代
：n1,n2s/p1/p2/g：将第n1至n2行中所有p1均用p2替代
：g/p1/s//p2/g：将文件中所有p1均用p2替换

选项设置
all：列出所有选项设置情况
term：设置终端类型
ignorance：在搜索中忽略大小写
list：显示制表位(Ctrl+I)和行尾标志（$)
number：显示行号
report：显示由面向行的命令修改过的数目
terse：显示简短的警告信息
warn：在转到别的文件时若没保存当前文件则显示NO write信息
nomagic：允许在搜索模式中，使用前面不带“\”的特殊字符
nowrapscan：禁止vi在搜索到达文件两端时，又从另一端开始
mesg：允许vi显示其他用户用write写到自己终端上的信息

最后行方式命令
：n1,n2 co n3：将n1行到n2行之间的内容拷贝到第n3行下
：n1,n2 m n3：将n1行到n2行之间的内容移至到第n3行下
：n1,n2 d ：将n1行到n2行之间的内容删除
：w ：保存当前文件
：e filename：打开文件filename进行编辑
：x：保存当前文件并退出
：q：退出vi
：q!：不保存文件并退出vi
：!command：执行shell命令command
：n1,n2 w!command：将文件中n1行至n2行的内容作为command的输入并执行之，若不指定n1，n2，则表示将整个文件内容作为command的输入
：r!command：将命令command的输出结果放到当前行

寄存器操作
"?nyy：将当前行及其下n行的内容保存到寄存器？中，其中?为一个字母，n为一个数字
"?nyw：将当前行及其下n个字保存到寄存器？中，其中?为一个字母，n为一个数字
"?nyl：将当前行及其下n个字符保存到寄存器？中，其中?为一个字母，n为一个数字
"?p：取出寄存器？中的内容并将其放到光标位置处。这里？可以是一个字母，也可以是一个数字
ndd：将当前行及其下共n行文本删除，并将所删内容放到1号删除寄存器中。

VI的使用
--------------------------------------------------------------------------------


一、插入文本
┌──┬────────────┐
│命令│描述　　　　　　　　　　
├──┼────────────┤
│i 　│在当前字符前插入文本　　
├──┼────────────┤
│I 　│在行首插入文本 　　　 　
├──┼────────────┤
│a 　│在当前字符后添加文本　　
├──┼────────────┤
│A 　│在行末添加文本　　　　　
├──┼────────────┤
│o 　│在当前行后面插入一空行　
├──┼────────────┤
│O 　│在当前行前面插入一空行　
├──┼────────────┤
│R 　│以改写方式输入文本　　　
└──┴────────────┘
二、移动光标
┌─────┬───────────┐
│命令　　　│描述　　　　　　　　
├─────┼───────────┤
│j或下箭头    │向下移动一行　　　　
├─────┼───────────┤
│k或上箭头    │向上移动一行　　　　　
├─────┼───────────┤
│h或左箭头    │左移一个字符　　　　
├─────┼───────────┤
│l或右箭头    │右移一个字符　　　　
├─────┼───────────┤
│w 　　　　│右移一个词　　　　　　
├─────┼───────────┤
│W 　　　　│右移一个以空格分隔的词
├─────┼───────────┤
│b 　　　　│左移一个词　　　　　　
├─────┼───────────┤
│B 　　　　│左移一个以空格分隔的词
├─────┼───────────┤
│0 　　　　│移到行首　
　　　　　　
│Ctrl-F　　 │向前翻页　　　　　　　
├─────┼───────────┤
│Ctrl-B　　 │向后翻页　　　　　　　
├─────┼───────────┤
│nG　　　　│到第n行 　　　　　　　
├─────┼───────────┤
│G 　　　　│到最后一行　　　　　　
└─────┴───────────┘

三、替换文本
┌─────┬──────┐
│命令　　　│描述　　　　
├─────┼──────┤
│$ 　　　　│到行尾　　　
├─────┼──────┤
│( 　　　　│到句子的开头
├─────┼──────┤
│) 　　　　│到句子的末尾
├─────┼──────┤
│{　 　　　│到段落的开头
├─────┼──────┤
│}　　 　　│到段落的末尾
└─────┴──────┘

四、删除文本
┌───┬───────────┐
│命令　│描述 　　　　　　 　　
├───┼───────────┤
│r 　　│替换一个字符 　　　　
├───┼───────────┤
│c 　　│修改文本直到按下Esc健
├───┼───────────┤
│cw　　│修改下一个词 　　　 　
├───┼───────────┤
│cnw　 │修改接下来的n个词 　


五、文本编辑
┌──┬──────────────────────┐
│命寺│描述　　　　　　　　　　　　　　　　　　　　
├──┼──────────────────────┤
│yy　 │将一行文本移到缺省缓冲区中 　　　　 　　　　
├──┼──────────────────────┤
│yn　 │将下一个词移到缺省缓冲区中 　　 　　　　　　
├──┼──────────────────────┤
│ynw   │将后面的n个词移到缺省缓冲区中　　　　 　　　
├──┼──────────────────────┤
│p 　 │如果缺省缓冲区中包含一行文本，则在当前　　　
│　　│行后面插入一个空行井将缺省缓冲区中的声　　
│　　│容粘贴到这一行中；如果缺省缓冲区中包含　　　
│　　│多个词，把这些词粘贴到光标的右边．　　　　　
├──┼──────────────────────┤
│P 　 │如果缺省缓冲区中包含一行文本，则正当前 　 　
│ 　  │行前面插入一个空行井将缺省缓冲区中的内 　 　
│　　 │容粘贴到这一行中；如果缺省缓冲区中包含 　　
│ 　  │多个词，把这些词粘贴到光标的左边 　 　　　　
└──┴──────────────────────┘


六、保存退出
┌───────────┬───────────────┐
│命令　　　　　　　　　│描述　　　　　　　　　　　　
├───────────┼───────────────┤
│zz　　　　　　│保存并退出　　　　　　　　　　
├───────────┼───────────────┤
│:w filename　　 │写入文件　　　　　　　　　 　
├───────────┼───────────────┤
│:W　　　　　　│写入文件　　　　　　　　　　
├───────────┼───────────────┤
│:x　　　　　　│保存(如果当前文件修改过)并退出
├───────────┼───────────────┤
│:q!　　　　　  │不保存文件，直接退出　　 　　
├───────────┼───────────────┤
│:q　　　　　　 │退出vi　　　　　　　　　　　　
└───────────┴───────────────┘
　




VI常用技巧

VI命令可以说是Unix/Linux世界里最常用的编辑文件的命令了，但是因为它的命令集众多，很多人都不习惯使用它，其实您只需要掌握基本命令，然后加以灵活运用，就会发现它的优势，并会逐渐喜欢使用这种方法。本文旨在介绍VI的一些最常用命令和高级应用技巧。

一、基本命令介绍

---- 1．光标命令
k、j、h、l——上、下、左、右光标移动命令。虽然您可以在Linux中使用键盘右边的4个光标键，但是记住这4个命令还是非常有用的。这4个键正是右手在键盘上放置的基本位置。
nG——跳转命令。n为行数，该命令立即使光标跳到指定行。
Ctrl+G——光标所在位置的行数和列数报告。
w、b——使光标向前或向后跳过一个单词。

---- 2．编辑命令
i、a、r——在光标的前、后以及所在处插入字符命令(i=insert、a=append、r=replace)。
cw、dw——改变(置换)/删除光标所在处的单词的命令 (c=change、d=delete)。
x、d$、dd——删除一个字符、删除光标所在处到行尾的所有字符以及删除整行的命令。

---- 3．查找命令
---- /string、?string——从光标所在处向后或向前查找相应的字符串的命令。

---- 4．拷贝复制命令
---- yy、p——拷贝一行到剪贴板或取出剪贴板中内容的命令。

二、常见问题及应用技巧

---- 1．在一个新文件中读/etc/passwd中的内容，取出用户名部分。
---- vi file
---- :r /etc/passwd 在打开的文件file中光标所在处读入/etc/passwd
---- :%s/:.*//g 删除/etc/passwd中用户名后面的从冒号开始直到行尾的所有部分。
---- 您也可以在指定的行号后读入文件内容，例如使用命令“:3r /etc/passwd”从新文件的第3行开始读入 /etc/passwd的所有内容。
---- 我们还可以使用以下方法删掉文件中所有的空行及以#开始的注释行。
---- #cat squid.conf.default | grep -v ^$ | grep -v ^#

---- 2．在打开一个文件编辑后才知道登录的用户对该文件没有写的权限，不能存盘，需要将所做修改存入临时文件。
---- vi file
---- :w /tmp/1 保存所做的所有修改，也可以将其中的某一部分修改保存到临时文件，例如仅仅把第20～59行之间的内容存盘成文件/tmp/1，我们可以键入如下命令。
---- vi file
---- :20,59w /tmp/1

---- 3．用VI编辑一个文件，但需要删除大段的内容。
---- 首先利用编辑命令“vi file”打开文件，然后将光标移到需要删除的行处按Ctrl+G显示行号，再到结尾处再按Ctrl+G，显示文件结尾的行号。
---- :23,1045d 假定2次得到的行号为23和1045，则把这期间的内容全删除，也可以在要删除的开始行和结束行中用ma、mb命令标记，然后利用“:a,bd”命令删除。

---- 4．在整个文件的各行或某几行的行首或行尾加一些字符串。
---- vi file
---- :3,$s/^/some string / 在文件的第一行至最后一行的行首插入“some string”。
---- :%s/$/some string/g 在整个文件每一行的行尾添加“some string”。
---- :%s/string1/string2/g 在整个文件中替换“string1”成“string2”。
---- :3,7s/string1/string2/ 仅替换文件中的第3行到第7行中的“string1”成“string2”。
---- 注意: 其中s为substitute，%表示所有行，g表示global。

---- 5．同时编辑2个文件，拷贝一个文件中的文本并粘贴到另一个文件中。
---- vi file1 file2
---- yy 在文件1的光标处拷贝所在行
---- :n 切换到文件2 (n=next)
---- p 在文件2的光标所在处粘贴所拷贝的行
---- :n 切换回文件1

---- 6．替换文件中的路径。
---- 使用命令“:%s#/usr/bin#/bin#g”可以把文件中所有路径/usr/bin换成/bin。也可以使用命令“:%s//usr/bin//bin/g”实现，其中“”是转义字符，表明其后的“/”字符是具有实际意义的字符，不是分隔符。

free命令

free命令的功能是查看当前系统内存的使用情况，它显示系统中剩余及已用的物理内存和交换内存，以及共享内存和被核心使用的缓冲区。

该命令的一般格式为： free [-b | -k | -m] 命令中各选项的含义如下：

-b 以字节为单位显示。
-k 以K字节为单位显示。
-m 以兆字节为单位显示。

---

shutdown命令

shutdown 命令可以安全地关闭或重启Linux系统，它在系统关闭之前给系统上的所有登录用户提示一条警告信息。该命令还允许用户指定一个时间参数，可以是一个精确的时间，也可以是从现在开始的一个时间段。精确时间的格式是hh:mm，表示小时和分钟；时间段由“+”和分钟数表示。系统执行该命令后，会自动进行数据同步的工作。

该命令的一般格式为： shutdown [选项] [时间] [警告信息] 命令中各选项的含义为：

- k 并不真正关机，而只是发出警告信息给所有用户。
- r 关机后立即重新启动。
- h 关机后不重新启动。
- f 快速关机，重启动时跳过fsck。
- n 快速关机，不经过init程序。
- c 取消一个已经运行的shutdown。

需要特别说明的是，该命令只能由超级用户使用。

---

sync命令

sync命令是在关闭Linux系统时使用的。 用户需要注意的是，不能用简单的关闭电源的方法关闭系统，因为Linux象其他Unix系统一样，在内存中缓存了许多数据，在关闭系统时需要进行内存数据与硬盘数据的同步校验，保证硬盘数据在关闭系统时是最新的，只有这样才能确保数据不会丢失。一般正常的关闭系统的过程是自动进行这些工作的，在系统运行过程中也会定时做这些工作，不需要用户干预。 sync命令是强制把内存中的数据写回硬盘，以免数据的丢失。用户可以在需要的时候使用此命令。该命令的一般格式为： sync

商业门户站点的十二个关键特性

商业 Web 站点的特性能够决定项目的成功与否。我们将在这里点出一些关键特性，这些特性将对你的 intranet 或 extranet 的部署有所帮助。

所谓门户，简单的说，就是一个专门用来收集和组织相关信息及运营数据的 Web 站点。为公司新 Web 站点制定一个策略，或者改进原有的公司 Web 站点，比简单地开通一个 Web 页面要复杂一点儿。

商业门户战略的第一部分应该决定你所面向的用户。如果你面向的用户是你在 extranet 上的客户和合作伙伴，那么你需要考虑在你的站点使用某个特性集。如果你的 intranet 门户的目标用户是自己公司的职员，那么你需要考虑为你的站点使用另外一个特性集。下面我们来分析这两种不同的商业门户庀个策略，或者改进原有的公司 Web 站点，比简单地开通一个 Web 页面要复杂一点儿。

商业门户战略的第一部分应该决定你所面向的用户。如果你面向的用户是你在 extranet 上的客户和合作伙伴，那么你需要考虑在你的站点使用某个特性集。如果你的 intranet 门户的目标用户是自己公司的职员，那么你需要考虑为你的站点使用另外一个特性集。下面我们来分析这两种不同的商业门户庀个策略，或者改进原有的公司 Web 站点，比简单地开通一个 Web 页面要复杂一点儿。

商业门户战略的第一部分应该决定你所面向的用户。如果你面向的用户是你在 extranet 上的客户和合作伙伴，那么你需要考虑在你的站点使用某个特性集。如果你的 intranet 门户的目标用户是自己公司的职员，那么你需要考虑为你的站点使用另外一个特性集。下面我们来分析这两种不同的商业门户应用程序，以帮助你制定商业门户战略。

针对 extranet 的特性

对于哪些特性适合门户设计没有绝对的答案。尽管大家对这一问题没有定论，但是大家都一致认为在架设 extranet 门户站点时有一些重要的特性需要考虑。这些特性包括：

•搜索功能：商业门户应该能够根据关键字来查询结构化及非结构化的内容。结构化数据是指数据库和事务性系统，比如 ERP 系统。而非结构奔用程序，以帮助你制定商业门户战略。

针对 extranet 的特性

对于哪些特性适合门户设计没有绝对的答案。尽管大家对这一问题没有定论，但是大家都一致认为在架设 extranet 门户站点时有一些重要的特性需要考虑。这些特性包括：

•搜索功能：商业门户应该能够根据关键字来查询结构化及非结构化的内容。结构化数据是指数据库和事务性系统，比如 ERP 系统。而非结构奔用程序，以帮助你制定商业门户战略。

针对 extranet 的特性

对于哪些特性适合门户设计没有绝对的答案。尽管大家对这一问题没有定论，但是大家都一致认为在架设 extranet 门户站点时有一些重要的特性需要考虑。这些特性包括：

•搜索功能：商业门户应该能够根据关键字来查询结构化及非结构化的内容。结构化数据是指数据库和事务性系统，比如 ERP 系统。而非结构굔用程序，以帮助你制定商业门户战略。

针对 extranet 的特性

对于哪些特性适合门户设计没有绝对的答案。尽管大家对这一问题没有定论，但是大家都一致认为在架设 extranet 门户站点时有一些重要的特性需要考虑。这些特性包括：

•搜索功能：商业门户应该能够根据关键字来查询结构化及非结构化的内容。结构化数据是指数据库和事务性系统，比如 ERP 系统。而非结构化内容包括所有的office文档、提案以及其它一些不能很方便地输入到数据库的信息。

•一致，易用的界面：门户一般具有一致的界面，通过这个界面可以从主页进入门户的各个部分。这个一致的界面一般是专门为简化门户使用而设计的。其中可能包括链接到门户更高层的breadcrumbing，还可能包括一个可以扩展成一串链接的悬停菜单。

•最小客户端部署：门户一般不要求甌?内容包括所有的office文档、提案以及其它一些不能很方便地输入到数据库的信息。

•一致，易用的界面：门户一般具有一致的界面，通过这个界面可以从主页进入门户的各个部分。这个一致的界面一般是专门为简化门户使用而设计的。其中可能包括链接到门户更高层的breadcrumbing，还可能包括一个可以扩展成一串链接的悬停菜单。

•最小客户端部署：门户一般不要求用户安装新的软件。这通常意味着门户是基于 Web 的应用程序。

•讨论：一些门户会提供讨论论坛，用户可以在这个论坛里面与其它人或者门户主管方交互。这些论坛是为增强用户和门户主管方的关系而设计的。

•聚集：将链接和内容抽出来放到一个单独的地方能够帮助用户了解该去哪里寻找信息。聚集允许用户通过一个用户界面与多个系统交互。

•告警：用户安装新的软件。这通常意味着门户是基于 Web 的应用程序。

•讨论：一些门户会提供讨论论坛，用户可以在这个论坛里面与其它人或者门户主管方交互。这些论坛是为增强用户和门户主管方的关系而设计的。

•聚集：将链接和内容抽出来放到一个单独的地方能够帮助用户了解该去哪里寻找信息。聚集允许用户通过一个用户界面与多个系统交互。

•告警：用户能够注册一个电子邮件，在他们所感兴趣的信息发生变化时，他们会收到电子邮件通知。这可以即包括关键性能指示器的变化，也包括文档内容的变化。告警改变了用户通过 pull 模式与 Web 站点进行交互的模式，在 pull 模式下，用户必须去查看门户，而在这种新型的 push 模式下，当门户中用户所感兴趣的部分发生变化时他们会收到通知。

•自服务：门户可以是很多自服务庸户能够注册一个电子邮件，在他们所感兴趣的信息发生变化时，他们会收到电子邮件通知。这可以即包括关键性能指示器的变化，也包括文档内容的变化。告警改变了用户通过 5??内容包括所有的office文档、提案以及其它一些不能很方便地输入到数据库的信息。

•一致，易用的界面：门户一般具有一致的界面，通过这个界面可以从主页进入门户的各个部分。这个一致的界面一般是专门为简化门户使用而设计的。其中可能包括链接到门户更高层的breadcrumbing，还可能包括一个可以扩展成一串链接的悬停菜单。

•最小客户端部署：门户一般不要求甌?内容包括所有的office文档、提案以及其它一些不能很方便地输入到数据库的信息。

•一致，易用的界面：门户一般具有一致的界面，通过这个界面可以从主页进入门户的各个部分。这个一致的界面一般是专门为简化门户使用而设计的。其中可能包括链接到门户更高层的breadcrumbing，还可能包括一个可以扩展成一串链接的悬停菜单。

•最小客户端部署：门户一般不要求用户安装新的软件。这通常意味着门户是基于 Web 的应用程序。

•讨论：一些门户会提供讨论论坛，用户可以在这个论坛里面与其它人或者门户主管方交互。这些论坛是为增强用户和门户主管方的关系而设计的。

•聚集：将链接和内容抽出来放到一个单独的地方能够帮助用户了解该去哪里寻找信息。聚集允许用户通过一个用户界面与多个系统交互。

•告警：用户安装新的软件。这通常意味着门户是基于 Web 的应用程序。

•讨论：一些门户会提供讨论论坛，用户可以在这个论坛里面与其它人或者门户主管方交互。这些论坛是为增强用户和门户主管方的关系而设计的。

•聚集：将链接和内容抽出来放到一个单独的地方能够帮助用户了解该去哪里寻找信息。聚集允许用户通过一个用户界面与多个系统交互。

•告警：用户能够注册一个电子邮件，在他们所感兴趣的信息发生变化时，他们会收到电子邮件通知。这可以即包括关键性能指示器的变化，也包括文档内容的变化。告警改变了用户通过 pull 模式与 Web 站点进行交互的模式，在 pull 模式下，用户必须去查看门户，而在这种新型的 push 模式下，当门户中用户所感兴趣的部分发生变化时他们会收到通知。

•自服务：门户可以是很多自服务庸户能够注册一个电子邮件，在他们所感兴趣的信息发生变化时，他们会收到电子邮件通知。这可以即包括关键性能指示器的变化，也包括文档内容的变化。告警改变了用户通过 pull 模式与 Web 站点进行交互的模式，在 pull 模式下，用户必须去查看门户，而在这种新型的 push 模式下，当门户中用户所感兴趣的部分发生变化时他们会收到通知。

•自服务：门户可以是很多自服务应用程序的一个家园，这里允许客户、职员和其他人做他们自己的事情。

使用上面列出的这些特性，你就可以创建出一个交互式环境。在你创建的这个交互式环境中，你的客户或其他合作伙伴能够很容易地找到他们需要的东西，并且可以很容易地与你的门户交互，从而增加你的 extranet 的用户量。

针对 intranet 的特性

除了上面所提及的针对 extranet 的特性之外，在部署 intranet 时！?用程序的一个家园，这里允许客户、职员和其他人做他们自己的事情。

使用上面列出的这些特性，你就可以创建出一个交互式环境。在你创建的这个交互式环境中，你的客户或其他合作伙伴能够很容易地找到他们需要的东西，并且可以很容易地与你的门户交互，从而增加你的 extranet 的用户量。

针对 intranet 的特性

除了上面所提及的针对 extranet 的特性之外，在部署 intranet 时，还要考虑更多的事项。你应该考虑在 intranet 上使用更多的特性，因为 intranet 用户保持连接的时间一般会比 extranet 用户保持连接的时间要长。这些在设计 intranet 时需要考虑的额外特性包括：

•数字dashboard：dashboard能够在单个屏幕上显示几个商业过程以及系统的关键状态指示器，让用户能够快速地浏览几个状态，并能够快速地定位问题。数字dashboard使管理人员能够得到组织的完整的总体情况，其䥂?还要考虑更多的事项。你应该考虑在 intranet 上使用更多的特性，因为 intranet 用户保持连接的时间一般会比 extranet 用户保持连接的时间要长。这些在设计 intranet 时需要考虑的额外特性包括：

•数字dashboard：dashboard能够在单个屏幕上显示几个商业过程以及系统的关键状态指示器，让用户能够快速地浏览几个状态，并能够快速地定位问题。数字dashboard使管理人员能够得到组织的完整的总体情况，奰ull 模式与 Web 站点进行交互的模式，在 pull 模式下，用户必须去查看门户，而在这种新型的 push 模式下，当门户中用户所感兴趣的部分发生变化时他们会收到通知。

•自服务：门户可以是很多自服务应用程序的一个家园，这里允许客户、职员和其他人做他们自己的事情。

使用上面列出的这些特性，你就可以创建出一个交互式环境。在你创建的这个交互式环境中，你的客户或其他合作伙伴能够很容易地找到他们需要的东西，并且可以很容易地与你的门户交互，从而增加你的 extranet 的用户量。

针对 intranet 的特性

除了上面所提及的针对 extranet 的特性之外，在部署 intranet 时！?用程序的一个家园，这里允许客户、职员和其他人做他们自己的事情。

使用上面列出的这些特性，你就可以创建出一个交互式环境。在你创建的这个交互式环境中，你的客户或其他合作伙伴能够很容易地找到他们需要的东西，并且可以很容易地与你的门户交互，从而增加你的 extranet 的用户量。

针对 intranet 的特性

除了上面所提及的针对 extranet 的特性之外，在部署 intranet 时，还要考虑更多的事项。你应该考虑在 intranet 上使用更多的特性，因为 intranet 用户保持连接的时间一般会比 extranet 用户保持连接的时间要长。这些在设计 intranet 时需要考虑的额外特性包括：

•数字dashboard：dashboard能够在单个屏幕上显示几个商业过程以及系统的关键状态指示器，让用户能够快速地浏览几个状态，并能够快速地定位问题。数字dashboard使管理人员能够得到组织的完整的总体情况，其䥂?还要考虑更多的事项。你应该考虑在 intranet 上使用更多的特性，因为 intranet 用户保持连接的时间一般会比 extranet 用户保持连接的时间要长。这些在设计 intranet 时需要考虑的额外特性包括：

•数字dashboard：dashboard能够在单个屏幕上显示几个商业过程以及系统的关键状态指示器，让用户能够快速地浏览几个状态，并能够快速地定位问题。数字dashboard使管理人员能够得到组织的完整的总体情况，其中包括组织中不能降低到一组关键性能指示器的部分。

•个性化：所谓个性化是指组（group）或单个用户能够定制信息显示的方式。能够将一个组所关心的信息过滤出来，以及能够更改信息在屏幕中的显示位置，是商业门户创建友好用户界面的一个重要方式。

•知识管理：你的职员掌握着你的组织中大部分的信息。门户为职员通过他们的经验所积累的信息提供丵?中包括组织中不能降低到一组关键性能指示器的部分。

•个性化：所谓个性化是指组（group）或单个用户能够定制信息显示的方式。能够将一个组所关心的信息过滤出来，以及能够更改信息在屏幕中的显示位置，是商业门户创建友好用户界面的一个重要方式。

•知识管理：你的职员掌握着你的组织中大部分的信息。门户为职员通过他们的经验所积累的信息提供了䥸?包括组织中不能降低到一组关键性能指示器的部分。

•个性化：所谓个性化是指组（group）或单个用户能够定制信息显示的方式。能够将一个组所关心的信息过滤出来，以及能够更改信息在屏幕中的显示位置，是商业门户创建友好用户界面的一个重要方式。

•知识管理：你的职员掌握着你的组织中大部分的信息。门户为职员通过他们的经验所积累的信息提侥9??䥸?包括组织中不能降低到一组关键性能指示器的部分。

•个性化：所谓个性化是指组（group）或单个用户能够定制信息显示的方式。能够将一个组所关心的信息过滤出来，以及能够更改信息在屏幕中的显示位置，是商业门户创建友好用户界面的一个重要方式。

•知识管理：你的职员掌握着你的组织中大部分的信息。门户为职员通过他们的经验所积累的信息提供了一个存储仓库。门户有助于扩大组织已经拥有的信息的有效性或优势。

•协作：一些门户提供一些对于促进更好的协作来说非常必要的工具。这些工具可能包括：显示一些信息，以帮助用户确认他们的同事目前是否在工作岗位上，或者显示一些列表帮助职员来组织任务、事件或通知。

•分布式控制：很多 IT 组织所面临的一个挑战是维护他们现有的 intranet 系统。逥B了一个存储仓库。门户有助于扩大组织已经拥有的信息的有效性或优势。

•协作：一些门户提供一些对于促进更好的协作来说非常必要的工具。这些工具可能包括：显示一些信息，以帮助用户确认他们的同事目前是否在工作岗位上，或者显示一些列表帮助职员来组织任务、事件或通知。

•分布式控制：很多 IT 组织所面临的一个挑战是维护他们现有的 intranet 系统。通过䂸?个存储仓库。门户有助于扩大组织已经拥有的信息的有效性或优势。

•协作：一些门户提供一些对于促进更好的协作来说非常必要的工具。这些工具可能包括：显示一些信息，以帮助用户确认他们的同事目前是否在工作岗位上，或者显示一些列表帮助职员来组织任务、事件或通知。

•分布式控制：很多 IT 组织所面临的一个挑战是维护他们现有的 intranet 系统。鹁过䂸?个存储仓库。门户有助于扩大组织已经拥有的信息的有效性或优势。

•协作：一些门户提供一些对于促进更好的协作来说非常必要的工具。这些工具可能包括：显示一些信息，以帮助用户确认他们的同事目前是否在工作岗位上，或者显示一些列表帮助职员来组织任务、事件或通知。

•分布式控制：很多 IT 组织所面临的一个挑战是维护他们现有的 intranet 系统。通过一个内容管理系统实现的分布式控制允许单个拥有者管理门户中与他相关的内容。

定义商业门户

只知道什么是门户对于你定义商业门户应该是什么样子并没有帮助。要定义商业门户，你必须评估你的组织所面临的商业问题，并评估如何制定一个门户策略来解决这些问题。这样，你可以选择实现你需要的特性来解决那个商业问题。

建立商业门户站点的朥8??过一个内容管理系统实现的分布式控制允许单个拥有者管理门户中与他相关的内容。

定义商业门户

只知道什么是门户对于你定义商业门户应该是什么样子并没有帮助。要定义商业门户，你必须评估你的组织所面临的商业问题，并评估如何制定一个门户策略来解决这些问题。这样，你可以选择实现你需要的特性来解决那个商业问题。

建立商业门户站点的最大皥8??个内容管理系统实现的分布式控制允许单个拥有者管理门户中与他相关的内容。

定义商业门户

只知道什么是门户对于你定义商业门户应该是什么样子并没有帮助。要定义商业门户，你必须评估你的组织所面临的商业问题，并评估如何制定一个门户策略来解决这些问题。这样，你可以选择实现你需要的特性来解决那个商业问题。

建立商业门户站点的朰大皥8??个内容管理系统实现的分布式控制允许单个拥有者管理门户中与他相关的内容。

定义商业门户

只知道什么是门户对于你定义商业门户应该是什么样子并没有帮助。要定义商业门户，你必须评估你的组织所面临的商业问题，并评估如何制定一个门户策略来解决这些问题。这样，你可以选择实现你需要的特性来解决那个商业问题。

建立商业门户站点的最大的一个挑战是创建的门户项目既要足够大，大到能够提供用户所关系的所有信息；另一方面又要足够小，小到能够在合理的比较短时间内可以对外使用。门户能够证明它们的价值，但是只有在它们具有一个目标商业问题需要解决，并且具有一个适当的整体架构时，这种价值才能得到真正的体现。

在定义门户时，首先要确保你必须确定有几个项目或措施能够从你?大的一个挑战是创建的门户项目既要足够大，大到能够提供用户所关系的所有信息；另一方面又要足够小，小到能够在合理的比较短时间内可以对外使用。门户能够证明它们的价值，但是只有在它们具有一个目标商业问题需要解决，并且具有一个适当的整体架构时，这种价值才能得到真正的体现。

在定义门户时，首先要确保你必须确定有几个项目或措施能够从你定义䤸?个挑战是创建的门户项目既要足够大，大到能够提供用户所关系的所有信息；另一方面又要足够小，小到能够在合理的比较短时间内可以对外使用。门户能够证明它们的价值，但是只有在它们具有一个目标商业问题需要解决，并且具有一个适当的整体架构时，这种价值才能得到真正的体现。

在定义门户时，首先要确保你必须确定有几个项目或措施能够从你定义䤸?个挑战是创建的门户项目既要足够大，大到能够提供用户所关系的所有信息；另一方面又要足够小，小到能够在合理的比较短时间内可以对外使用。门户能够证明它们的价值，但是只有在它们具有一个目标商业问题需要解决，并且具有一个适当的整体架构时，这种价值才能得到真正的体现。

在定义门户时，首先要确保你必须确定有几个项目或措施能够从你定义的门户中获益。然后要制定一个计划，计划如何通过过程修订和自动化支持的来解决这些问题。第二，要确保你可以在一段时间内将这个门户扩展为更大的、面向整个企业的解决方案。

索引是提高查询速度的最重要的工具。当然还有其它的一些技术可供使用，但是一般来说引起最大性能差异的都是索引的正确使用。在MySQL邮件列表中，人们经常询问那些让查询运行得更快的方法。在大多数情况下，我们应该怀疑数据表上有没有索引，并且通常在添加索引之后立即解决了问题。当然，并不总是这样简单就可以解决问题的，因为优化技术本来就并非总是简单的。然而，如果没有使用索引，在很多情况下，你试图使用其它的方法来提高性能都是在浪费时间。首先使用索引来获取最大的性能提高，接着再看其它的技术是否有用。 　　这一部分讲述了索引是什么以及索引是怎么样提高查询性能的。它还讨论了在某些环境中索引可能降低性能，并为你明智地选择数据表的索引提供了一些指导方针。在下一部分中我们将讨论MySQL查询优化器，它试图找到执行查询的效率最高的方法。了解一些优化器的知识，作为对如何建立索引的补充，对我们是有好处的，因为这样你才能更好地利用自己所建立的索引。某些编写查询的方法实际上让索引不起作用，在一般情况下你应该避免这种情形的发生。 　　索引的优点 　　让我们开始了解索引是如何工作的，首先有一个不带索引的数据表。不带索引的表仅仅是一个无序的数据行集合。例如，图1显示的ad表就是不带索引的表，因此如果需要查找某个特定的公司，就必须检查表中的每个数据行看它是否与目标值相匹配。这会导致一次完全的数据表扫描，这个过程会很慢，如果这个表很大，但是只包含少量的符合条件的记录，那么效率会非常低。 图1：无索引的ad表 　　图2是同样的一张数据表，但是增加了对ad表的company_num数据列的索引。这个索引包含了ad表中的每个数据行的条目，但是索引的条目是按照company_num值排序的。现在，我们不是逐行查看以搜寻匹配的数据项，而是使用索引。假设我们查找公司13的所有数据行。我们开始扫描索引并找到了该公司的三个值。接着我们碰到了公司14的索引值，它比我们正在搜寻的值大。索引值是排过序的，因此当我们读取了包含14的索引记录的时候，我们就知道再也不会有更多的匹配记录，可以结束查询操作了。因此使用索引获得的功效是：我们找到了匹配的数据行在哪儿终止，并能够忽略其它的数据行。另一个功效来自使用定位算法查找第一条匹配的条目，而不需要从索引头开始执行线性扫描（例如，二分搜索就比线性扫描要快一些）。通过使用这种方法，我们可以快速地定位第一个匹配的值，节省了大量的搜索时间。数据库使用了多种技术来快速地定位索引值，但是在本文中我们不关心这些技术。重点是它们能够实现，并且索引是个好东西。 图2：索引后的ad表 　　你可能要问，我们为什么不对数据行进行排序从而省掉索引？这样不是也能实现同样的搜索速度的改善吗？是的，如果表只有一个索引，这样做也可能达到相同的效果。但是你可能添加第二个索引，那么就无法一次使用两种不同方法对数据行进行排序了（例如，你可能希望在顾客名称上建立一个索引，在顾客ID号或电话号码上建立另外一个索引）。把与数据行相分离的条目作为索引解决了这个问题，允许我们创建多个索引。此外，索引中的行一般也比数据行短一些。当你插入或删除新的值的时候，移动较短的索引值比移动较长数据行的排序次序更加容易。 　　不同的MySQL存储引擎的索引实现的具体细节信息是不同的。例如，对于MyISAM数据表，该表的数据行保存在一个数据文件中，索引值保存在索引文件中。一个数据表上可能有多个索引，但是它们都被存储在同一个索引文件中。索引文件中的每个索引都包含一个排序的键记录（它用于快速地访问数据文件）数组。 　　与此形成对照的是，BDB和InnoDB存储引擎没有使用这种方法来分离数据行和索引值，尽管它们也把索引作为排序后的值集合进行操作。在默认情况下，BDB引擎使用单个文件存储数据和索引值。InnoDB使用单个数据表空间（tablespace），在表空间中管理所有InnoDB表的数据和索引存储。我们可以把InnoDB配置为每个表都在自己的表空间中创建，但是即使是这样，数据表的数据和索引也存储在同一个表空间文件中。 前面的讨论描述了单个表查询环境下的索引的优点，在这种情况下，通过减少对整个表的扫描，使用索引明显地提高了搜索的速度。当你运行涉及多表联结（jion）查询的时候，索引的价值就更高了。在单表查询中，你需要在每个数据列上检查的值的数量是表中数据行的数量。在多表查询中，这个数量可能大幅度上升，因为这个数量是这些表中数据行的数量所产生的。 　　假设你拥有三个未索引的表t1、t2和t3，每个表都分别包含数据列i1、i2和i3，并且每个表都包含了1000条数据行，其序号从1到1000。查找某些值匹配的数据行组合的查询可能如下所示： SELECT t1.i1, t2.i2, t3.i3 FROM t1, t2, t3 WHERE t1.i1 = t2.i2 AND t2.i1 = t3.i3; 　　这个查询的结果应该是1000行，每个数据行包含三个相等的值。如果在没有索引的情况下处理这个查询，那么如果我们不对这些表进行全部地扫描，我们是没有办法知道哪些数据行含有哪些值的。因此你必须尝试所有的组合来查找符合WHERE条件的记录。可能的组合的数量是1000 x 1000 x 1000（10亿！），它是匹配记录的数量的一百万倍。这就浪费了大量的工作。这个例子显示，如果没有使用索引，随着表的记录不断增长，处理这些表的联结所花费的时间增长得更快，导致性能很差。我们可以通过索引这些数据表来显著地提高速度，因为索引让查询采用如下所示的方式来处理： 　　1．选择表t1中的第一行并查看该数据行的值。 　　2．使用表t2上的索引，直接定位到与t1的值匹配的数据行。类似地，使用表t3上的索引，直接定位到与表t2的值匹配的数据行。 　　3．处理表t1的下一行并重复前面的过程。执行这样的操作直到t1中的所有数据行都被检查过。 　　在这种情况下，我们仍然对表t1执行了完整的扫描，但是我们可以在t2和t3上执行索引查找，从这些表中直接地获取数据行。理论上采用这种方式运行上面的查询会快一百万倍。当然这个例子是为了得出结论来人为建立的。然而，它解决的问题却是现实的，给没有索引的表添加索引通常会获得惊人的性能提高。 　　MySQL有几种使用索引的方式： 　　· 如上所述，索引被用于提高WHERE条件的数据行匹配或者执行联结操作时匹配其它表的数据行的搜索速度。 　　· 对于使用了MIN()或MAX()函数的查询，索引数据列中最小或最大值可以很快地找到，不用检查每个数据行。 　　· MySQL利用索引来快速地执行ORDER BY和GROUP BY语句的排序和分组操作。 　　· 有时候MySQL会利用索引来读取查询得到的所有信息。假设你选择了MyISAM表中的被索引的数值列，那么就不需要从该数据表中选择其它的数据列。在这种情况下，MySQL从索引文件中读取索引值，它所得到的值与读取数据文件得到的值是相同的。没有必要两次读取相同的值，因此没有必要考虑数据文件。 索引的代价 　　一般来说，如果MySQL能够找到方法，利用索引来更快地处理查询，它就会这样做。这意味着，对于大多数情况，如果你没有对表进行索引，就会使性能受到损害。这就是我所描绘的索引优点的美景。但是它有缺点吗？有的，它在时间和空间上都有开销。在实践中，索引的优点的价值一般会超过这些缺点，但是你也应该知道到底有一些什么缺点。 　　首先，索引加快了检索的速度，但是减慢了插入和删除的速度，同时还减慢了更新被索引的数据列中的值的速度。也就是说，索引减慢了大多数涉及写操作的速度。发生这种现象的原因在于写入一条记录的时候不但需要写入数据行，还需要改变所有的索引。数据表带有的索引越多，需要做出的修改就越多，平均性能的降低程度也就越大。在本文的"高效率载入数据"部分中，我们将更细致地了解这些现象并找出处理方法。 　　其次，索引会花费磁盘空间，多个索引相应地花费更多的磁盘空间。这可能导致更快地到达数据表的大小限制： 　　· 对于MyISAM表，频繁地索引可能引起索引文件比数据文件更快地达到最大限制。 　　· 对于BDB表，它把数据和索引值一起存储在同一个文件中，添加索引引起这种表更快地达到最大文件限制。 　　· 在InnoDB的共享表空间中分配的所有表都竞争使用相同的公共空间池，因此添加索引会更快地耗尽表空间中的存储。但是，与MyISAM和BDB表使用的文件不同，InnoDB共享表空间并不受操作系统的文件大小限制，因为我们可以把它配置成使用多个文件。只要有额外的磁盘空间，你就可以通过添加新组件来扩展表空间。 　　使用单独表空间的InnoDB表与BDB表受到的约束是一样的，因为它的数据和索引值都存储在单个文件中。 　　这些要素的实际含义是：如果你不需要使用特殊的索引帮助查询执行得更快，就不要建立索引。 　　选择索引 　　假设你已经知道了建立索引的语法，但是语法不会告诉你数据表应该如何索引。这要求我们考虑数据表的使用方式。这一部分指导你如何识别出用于索引的备选数据列，以及如何最好地建立索引： 　　用于搜索、排序和分组的索引数据列并不仅仅是用于输出显示的。换句话说，用于索引的最好的备选数据列是那些出现在WHERE子句、join子句、ORDER BY或GROUP BY子句中的列。仅仅出现在SELECT关键字后面的输出数据列列表中的数据列不是很好的备选列： SELECT col_a <- 不是备选列 FROM tbl1 LEFT JOIN tbl2 ON tbl1.col_b = tbl2.col_c <- 备选列 WHERE col_d = expr; <- 备选列 　　当然，显示的数据列与WHERE子句中使用的数据列也可能相同。我们的观点是输出列表中的数据列本质上不是用于索引的很好的备选列。 　　Join子句或WHERE子句中类似col1 = col2形式的表达式中的数据列都是特别好的索引备选列。前面显示的查询中的col_b和col_c就是这样的例子。如果MySQL能够利用联结列来优化查询，它一定会通过减少整表扫描来大幅度减少潜在的表－行组合。 　　考虑数据列的基数（cardinality）。基数是数据列所包含的不同值的数量。例如，某个数据列包含值1、3、7、4、7、3，那么它的基数就是4。索引的基数相对于数据表行数较高（也就是说，列中包含很多不同的值，重复的值很少）的时候，它的工作效果最好。如果某数据列含有很多不同的年龄，索引会很快地分辨数据行。如果某个数据列用于记录性别（只有"M"和"F"两种值），那么索引的用处就不大。如果值出现的几率几乎相等，那么无论搜索哪个值都可能得到一半的数据行。在这些情况下，最好根本不要使用索引，因为查询优化器发现某个值出现在表的数据行中的百分比很高的时候，它一般会忽略索引，进行全表扫描。惯用的百分比界线是"30%"。现在查询优化器更加复杂，把其它一些因素也考虑进去了，因此这个百分比并不是MySQL决定选择使用扫描还是索引的唯一因素。 　　索引较短的值。尽可能地使用较小的数据类型。例如，如果MEDIUMINT足够保存你需要存储的值，就不要使用BIGINT数据列。如果你的值不会长于25个字符，就不要使用CHAR(100)。较小的值通过几个方面改善了索引的处理速度： 　　· 较短的值可以更快地进行比较，因此索引的查找速度更快了。 　　· 较小的值导致较小的索引，需要更少的磁盘I/O。 　　· 使用较短的键值的时候，键缓存中的索引块（block）可以保存更多的键值。MySQL可以在内存中一次保持更多的键，在不需要从磁盘读取额外的索引块的情况下，提高键值定位的可能性。 　　对于InnoDB和BDB等使用聚簇索引（clustered index）的存储引擎来说，保持主键（primary key）短小的优势更突出。聚簇索引中数据行和主键值存储在一起（聚簇在一起）。其它的索引都是次级索引；它们存储主键值和次级索引值。次级索引屈从主键值，它们被用于定位数据行。这暗示主键值都被复制到每个次级索引中，因此如果主键值很长，每个次级索引就需要更多的额外空间。 　　索引字符串值的前缀（prefixe）。如果你需要索引一个字符串数据列，那么最好在任何适当的情况下都应该指定前缀长度。例如，如果有CHAR(200)数据列，如果前面10个或20个字符都不同，就不要索引整个数据列。索引前面10个或20个字符会节省大量的空间，并且可能使你的查询速度更快。通过索引较短的值，你可以获得那些与比较速度和磁盘I/O节省相关的好处。当然你也需要利用常识。仅仅索引某个数据列的第一个字符串可能用处不大，因为如果这样操作，那么在索引中不会有太多的唯一值。 　　你可以索引CHAR、VARCHAR、BINARY、VARBINARY、BLOB和TEXT数据列的前缀。 　　使用最左（leftmost）前缀。建立多列复合索引的时候，你实际上建立了MySQL可以使用的多个索引。复合索引可以作为多个索引使用，因为索引中最左边的列集合都可以用于匹配数据行。这种列集合被称为"最左前缀"（它与索引某个列的前缀不同，那种索引把某个列的前面几个字符作为索引值）。 　　假设你在表的state、city和zip数据列上建立了复合索引。索引中的数据行按照state/city/zip次序排列，因此它们也会自动地按照state/city和state次序排列。这意味着，即使你在查询中只指定了state值，或者指定state和city值，MySQL也可以使用这个索引。因此，这个索引可以被用于搜索如下所示的数据列组合： state, city, zip state, city state 　　MySQL不能利用这个索引来搜索没有包含在最左前缀的内容。例如，如果你按照city或zip来搜索，就不会使用到这个索引。如果你搜索给定的state和具体的ZIP代码（索引的1和3列），该索引也是不能用于这种组合值的，尽管MySQL可以利用索引来查找匹配的state从而缩小搜索的范围。 　　不要过多地索引。不要认为"索引越多，性能越高"，不要对每个数据列都进行索引。我们在前面提到过，每个额外的索引都会花费更多的磁盘空间，并降低写操作的性能。当你修改表的内容的时候，索引就必须被更新，甚至可能重新整理。如果你的索引很少使用或永不使用，你就没有必要减小表的修改操作的速度。此外，为检索操作生成执行计划的时候，MySQL会考虑索引。建立额外的索引会给查询优化器增加更多的工作量。如果索引太多，有可能（未必）出现MySQL选择最优索引失败的情况。维护自己必须的索引可以帮助查询优化器来避免这类错误。 　　如果你考虑给已经索引过的表添加索引，那么就要考虑你将增加的索引是否是已有的多列索引的最左前缀。如果是这样的，不用增加索引，因为已经有了（例如，如果你在state、city和zip上建立了索引，那么没有必要再增加state的索引）。 　　让索引类型与你所执行的比较的类型相匹配。在你建立索引的时候，大多数存储引擎会选择它们将使用的索引实现。例如，InnoDB通常使用B树索引。MySQL也使用B树索引，它只在三维数据类型上使用R树索引。但是，MEMORY存储引擎支持散列索引和B树索引，并允许你选择使用哪种索引。为了选择索引类型，需要考虑在索引数据列上将执行的比较操作类型： 　　· 对于散列（hash）索引，会在每个数据列值上应用散列函数。生成的结果散列值存储在索引中，并用于执行查询。散列函数实现的算法类似于为不同的输入值生成不同的散列值。使用散列值的好处是散列值比原始值的比较效率更高。散列索引用于执行=或<=>操作等精确匹配的时候速度非常快。但是对于查询一个值的范围效果就非常差了： id < 30 weight BETWEEN 100 AND 150 　　· B树索引可以用于高效率地执行精确的或者基于范围（使用操作<、<=、=、>=、>、<>、!=和BETWEEN）的比较。B树索引也可以用于LIKE模式匹配，前提是该模式以文字串而不是通配符开头。 　　如果你使用的MEMORY数据表只进行精确值查询，散列索引是很好的选择。这是MEMORY表使用的默认的索引类型，因此你不需要特意指定。如果你希望在MEMORY表上执行基于范围的比较，应该使用B树索引。为了指定这种索引类型，需要给索引定义添加USING BTREE。例如： CREATE TABLE lookup ( id INT NOT NULL, name CHAR(20), PRIMARY KEY USING BTREE (id) ) ENGINE = MEMORY; 　　如果你希望执行的语句的类型允许，单个MEMORY表可以同时拥有散列索引和B树索引，即使在同一个数据列上。 　　有些类型的比较不能使用索引。如果你只是通过把值传递到函数（例如STRCMP()）中来执行比较操作，那么对它进行索引就没有价值。服务器必须计算出每个数据行的函数值，它会排除数据列上索引的使用。 　　使用慢查询（slow-query）日志来识别执行情况较差的查询。这个日志可以帮助你找出从索引中受益的查询。你可以直接查看日志（它是文本文件），或者使用mysqldumpslow工具来统计它的内容。如果某个给定的查询多次出现在"慢查询"日志中，这就是一个线索，某个查询可能没有优化编写。你可以重新编写它，使它运行得更快。你要记住，在评估"慢查询"日志的时候，"慢"是根据实际时间测定的，在负载较大的服务器上"慢查询"日志中出现的查询会多一些。

100%成功的是这种:
WinRunner安装心得
重装系统后，发现用论坛中的方法安装WinRunner7.6还是有问题, 总是提示14天有效。后来发现在C:\Program Files\Common Files\Mercury Interactive有一个License Manager目录，里面有一个lservrc文件。这个文件就是MI工具的注册管理器，把里面的内容替换成下面的内容，就大功 告成了：
5SFDHYECAW7F8V8ULAEHCVYQSIRG93D29XAQ8KKM4FC#
# Dynamically installed.
FF2VLB3CX43FE7GRYIB3W96MVFUFK7UX5IM6DTS2WL4YR8JS4N27M6DWEM9
# Dynamically installed.
G8A9EF79GM5Z7C2V6IKBQZ64773ZBDCLMWETBCRHBG57634GFVY9K#
# Dynamically installed.
NRDDL7SPI9LDT5PUG8E4MHVA2933VROPSPBIEZ95JLHMH48OC7P8UEFJXNLR GG8W274AHT
# Dynamically installed.
。
不要忘了把自己机器的时间调到2005

Ｓome handsome boys or preety girls told that " Install the WinRunner7.6 (english version) on my machine.  But I don't have license key."
ok ,now ,i would share you a mean to solve this kind of problem.

Step 1: you should open the folder of "C:\Program Files\Common Files\Mercury Interactive\License Manager" ,and you could see a file named "lservrc".
Step 2: PlZ open the "lservrc" by wordpad(写字板)

Step 3: This step is most important. Take care,please!
You should delete all the content of this file ,rewrite the following words:

5SFDHYECAW7F8V8ULAEHCVYQSIRG93D29XAQ8KKM4FC#
# Dynamically installed.
FF2VLB3CX43FE7GRYIB3W96MVFUFK7UX5IM6DTS2WL4YR8JS4N27M6DWEM9
# Dynamically installed.
G8A9EF79GM5Z7C2V6IKBQZ64773ZBDCLMWETBCRHBG57634GFVY9K#
# Dynamically installed.
NRDDL7SPI9LDT5PUG8E4MHVA2933VROPSPBIEZ95JLHMH48OC7P8UEFJXNLRGG8W274AHT
# Dynamically installed.

Ok,you succ! 
Sorry ,i forget one thing that you should modify your systerm time  to 2005 year!!

I think ,you could do those better than me.
Best wishes~~

问：Linux系统中，有哪些主要的日志子系统？ 答：连接时间日志由多个程序执行，把记录写到/var/log/wtmp和/var/run/utmp，并由login等程序更新wtmp和utmp文件，使系统管理员能够跟踪谁在何时登录到系统。 进程统计由系统内核执行。当一个进程终止时，为每个进程向进程统计文件（Pacct或acct）中写一个记录。进程统计的目的是为系统中的基本服务提供命令使用统计。 错误日志由syslogd（8）执行。各种系统守护进程、用户程序和内核通过syslogd（3）向文件/var/log/messages报告值得注意的事件。另外，有许多Unix程序创建日志。像HTTP和FTP这样提供网络服务的服务器也保持详细的日志。  问：Linux下tar和rsync区别？ 答：tar命令用来建立最初的副本，rsync命令则是用来获取最后一个副本建立以来所发生的变更。在不存在任何目标文件时，tar比rsync要快。如果两个文件系统差异很小，则rsync比tar快许多。 问：Linux有哪些常用的系统维护文件？ 答：（1）/etc/hosts：主机名字解析文件，提供主机名和IP地址的对应。 （2）/etc/passwd：包含有口令文件、登录用户名、加密口令、用户ID、组ID、初始工作目录和Shell路径等信息。 （3）/etc/grofup：包含有组名、加密密码、组ID及所有属于该组的用户的信息等。 （4）/etc/profile：可以设置通用环境变量。 （5）/etc/inittab：内部初始化之后，系统将启动/etc/init这个Deamon进程，使 /etc/init进程取得引导序列是控制权。 问：如果/var目录空间不够用，可以移到新的硬盘空间中吗？ 答：当然可以，但是要注意两点： 1.不是简单的从/ var目录下拷贝资料，而是要用tarzcvf 和zxvf命令打包和解包到新的挂载点，这样才能保证/var的链接文件不会受破坏。 2.从紧急启动软盘引导启动，如果没有准备就用Linux 安装光盘用 rescue模式进入系统，把/etc/fstab这个文件中的/var分区修改成现在的挂载点。最后退出重新启动，使挂载生效。 问：我的Linux每次启动直接进入图形界面，有什么方法可以直接进入终端吗？ 答：修改/ e t c / i n i t t a b 文件，找到“i b：X ：initdefault”，其中X表示启动方式，改为3表示终端，改为5表示图形。 问：Linux下怎么实现分卷压缩？ 答：用tar命令每卷50M分卷压缩，命令如下： # tar zcvfp – mytarfilr.tar.gz | split –d –b 50m 问：如何用USB盘启动Linux系统？ 答：首先查看主版是否支持从USB盘启动，启动时，需要到BIOS下设置从USB设备启动。进入BIOS的“AdvancedBIOS Features”下的“first boot device”选项，就有usb-fdd、 usb-hdd、usb-zip和usb-cdrom等USB设备的启动选项了，然后制作一张Linux启动盘。将 boot.img保存在根分区下，运行命令：“dmesg”，查看USB盘设备号。一般是sda。 运行如下命令： # dd if=/boot.img of = /dev/sda 如果显示如下，则表示制作成功。 2880 +0 records in  2880 +0 records out 问：我在应用一些特别消耗虚拟内存的程序（如g++）时，发现swap空间已经用完，如何临时增加swap空间呢？ 答：如果是临时增加swap空间，可以使用swap文件来实现。如果增加128MB的swap空间，可以使用以下命令来实现： # lsof –i :22 COMMAND PID USER FD TYPE DEVICE SIZENODE NAME sshd 1826 root 3u IPv6 2770 TCP *:ssh(LISTEN) # dd if=/dev/zero of=/swap bs=1024 count=131070 # mkswap /swap Setting up swapspace version 1,size = 134209 kB # swapo swapoff swapon 其中，count参数是swap文件的大小，of参数是swap文件的名称。请注意，在存放swap文件的分区上要有相应的空间，如上例中“/”分区至少要有128MB的可见才行。使用完毕后，可以用以下命令解释这128MB的swap分区： # swapoff /swap # rm /swap  问：如何防止以外或别人故意修改文件？ 答：对系统中的一些关键文件和个人重要资料，可以通过文件权限来保护，例如将文件属性设为600。另外，如果Linux使用的是ext2或ext3文件系统，还可以使用“chattr”命令，给文件加上i属性，即使root用户也不能直接修改或删除这类文件，以有效防止意外修改情况的发生。具体命令如下： # chattr +i passwd 去除i属性使用如下命令： # chattr –i passwd 问：我在Windows下不小心把swap分区格式化了，请问有什么命令可以恢复？ 答：使用mkswap命令建立swap分区，再使用swapon命令启用swap分区即可。关于命令的使用，举例如下： ＃mkswap /dev/sda7 # swapon /dev/sda7   1.KDE是什么，有什么特点？  KDE项目在1996年10月发起的，其目的是在X-Window上建立一个完整易用的桌面环境。KDE现在除了拥有KFM(类似于IE4.0)、KPresenter(类似PowerPoint)、KIllustrator(类似CorelDraw或 Illustrator)等重量级软件，还有体贴用户的GUI配置软件可以帮助用户配置Unix/Linux，使其深受使用者欢迎。  但由于KDE是基于由TrollTech公司开发的Qt程序库的，所以也受到了许多批评。虽然Qt本身作为一基于C++的跨平台开发工具是非常优秀，但可惜的是它不是自由软件。Qt的License允许任何人使用Qt编写免费软件及免费拷贝给其他用户使用，但如果利用Qt编写非免费软件则需要购买他们的License。更重要的是任何人都不可以随意修改Qt源代码。如果TrollTech公司更改Qt License、公司倒闭或给人收购等都会令KDE前功尽弃。  2.GNOME是什么，有什么特点？  1997年8 月，为了克服KDE所遇到的QT许可协议和单一C++依赖的困难，以墨西哥的Miguel de Icaza为首的250程序员就开始了一个新项目，完全从头开始，这就是GNOME。  经过14个月的共同努力，终于完成了这个工程。现在GNOME已得到了占Linux 市场份额最大发行商Red Hat 的支持，拥有了大量应用软件，包括文字处理软件Go，电子表格软件Gnumeric，日历程序GNOMEcal，堪与PhotoShop 媲美的图形图像处理软件Gimp 等。  现在GNOME与KDE晌 肆酱缶赫 笥 亟 沟肔inux更加易于使用。  3.在Linux下如何播放CD？  当你成功地在Linux环境下驱动了你的声卡之后，你就可以通过使用X-window中的一个CD播放器来播放CD了，它在多媒体工具中。界面如下图所示：  4.能不能在Linux下播放VCD？  你可以使用MpegTV Player 1.0这个Linux下的VCD播放器实现你的愿望。　　安装MpegTVPlayer不需要特殊的硬件设备，只需运行X Window即可使用。  它模仿了录像机的播放控制键，如 : 播放、快进、快退、停止、定格、搜索、音量调节、静声、音量平衡、循环播放、画面放大缩小、自动播放等。播放过程会显示整个节目要用时间、已用时间。  你可以到下面站点下载MpegTV Play：http://www.mpegtv.com。  5.有没有Linux下MP3播放工具？  Linux下有很多MP3的播放工具，其中mpg123 应该是最经典的一种，它可以在控制台使用。许多图形界面的mp3播放软体都是利用这个程式来 播放mp3的。下面是它的一些基本的参数介绍：  -a device 设定所使用的音效装置,预设为/dev/audio或/dev/dsp  -@ file 从档案file中读取要播放的mp3档案名称列表  -z 随机播放  如果只是要单纯地播放一两首歌，或是要播放一整个目录下的歌，利用mpg123倒是个不错的选择，若是要复杂一点的功能如选择多目录内的特定mp3档案，那可能需要写个scrīpt来执行。  6.如何在Linux下浏览网页？  想要浏览网页，需要满足两个条件：  1） 你的电脑已经连上了Internet；  2） 使用浏览器软件来实现浏览；在Linux下有两种常用的浏览器：  控制台下可以使用lynx；  X-window中可以使用netscape的Linux版本；  它们的使用方法与在Windows中的浏览器基本类似。  7.如何在Linux下收发E-Mail  在Linux下你可以使用mail、pine在控制台命令行下收发E-Mail，在X-window中可以使用Kmail来收来E-Mail。  8.能不能让Linux显示中文呢？  用的英文版的Linux，你可以安装中文模拟终端chdrv使Linux能在命令行状态下显示和汉字。chdrv启动后在tty7（用Ctrl+Alt+F7）建立一个虚拟终端，用户在tty7上登录后就可以使用它提供的中文支持。  到ftp://ftp.ihep.ac.cn/pub/chinese/system获取已编译的chdrvbin-0.23.gb.tar.gz文件和字体文件chdrvfont.tar.gz，然后执行：  tar xvzf chdrvbin-0.23.gb.tar.gz  mv chdrvfont.tar.gz chdrv-0.23.gb/  cd chdrv-0.23.gb 进入此目录  ./installbin 运行安装文件  9.有没有Linux下的中文输入法？  如果你使用的Linux是中文版，就无需另外安装了。如果你使用英文版的Linux的话，你可以安装chinput来实现中文输入。你可以到下面网址下载：  http://www.turbolinux.com.cn/~justiny/download/chinput-2.1.tar.gz  1） 下载后，解开该文件：tar -xvzf chinput-2.1.tar.gz  2） 解开后，进入 Chinput-2.1/src 里，修改 chinput.c文件，查找 GBK字样，将其改为 GB2312。再查找system("/usr/bin/zwincontrol &")；语句，将其取消（在前面加上 // ）；  3） 修改完后，执行make命令编译；  4）编译完成后，就可以在X-Window环境下使用了。  10.除了VI，还有其他文字编辑软件吗？  Vi是UNIX/Linux环境下最通用的一种编辑软件，但是它不是很友好。如果你对它不满意的话还可以尝试其它一些如emacs、joe等编辑工具。  笔者极力推荐emacs，这是自由软件基金FSF之父stallman的杰作，也是GNU项目第一个重磅炸弹，的确十分优秀，值得一试。不过最大缺点就是太复杂。  11.Linux下有没有像office一样的软件？  有，StarOffice就是基于Linux的一个办公软件的套件，它是一个商业软件包，其中包括字处理、电子表格、幻灯片制作等MS Office软件包含有的软件。对于个人用户还提供一个免费的版本。用户可以到以下站点下载：  http://studio.linux.org.cn。  StarOffice Office Suite for Linux是为非商业用户准备的，商业用户要使用StarOffice Office 则需要许可证。  ftp://ftp.gwdg.de/pub/linux/staroffice  12.Linux下有没有像photoshop一样的软件？  有，Linux下有一款十分著名的平面图形处理软件—GIMP。它的界面比Photoshop更简洁,启动时只有一个工具栏,看起来和Photoshop差不多.主菜单在用鼠标右键单击打开的图象时才弹出,像Channels,layers,brushes......一应俱全,外观也和Photoshop极为相似,用不着花时间去适应了. ....  这还不算特点.比Photoshop优越的地方也不少:如支持的图象格式极多,支持Texture Brush,像Painter那样刷出底纹图案来. Filter也更多了,比如有一种叫Alien Map的,把RGB三色进行sin,cos运算,达到特殊效果,真是奇思妙想.Undo功能也不错,我试了一下,至少支持5次undo.还有更令人欣喜的,就是对Web的支持,可以很轻松的做出定制的箭头,按钮,背景图案等,比Photoimpact更强大。  如果你离不开PHOTOSHOP,又付不起ADOBE掌柜的帐，又自认为玩艺术的人不用D版，试试GIMP吧！  13.能在Linux下玩游戏吗？  现在已经有For Linux的游戏了，除了大名鼎鼎的Doom之外，还用一些像acm—空战模拟游戏、xdemineur—挖地雷、xjewel—俄罗斯方块、xboard—国际象棋、xboing—弹珠台游戏。而且现在越来越多，为你在枯燥的学习中添上一丝乐趣。  14.在Linux下有C语言吗？其它语言呢？  在Linux下有自由软件基金FSF创建的重磅炸弹-GCC，它是一个强大的编译器，目前堪称是全世界效率最高的C/C++编译器，现在已经广泛应用在各种UNIX环境下。虽然，现在还没有C语言的集成开发环境，但这丝毫不影响GCC的流行，这也许就是自由的力量吧！  同时，Linux下也提供Fortran、Pascal、Perl、Cobol等多种语言的支持。  15.Linux下有哪些数据库软件？  Linux下有许多种数据库软件可供使用，其中有Oracle for Linux、IBM DB2 for Linux、Mysql、mSql、Post等。

如何从用户的角度来测试Web应用软件

软件测试常识

开始录制
选择test->start recording



Browser操作
打开IE
运行http://localhost,显示需要测试WEB应用

结束录制
选择test->stop recording贮存脚本file->save

 

回放录制
选择file->open(打开脚本)
选择test->run

 

分析测试结果
查看测试结果界面,成功的话显示Test Ran Successfully

 

注意事项（1）
web界面测试
 MAXQ不是测试界面的工具,因此web的界面测试还需要人工测试或应用诸如Winrunner、Testcomplete工具自动测试。
脚本录制
 当功能已经正确的前提下才录制脚本。

脚本大小
 从业务上划分，通常把一个完整的业务过程作为录制脚本的对象；
适宜关联业务流程录制；
不要把不相关的业务录制在同一个脚本中；

注意事项（2）
测试检查
 需要另外加测试点检查

Web 测试的经验

web应用程序测试方法和测试技术详述

基于Windows下开源缺陷跟踪系统Mantis安装

软件版本标志

基于windows的TestLink1.6.2安装

Delphi面向对象编程的20条规则(By Marco Cantu) lotusswan（自译）

关键字      面向对象编程，OOP，Delphi,规则
  
出处      《The Delphi Magazine》 Issue 47
作者简介
            Marco Cantu是一个知名的Delphi专家，他曾出版过《精通Delphi》系列丛书，
《Delphi开发手册》以及电子书《精通Pascal》(该电子书可在网上免费获得)。他讲授的课
题是Delphi基础和高级开发技巧。你可以通过他的网站（www.marcocantu.com）获得更多关
于他的信息，你也可以他的公共新闻组和他联系，详情请参见他的网站。


前言
        大多数Delphi程序员都像使用Visual Basic 那样使用他们手头上开发工具，而丝毫
没有意识到Delphi的强大功能，更谈不上使用这些功能了。(写到这里，编辑惶恐的举起了手
，怎么可能呢？)Delphi和Visual Basic不同，Delphi完全建立在面向对象结构上,这不仅影
响到VCL的结构，而且影响到使用Delphi开发的每一个程序。
        在本文中，我不想涉及到面向对象编程（OOP）的所有理论,只是提出一些简单的经验
规则。希望这些规则能够帮助改善你的程序结构。无论你开发的是何种类型的程序，这些经
验规则都是适用的。你应当把他们当作一些建议，记住他们并把他们应用到你开发的程序中
去。
       关于面向对象编程，我想强调的一个关键原理是封装。我们都希望创建一些灵活而且
强健的类，因为这样的类允许我们以后修改他们的实现方法而不影响到程序中的其他部分，
这正是封装给我们带来的好处。虽然封装不是创建一个好的面向对象程序的唯一标准，但是
它构成了面相对象编程的基础，所以在本文中我也许会过多的强调封装性，请不要感到奇怪
，我有足够充分的理由这么做。
       最后，我想说明这样一个事实：本文将主要集中说明窗体（Forms）的开发（虽然其中
的一些规则对于组件的开发同样适用），因此这些规则对于所有的Delphi程序员都是适用的
。那些编写组件的程序员必须把面相对象编程和类（Class）作为核心的元素，但是对于那些
使用组件编程的程序员，他们时常会忘记面向对象。对于他们，本文可以当作一个提示，提
醒他们始终记住面向对象编程

第一部分：窗体是类（A Form. is A Class）(rule 1-rule 15)
       程序员常常将窗体看作是对象，而事实上窗体是类。两者的差别在于你创建基于相同
的窗体类的多个窗体对象。令人感到疑惑的是Delphi为你定义的每一个窗体类创建了一个默
认的全局对象。这对于新手来说是相当方便的，但是这同样会使他们形成坏习惯。


第二部分：继承（Inheritance）(rule 15-rule 20)
       在讲述了一系列关于类特别是关于窗体类的规则后，第二部分将是一些关于类的继承
性以及可视化窗体继承的建议和技巧。


关于代码
       本文中所有的代码段都可以在本期杂志（《The Delphi Magazine》 Issue 47）附带
的磁盘中的OopDemo工程中找到。你特别应该查看例程中的frm2 单元（unit）和inher单元。
如果你想使用这些代码，请注意构造器必要的初始化设置以及私有组件参照，同时有必要设
置好窗体的OldCreateOrder属性。否则，带有组件的窗体构造器的初始化代码将在窗体的On
Create事件之前得到执行。
        在这张磁盘上你还可以找到OOP 窗体向导的第一版的编译包，不过我更希望你访问我
的网站获得该程序的更完整的版本。

规则一：为每一个类创建一个单元（One Class,One Unit）
        请始终牢记这一点：类的私有(private)和保护(protected)的部分只对于其他单元中
的类和过程（procedure）才是隐藏的.因此，如果你想得到有效的封装性，你应该为每一个
类使用一个不同的单元。对于一些简单的类，比如那些继承其他类的类，你可以使用一个共
享的单元。不过共享同一个单元的类的数目是受到限制的：不要在一个简单的单元里放置超
过20个复杂的类，虽然Borland公司的VCL代码曾经这样做过。
       如果你使用窗体的时候，Delphi会默认的遵循“一个类使用一个单元”的规则，这对
于程序员来说也是十分方便的。当你向你的项目中添加一个没有窗体的类时，Delphi也会创
建一个新的独立的单元。


规则二：为组件命名（Name Components）
        为每一个窗体和单元给出一个有意义的名字是十分重要的。窗体和单元的名字必须是
不同的，不过我趋向于为他们两者使用相似的名字，如对于关于窗体和单元可以为他们使用
AboutForm. 和About.pas.
        为组件使用带有描述性的名字同样十分重要。最常见的命名方式是使用类的小写字母
开头，再加上组件的功能，如BtnAdd 或者editName。采用这样的命名方式为组件命名可能会
有很多相似的名字，而且也没有一个最好的名字，到底应该选择那一个应该依据你的个人爱
好而定。


规则三：为事件命名（Name Events）
        对于事件处理方法给出合适的名字更加重要。如果你对于组件给出了一个合适的名字
，那么系统默认的名字ButtonClick将变成BtnAddClick。虽然从这个名字中我们可以猜到这
个事件处理程序的功能，但是我认为使用一个能够描述该方法的作用的名字，而不是采用De
lphi附加的名字是一种更好的方式。例如，BtnAdd按钮的OnClick事件可以命名成AddToList
。这会使得你的程序可读性更强，特别是当你在这个类的其他方法中调用这个事件处理程序
时，而且这会帮助程序员为类似的事件或是不同的组件选用相同的方法。不过我必须声明，
使用动作（Actions）是目前开发重要的程序时我最喜欢的方法。


规则四：使用窗体方法（Use Form. Methods）
        窗体都是一些类，因此窗体的代码是以方法组织的。你可以向窗体中添加事件处理程
序，这些处理程序完成一些特别的功能，而且他们能被其他方法调用。除了事件处理方法外
，你还可以向窗体添加完成动作的特别定义的方法以及访问窗体状态的方法。在窗体中添加
一些公共的（Public）方法供其他窗体调用要比其他窗体直接操作他的组件要好。


规则5：添加窗体构造器（Add Form. Constructors）
       在运行时创建的第二个窗体除了一个默认的构造器（从Tcomponent 类继承而来）外还
会提供其他特殊的构造器。如果你不需要考虑和Delphi4以前的版本的兼容性问题，我建议你
重载（Overload）Create方法，添加必要的初始化参数。具体代码可参见下面的代码:

Public
    Constructor Create(Text:string): reintroduce ; overload;
Constructor TformDialog.Create(Text:string);
Begin
    Inherited Create(Application);
    Edit1.Text:=Text;
End;



规则6：避免全局变量（Avoid Global Variables）
         应该避免使用全局变量（就是那些在单元的interface 部分定义的变量）。下面将
会有一些建议帮助你如何去做。
         如果你需要为窗体存储额外的数据，你可以向窗体类中添加一些私有数据。这种情
况下，每一个窗体实例都会有自己的数据副本。你可以使用单元变量（在单元的implementa
tion部分定义的变量）声明那些供窗体类的多个实例共享的数据。
如果你需要在不同类型的窗体之间共享数据，你可以把他们定义在主窗体里来实现共享，或
者使用一个全局变量，使用方法或者是属性来获得数据。


规则7：永远不要在Tform1类中使用Form1(Never Use Form1 in Tform1)
        你应该避免在类的方法中使用一个特定的对象名称，换句话说，你不应该在TForm1类
的方法中直接使用Form1.如果你确实需要使用当前的对象，你可以使用Self关键字。请牢记
：大多数时候你都没有必要直接使用当前对象的方法和数据。
如果你不遵循这条规则，当你为一个窗体类创建多个实例的时候，你会陷入麻烦当中。


规则8：尽量避免在其他的窗体中使用Form1(Seldom Use Form1 In Other Forms )
       即使在其他窗体的代码中，你也应该尽量避免直接使用全局变量，如Form1.定义一些
局部变量或者私有域供其他窗体使用会比直接调用全局变量要好。
        例如，程序的主窗体能够为对话框定义一个私有域。很显然，如果你计划为一个派生
窗体创建多个实例，这条规则将是十分有用。你可以在主窗体的代码范围内保持一份清单，
也可以更简单地使用全局Sreen对象的窗体数组。

规则9：移除Form1(Remove Form1)
       事实上，我的建议是在你的程序中移除Delphi自动创建的全局窗体对象。即使你禁止
了窗体的自动添加功能，这也有可能是必要的，因为在Delphi随后仍然可能添加这样的窗体
。我给你的建议是应该尽量避免使用全局窗体对象。
        我认为对于Delphi新手而言，移除全局窗体对象是十分有用的，这样他们不至于对类
和全局对象两者的关系感到疑惑。事实上，在全局窗体对象被移除后，所有与它有关的代码
都会产生错误。


规则10：添加窗体属性（Add Form. Properties）
        正如我已经提到过的，当你需要为你的窗体添加数据时，请添加一个私有域。如果你
需要访问其他类的数据，可以为你的窗体添加属性。使用这种方法你就能够改变当前窗体的
代码和数据(包含在它的用户界面中)而不必改变其他窗体或类的代码。
        你还应该使用属性或是方法来初始化派生窗体或是对话框，或是访问他们的最终状态
。正如我前文所说的，你应该使用构造器来完成初始化工作

规则11：显示组件属性（Expose Components Properties）
        当你需要访问其他窗体的状态时，你不应该直接访问它的组件。因为这样会将其他窗
体或其它类的代码和用户界面结合在一起，而用户界面往往是一个应用程序中最容易发生改
变的部分。最好的方法是，为你需要访问的组件属性定义一个窗体属性。要实现这一点，可
以通过读取组件状态的Get方法和设置组件状态的Set方法实现。
假如你现在需要改变用户界面，用另外一个组件替换现有的组件，那么你只需做的是修改与
这个组件属性相关的Get方法和Set方法，而不必查找，修改所有引用这个组件的窗体和类的
源码。详细实现方法请参见下面的代码：

private
    function GetText:String;
    procedure SetText(const Value:String);
public
    property Text:String;
    read GetText write SetText;
function TformDialog.GetText:String;
begin
      Result:=Edit1.Text;
end;
procedure TformDialog.SetText(const Value:String);
begin
      Edit1.Text;=Value;
end;


规则12：属性数组（Array Properties）
        如果你需要处理窗体中的一系列变量，你可以定义一个属性数组。如果这些变量是一
些对于窗体很重要的信息，你还可以把他们定义成窗体默认的属性数组，这样你就可以直接
使用SpecialForm[3]来访问他们的值了。
        下面的代码显示了如何将一个listbox组件的项目定义成窗体默认的属性数组。

type
    TformDialog =class(TForm)
    private
           listItems:TlistBox;
           function GetItems(Index:Integer):String;
            procedure SetItems(Index:Integer:const Value:String);
   public
            property Items[Index:Integer]:string;
end;
   function TFormDialog.GetItems(Index:Integer):string;
begin
        if Index >=ListItems.Items.Count then
             raise Exception.Create(‘TformDialog:Out of Range’);
             Result:=ListItems.Items[Index];
end;
procedure TformDialog.SetItems(Index:Integer;const alue:string);
begin
        if Index >=ListItems.Items.Count then
             raise Exception.Create(‘TformDialog:Out of Range’);
             ListItems.Items[Index]:=Value;
end;


规则13：使用属性的附加作用（Use Side-Effects In Properties）
        请记住：使用属性而不是访问全局变量（参见规则10、11、12）的好处之一就是当你
设置或者读取属性的值时，你还可能有意想不到的收获。
        例如，你可以直接在窗体界面上拖拉组件，设置多个属性的值，调用特殊方法，立即
改变多个组件的状态，或者撤销一个事件（如果需要的话）等等。


规则14：隐藏组件（Hide Components）
        我经常听见那些面向对象编程的狂热追求者抱怨Delphi窗体中包含一些在published
部分声明的组件，这是和面向对象思想的封装性原理不相符合的。他们确实提出了一个重要
的议题，但是他们中的大多数人都没有意识到解决方法其实就在他们手边，完全不用重写De
lphi代码，也不用转向其他语言。
         Delphi向窗体中添加的组件参照可以被移到private部分，使得其他窗体不能访问他
们。如果你这样做，你就有必要设置一些指向组件的窗体属性（请参见规则11），并且使用
它们来访问组件的状态。
         Delphi将所有的这些组件都放在published部分，这是因为使用这种方式能够保证这
些域一定是在.DFM文件中创建的组件。当你改变一个组件的名称时，VCL能够自动地将这个组
件对象与它在窗体中的参照关联起来。因为delphi使用RTTI和Tobject方法来实现这种功能，
所以如果想要使用这种自动实现功能，就必须把参照放置在published部分（这也正是为什么
delphi将所有的组件都放在published部分的缘故）。
        如果你想知道的更详细一点，可以参看下面的代码：

procedure Tcomponent.SetReference(Enable:Boolean);
var
      Field:^Tcomponent;
begin
      If Fowner<> nil then begin
            Field:=Fowner.FieldAddress(Fname);
            If Field<>nil then
            Field^:=Self
     else
            Field^:=nil;
      end;
end;


上面的代码是Tcomponent类的SetReference方法，这个方法可以被InserComponent，Remove
Component和SetName等方法调用。
        当你理解了这一点后，你应该不难想到如果你将组件参照从published部分移到了pr
ivate段，你将失去VCL的自动关联功能。为了解决这个问题，你可以通过在窗体的OnCreate
事件中添加如下代码解决：
Edit1:=FindComponent(‘Edit1’) as Tedit;
       你接下来应该做的就是在系统中注册这些组件类，当你为他们注册过后就能使RTTI包
含在编译程序中并且能够被系统所使用。当你将这些类型的组件参照移到private部分时，对
于每一个组件类，你只需为他们注册一次。即使为他们注册不是一定必要的时候，你也可以
这样做，因为对于RegisterClasses的额外调用有益无害。通常你应该在单元中负责生成窗体
的初始化部分添加以下的代码：
RegisterClass（[TEdit]）;


规则15：面向对象编程的窗体向导（The OOP Form. Wizard）
        为每一个窗体的每一个组件重复上述两个操作不仅十分的烦人，而且相当的浪费时间
。为了避免额外的负担，我已经为此写了一个简单的向导程序。这个程序将会生成一些可以
完成以上两步工作的代码，你需要做的仅仅是做几次复制和粘贴就行了。
        遗憾的是这个向导程序不能自动将代码放置到单元中合适的地方，我目前正在修改这
个向导程序，希望能实现这个功能。你可以到我的网站（www.marcocantu.com）查找更加完
善的程序。



规则16：可视化窗体继承（Visual Form. Inheritance）
       如果应用得当，这将是一个强大的工具。根据我的经验，你所开发的项目越大，越能
体现它的价值。在一个复杂的程序中，你可以使用窗体的不同等级关系来处理一组相关窗体
的多态性（polymorphism）。
       可视化窗体继承允许你共享多个窗体的一些公共的动作：你可以使用共享的方法，公
用的属性，甚至是事件处理程序，组件，组件属性，组件事件处理方法等等。


规则17：限制保护域数据的使用（Limit Protected Data）
       当创建一些具有不同分级体系的类时，一些程序员趋向于主要使用保护域，因为私有
数据不能被子类访问。我不能说这没有其合理性，但是这肯定是和封装性不相容和的。保护
数据的实现能够被所有继承的窗体所共享，而且一旦这些数据的原始定义发生改变，你必须
更改所有的相关部分。
       请注意，如果你遵循隐藏组件这样一条规则（Rule 14），继承窗体就不可能访问基类
的私有组件。在一个继承窗体中，类似Edit1.Text：=’’的代码就不会被编译。虽然这是相
当的不方便，但是至少在理论上这是值得肯定的事情，而不是否定的。如果你感觉到实现封
装性是最主要，最需要的，就请将这些组件参照放在基类的私有段。


规则18：保护域中的访问方法（Protected Access Methods）
        在基类中将组件参照放置在私有域中，而为这些组件添加一些访问函数来得到他们的
属性，这将是一种更好的方法。如果这些访问函数仅仅在这些类内部使用而且不是类接口的
一部分，你应该在保护域声明他们。例如Rule 11中描述过的GetText和SetText方法就可以声
明成protected，并且我们可以通过调用SetText（’’）来编辑文本。
      事实上，当一个方法被镜像到一个属性时，我们可以简单地采用如下代码就可以达到编
辑文本地目的：Text:=’’;


规则19：保护域中的虚拟方法（Protected Virtual Methods）
        实现一个灵活的分级制度的另一个关键点是定义一些你可以从外部类调用的虚拟方法
来得到多态性。如果这个方法使用得当，将会很少出现其他公共的方法调用保护域中的虚拟
方法的情况。这是一个重要的技巧，因为你可以定制派生类的虚拟方法，来修改对象的动作
。


规则20：用于属性的虚拟方法（Virtual Methods For Properties）
       即使是访问属性的方法也能定义成virtual，这样派生类就能改变属性的动作而不必重
定义他们。虽然这种方法在VCL当中很少使用，但是它确实十分灵活、强大。为了实现这一点
，仅仅需要将Rule 11当中的Get 和Set 方法定义成Virtual。基类的代码如下所示：

type
   TformDialog = class ( TForm)
           Procedure FormCreate(Sender:Tobject);
   Private
           Edit1:Tedit;
   Protected
           function GetText:String;virtual;
           procedure SetText(const Value:String);virtual;
   public
          constructor Create(Text :String):reintroduce;overload;
          property Text:String read GetText write SetText;
   end;
  

        在继承窗体中，你可以添加一些额外的动作来重载虚拟方法SetText：
   procedure TformInherit.SetText(const Value:String);
begin
        inherited SetText(Value);
        if Value=’’ then
              Button1.Enabled:=False;
       end;



小结
         要做到一个好的Delphi面向对象编程程序员远非我在上面提到的这些规则这么简单
。上面的这20条规则中有一些可能需要足够的耐性和时间来实现，因此，我也不能强求你能
遵循所有的这些规则。但是这些规则应该被合适的运用到你的程序中，而且当你开发的应用
程序越大，参与的程序员越多，这些规则越重要。不过，即使是一些小程序，始终记住这些
规则并在合适的地方使用他们也会对你有所帮助。
        当然，还有很多其他的经验规则我没有涉及到，特别是存储器处理和RTTI问题，因为
他们十分的复杂，需要专门的说明。
        我的结论是要遵循我上面列出的规则会付出一定的代价，特别是额外的代码，但是这
些代价会让你得到一个更加灵活强壮的程序。希望Delphi的后续版本能够帮组我们减少这些代价。

用Delphi编写Win2000服务程序

一、Win2000服务简介

　　服务程序（Service Application）是一种运行于WinNT的后台程序，每个服务程序（Service Application）中可能包含若干个服务（Service），每个服务就是其中的一个线程（该服务也可以创建多个子线程）。

采用服务，应用程序可以获得特殊的权限，而且不会被用户通过Win2000的任务管理器直接结束程序，所以服务常常用来实现一些特殊的目标。

　　通过Win2000控制面板中的服务管理工具，我们可以设置/查看服务的特性：

　　（1）服务名称；（2）显示名称；（3）描述；（4）启动类型；（5）依赖关系；

　　其中，服务名称是标识给服务的。

　　以Win2000的C:\WINNT\System32\services.exe程序为例子，该Exe文件对应一个Service Application，是该服务程序的可见实体；该exe中包含多个服务（Service），例如Alerter，Dhcp（DHCP Client），Messenger等。当我们结束一个服务的时候，该服务所在的Service Application中的其他服务并没有被终止。

　　在Delphi中，Borland的工程师为我们提供了TServiceApplication，TService，TServiceThread等类，封装了大量细节，简化了服务程序的开发。

二、TServiceApplication

　　在Delphi中，类TServiceApplication就对应上述的ServiceApplication。利用Delphi的开发环境，我们新建一个Service Application Project，同时就创建了一个继承自TService的类。项目文件中的Application对象就是一个TServiceApplication实例。每个TServiceApplication包含若干个TService对象，正好对应上述的服务程序和服务之间的数量关系。

　　通过阅读TServiceApplication和TService类的定义，可以得知，TServiceApplication从TComponent类继承而来，TService从类TDataModule基础而来，Application对象负责各个TService对象的Create和Destroy。跟踪下列代码

　　Application.CreateForm(TService1, Service1);

　　可以发现创建的TService对象的Owner都是Application对象；在VCL FrameWork中Owner总是负责Destroy各个Component对象（VCL的TComponent类采用了Composite模式），所以TServiceApplication也将Destroy各个TService对象。

下面跟踪TServiceApplication.Run的代码，可以发现TServiceApplication首先解析运行参数，实现了服务的Install和Uninstall。

然后，初始化一个ServiceStartTable数组，该数组包含了各个service对象的服务名称和运行入口；最后创建一个TServiceStartThread 对象，该对象是一个线程对象，从线程调用API：StartServiceCtrlDispatcher来启动ServiceStartTable中指定的若干个服务；而ServiceApplication主线程就不断循环，处理消息，比如接收请求来停止/暂停某个服务。

三、TService

　　TService类继承自类 TDataModule，这意味着我们可以加入大量的VCL控件，实现丰富的功能。此外，我们还可以处理OnStart，OnPause，OnStop，OnContinue，OnCreate，OnShutDown等事件。其中需要说明的是：OnStop表示该服务被停止；而OnShutDown表示该ServiceApplication停止运行，这意味着其他服务也被终止了；两者含义是不一样的。

　　前面讲过，ServiceApplication通过调用StartServiceCtrlDispatcher来启动各个服务。StartServiceCtrlDispatcher启动TService的入口，该入库就是TService.Main。TService.Main首先注册该服务，然后调用TService.DoStart。TService.DoStart创建一个内部TServiceThread成员对象，这是一个线程对象；考察TServiceThread.Execute可以得知，当我们处理的TService1. OnExecute，那么TService会把所有的请求委托给该TServiceThread成员对象处理，该对象以默认的方式处理所有的请求。

　　TService. ServiceExecute是TService的主体内容。一个服务要正常运行，除了需要处理它要关注的目标（比如监听某个端口、执行某个任务等）外，还要响应外部命令/请求：比如终止、暂停、恢复该服务。因此可以考虑创建一个专门的线程来完成该任务，而在ServiceExecute中处理外面命令/请求。因此代码如下：

        while not Terminated do begin

               ServiceThread.ProcessRequests(False);

        end;

　　当然，也可以在OnExecute中处理某些任务，如监听某个端口，但是这常常会导致该Service不能及时响应Stop/Pause等请求。当OnExecute执行完了，该服务实际上就完成了任务要结束了（terminate）。

测试string 类型和 pchar 的区别

注意:

procedure    GetMem(var    P:    Pointer;    Size:    Integer);   
    
   //分配动态内存   
    
   function    StrPas(const    Str:    PChar):    string;   
    
   //将PChar转换为String

Delphi中的字符串

用DelphI 很久了，但Delphi中的字符串还是要琢磨一番的.
Delphi中的字符串
一：各种字符串
　　字符串是Object Pascal所有数据类型中最有用的类型。许多函数以字符串为传递参数。由于在Delphi中字符串的定义和使用有各种方式，包括Pascal中典型的字符串（String），Delphi支持的长字符串（ANSIString），类似于C语言的字符数组（Array of Char），指向字符的指针(Pchar)等。下面的文章就跟谈谈这些类型在定义和应用中的区别和注意事项。

1． 传统的Pascal字符串
　　在Pascal中，典型的字符串是一定长度的字符序列。每一字符串有一设定的长度（缺省值为255），下面是一个例子：
Var
Address:String;
Code:String[50];
Address是一长度为255的字符串，Code的最大长度为50。
传统的Pascal字符串长度不能超过255。
可以用字符串连接操作"+"把字符串连接在一起：
Result:=String1+String2;

2． Delphi中的长字符串
　　Delphi除了支持传统的Pascal短字符串还支持长字符串。长字符称为ANSIString。长字符串动态分配内存，即用字符串时才分配字符串所需内存，所以其长度不受限制。在Delphi中你如果用String1:String作类型说明，则String1既可能是短字符串也可能是长字符串，这取决于编译器中$H开关的设置。默认值为$H+，代表ANSI长字符串，VCL中的组件使用ANSI长字符串。长字符串以null结束，这就说明长字符串与C语言中的以null结束的字符串完全兼容。
可以通过SetLength函数设置字符串的最大长度：
SetLength(String1,100);用TrimLeft,TrimRight和Trim函数分别来消除字符串开头，结尾和首尾的空白区。

3． 类似于C的字符数组
　　可以用以0为起点的数组来存储以null结束的字符串。如下定义：
Var
Name:Array[0..50] of Char;

4． Pchar指针
　　如果Delphi中的Exended Syntax 已经设置（缺省值），以0为起点的字符数组就和指向字符的指针Pchar完全兼容，因为以0为起点的字符数组名即指向该字符数组首字符的指针。可以将字符串直接付值给Pchar指针。例如：
var
P: PChar;
begin
P := 'Hello world';
end;
　　这样P就指向存储字符串'Hello world'并以null结束的一块内存。
许多Windows的应用程序接口API函数要求用Pchar类型作参数。Pchar指针在使用是首先用GetMem(var P: Pointer; Size: Integer)函数申请分配内存，程序结束时用FreeMem(var P: Pointer[; Size: Integer])函数释放内存。例如：
Var WinDir,SysDir:Pchar;
Begin
GetMem(WinDir,256);{为指针分配内存}
GetWindowsDirectory(WinDir,128);{将Windows安装目录放至WinDir}
ShowMessage('Windows directory is'+WinDir);{显示结果}
End;

二：字符串转换
　　以上介绍了Delphi中的四类字符串的定义和使用。由于各类函数对字符串参数类型要求不一，这就需要进行字符串类型转换。

1． 可以用StrPas将以null结束的字符串转换为Pascal短字符串。StrpCopy则完成相反的转换。

2． 因为长字符串以null结束，所以可以用强制类型转换将长字符串转换成Pchar类型。用法是：Pchar(s),s是一个长字符串。强制类型转换返回一个指向长字符串首字符的指针，并且所指字符串以null 结束。例如：
Var
Caption,Message:string;
Caption:='Hello World!';
Mssage:='This is a test of long string';
MessageBox(0,Pchar(Message),Pchar(Caption),MB_OK);
小结：在使用Delphi中的字符串时，要时刻清楚该字符串的类型，以免引起混淆。在理解字符串时要把字符串与指针，内存分配联系起来，加强理解。

ADO 方式下判断数据表是否存在

下面构造两个可重载的函数，用于在ADO方式下判断数据库的数据表是否存在。

函数一：
// ------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
Function   TableExist( pAdoCmd: TADOCOMMAND; pcTable : string ) : boolean ; overload ;
var cError : string ;
begin
   ADO_COMMAND_EXEC( pAdoCmd, 'Select top 1 from ' + pcTable , cError );
   result := ( cError = '' );
end ;

函数二：
// ------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
Function   TableExist( pConn:TADOConnection; pcTable : string ) : boolean ; overload ;
var tmpFldList : TStrings ;
     nLoop : integer ;
begin
   Result := False ;
   tmpFldList := TStringList.Create ;
   pConn.GetTableNames( tmpFldList, True ); // 包含系统表
   for nLoop := 0 to tmpFldList.Count - 1 do
   begin
       if uppercase( tmpFldList[nLoop] ) = uppercase( pcTable ) then
       begin
          Result := True ;
          break ;
       end;
   end;
   tmpFldList.Free ;
end;

如何访问一个进程的内存空间

在WIN32中，每个应用程序都可“看见”4GB的线性地址空间，其中最开始的4MB和最后的2GB由操作系统保留，剩下不足2GB的空间用于应用程序私有空间。具体分配如下：0xFFFFFFFF-0xC0000000的1GB用于VxD、存储器管理和文件系统；0xBFFFFFFF-0x80000000的1GB用于共享的WIN32 DLL、存储器映射文件和共享存储区；0x7FFFFFFF-0x00400000为每个进程的WIN32专用地址；0x003FFFFF-0x00001000为MS-DOS 和 WIN16应用程序；0x00000FFF-0x00000000为防止使用空指针的4,096字节。以上都是指逻辑地址，也就是虚拟内存。

---- 虚拟内存通常是由固定大小的块来实现的，在WIN32中这些块称为“页”，每页大小为4,096字节。在Intel CPU结构中，通过在一个控制寄存器中设置一位来启用分页。启用分页时CPU并不能直接访问内存，对每个地址要经过一个映射进程，通过一系列称作“页表”的查找表把虚拟内存地址映射成实际内存地址。通过使用硬件地址映射和页表WIN32可使虚拟内存即有好的性能而且还提供保护。利用处理器的页映射能力，操作系统为每个进程提供独立的从逻辑地址到物理地址的映射，使每个进程的地址空间对另一个进程完全不可见。WIN32中也提供了一些访问进程内存空间的函数，但使用时要谨慎，一不小心就有可能破坏被访问的进程。本文介绍如何读另一个进程的内存，写内存与之相似，完善一下你也可以做个 FPE 之类的内存修改工具。好吧，先准备好编程利器Delphi 和参考手 册 MSDN ，Now begin!

ReadProcessMemory 读另一个进程的内存，原形如下：BOOL ReadProcessMemory(HANDLE hProcess,          // 被读取进程的句柄；LPCVOID lpBaseAddress,       // 读的起始地址；LPVOID lpBuffer,          // 存放读取数据缓冲区；DWORD nSize,          // 一次读取的字节数；LPDWORD lpNumberOfBytesRead // 实际读取的字节数；);hProcess 进程句柄可由OpenProcess 函数得到，原形如下：HANDLE OpenProcess(DWORD dwDesiredAccess, // 访问标志；BOOL bInheritHandle,    // 继承标志；DWORD dwProcessId       // 进程ID；);

---- 当然，用完别忘了用 CloseHandle 关闭打开的句柄。读另一个进程的内存 dwDesiredAccess 须指定为 PROCESS_VM_READ ，写另一个进程的内存 dwDesiredAccess 须指定为 PROCESS_VM_WRITE ，继承标志无所谓，进程ID可由 Process32First 和 Process32Next 得到，这两个函数可以枚举出所有开启的进程，这样进程的信息也就得到了。 Process32First 和 Process32Next是由 TLHelp32 单元提供的，需在 uses 里加上TLHelp32。ToolsHelp32 封装了一些访问堆、线程、进程等 的函数，只适用于Win9x，原形如下：

BOOL WINAPI Process32First(HANDLE hSnapshot       //由 CreateToolhelp32Snapshot 返回的系统快照句柄；LPPROCESSENTRY32 lppe // 指向一个 PROCESSENTRY32 结构；)；BOOL WINAPI Process32Next(HANDLE hSnapshot       // 由 CreateToolhelp32Snapshot 返回的系统快照句柄；LPPROCESSENTRY32 lppe // 指向一个 PROCESSENTRY32 结构；)；hSnapshot 由 CreateToolhelp32Snapshot 返回的系统快照句柄；CreateToolhelp32Snapshot 原形如下：HANDLE WINAPI CreateToolhelp32Snapshot(DWORD dwFlags,       // 快照标志；DWORD th32ProcessID // 进程ID；);现在需要的是进程的信息，所以将 dwFlags指定为 TH32CS_SNAPPROCESS，th32ProcessID 忽略；PROCESSENTRY32 结构如下：typedef struct tagPROCESSENTRY32 {DWORD dwSize;              // 结构大小；DWORD cntUsage;            // 此进程的引用计数；DWORD th32ProcessID;       // 进程ID;DWORD th32DefaultHeapID;   // 进程默认堆ID；DWORD th32ModuleID;        // 进程模块ID；DWORD cntThreads;          // 此进程开启的线程计数；DWORD th32ParentProcessID;// 父进程ID；LONG   pcPriClassBase;      // 线程优先权；DWORD dwFlags;             // 保留；char szExeFile[MAX_PATH]; // 进程全名；} PROCESSENTRY32;

---- 至此，所用到的主要函数已介绍完,实现读内存只要从下到上依次调用上述函数即可，具体参见原代码：

procedure TForm1.Button1Click(Sender: TObject);varFSnapshotHandle:THandle;FProcessEntry32:TProcessEntry32;Ret : BOOL;ProcessID : integer;ProcessHndle : THandle;lpBuffer:pByte;nSize: DWORD;lpNumberOfBytesRead: DWORD;i:integer;s:string;beginFSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);//创建系统快照FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);//先初始化 FProcessEntry32 的大小Ret:=Process32First(FSnapshotHandle,FProcessEntry32);while Ret dobegins:=ExtractFileName(FProcessEntry32.szExeFile);if s='KERNEL32.DLL' thenbeginProcessID:=FProcessEntry32.th32ProcessID;s:='';break;end;Ret:=Process32Next(FSnapshotHandle,FProcessEntry32);end;//循环枚举出系统开启的所有进程，找出“Kernel32.dll”CloseHandle(FSnapshotHandle);Memo1.Lines.Clear ;memo1.lines.add('Process ID '+IntToHex(FProcessEntry32.th32ProcessID,8));memo1.lines.Add('File name '+FProcessEntry32.szExeFile);////输出进程的一些信息nSize:=4;lpBuffer:=AllocMem(nSize);ProcessHndle:=OpenProcess(PROCESS_VM_READ,false,ProcessID);memo1.Lines.Add ('Process Handle '+intTohex(ProcessHndle,8));for i:=$00800001 to $0080005f dobeginReadProcessMemory(ProcessHndle,Pointer(i),lpBuffer,nSize,lpNumberOfBytesRead);s:=s+intTohex(lpBuffer^,2)+' ';//读取内容if (i mod 16) =0 thenbeginMemo1.Lines.Add(s);s:='';end;//格式化输出end;FreeMem(lpBuffer,nSize);CloseHandle(ProcessHndle);//关闭句柄，释放内存end;

---- 以上程序在 Delphi4 中文Win98 下调试通过。

该文章转载自网络大本营：http://www.xrss.cn/Dev/Delphi/200773115324.Html

总算把我做了不到2年delphi开发工程师那时候一些比较记忆深的文章和随笔从我的一个blog合并到这里面了，感谢大家的支持 呵呵，大家一起努力，GT 万岁！！！

怎样得到CPU的序列号

unit Main;

interface

uses   Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,
Forms,   Dialogs,   ExtCtrls,   StdCtrls,   Buttons;

type
TDemoForm. = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GetButton: TBitBtn;
CloseButton: TBitBtn;
Bevel1: TBevel;
Label5: TLabel;
FLabel: TLabel;
MLabel: TLabel;
PLabel: TLabel;
SLabel: TLabel;
PValue: TLabel;
FValue: TLabel;
MValue: TLabel;
SValue: TLabel;
procedure GetButtonClick(Sender: TObject);
end;

var
DemoForm. TDemoForm;

implementation

{$R *.DFM}

const
ID_BIT = $200000;   // EFLAGS ID bit
type
TCPUID = array[1..4] of Longint;
TVendor = array [0..11] of char;

function IsCPUID_Available : Boolean; register;
asm
   PUSHFD       {direct access to flags no possible, only via stack}
   POP      EAX     {flags to EAX}
   MOV      EDX,EAX   {save current flags}
  XOR      EAX,ID_BIT {not ID bit}
   PUSH     EAX     {onto stack}
   POPFD        {from stack to flags, with not ID bit}
   PUSHFD       {back to stack}
   POP      EAX     {get back to EAX}
  XOR      EAX,EDX   {check if ID bit affected}
   JZ       @exit    {no, CPUID not availavle}
   MOV      AL,True   {Result=True}
   @exit:
end;

function GetCPUID : TCPUID; assembler; register;
asm
   PUSH     EBX         {Save affected register}
   PUSH     EDI
   MOV      EDI,EAX     {@Resukt}
   MOV      EAX,1
   DW       $A20F       {CPUID Command}
   STOSD             {CPUID[1]}
   MOV      EAX,EBX
   STOSD               {CPUID[2]}
   MOV      EAX,ECX
   STOSD               {CPUID[3]}
   MOV      EAX,EDX
   STOSD               {CPUID[4]}
   POP      EDI     {Restore registers}
   POP      EBX
end;

function GetCPUVendor : TVendor; assembler; register;
asm
   PUSH     EBX     {Save affected register}
   PUSH     EDI
   MOV      EDI,EAX   {@Result (TVendor)}
   MOV      EAX,0
   DW       $A20F    {CPUID Command}
   MOV      EAX,EBX
   XCHG   EBX,ECX     {save ECX result}
   MOV    ECX,4
   @1:
   STOSB
  SHR      EAX,8
   LOOP     @1
   MOV      EAX,EDX
   MOV    ECX,4
   @2:
   STOSB
  SHR      EAX,8
   LOOP     @2
   MOV      EAX,EBX
   MOV    ECX,4
   @3:
   STOSB
  SHR      EAX,8
   LOOP     @3
   POP      EDI     {Restore registers}
   POP      EBX
end;

procedure TDemoForm.GetButtonClick(Sender: TObject);
var
CPUID : TCPUID;
I      : Integer;
S    : TVendor;
begin
  for I := Low(CPUID) to High(CPUID)  do CPUID[I] := -1;
  if IsCPUID_Available then begin
     CPUID := GetCPUID;
     Label1.Caption := 'CPUID[1] = ' + IntToHex(CPUID[1],8);
     Label2.Caption := 'CPUID[2] = ' + IntToHex(CPUID[2],8);
     Label3.Caption := 'CPUID[3] = ' + IntToHex(CPUID[3],8);
     Label4.Caption := 'CPUID[4] = ' + IntToHex(CPUID[4],8);
     PValue.Caption := IntToStr(CPUID[1] shr 12 and 3);
     FValue.Caption := IntToStr(CPUID[1] shr 8 and $f);
     MValue.Caption := IntToStr(CPUID[1] shr 4 and $f);
     SValue.Caption := IntToStr(CPUID[1] and $f);
     S := GetCPUVendor;
     Label5.Caption := 'Vendor: ' + S; end
  else begin
     Label5.Caption := 'CPUID not available';
  end;
end;

end.

用Delphi实现文件下载的几种方法

uses UrlMon;
function DownloadFile(Source, Dest: string): Boolean;
begin
  try
     Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
    except
       Result := False;
    end;
  end;
  
  if DownloadFile('http://www.borland.com/delphi6.zip, 'c:\kylix.zip') then
ShowMessage('Download succesful')
else ShowMessage('Download unsuccesful')

*************************************************************************************************

Uses URLMon, ShellApi;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;

procedure TForm1.Button1.Click(Sender: TObject);
const
// URL Location
SourceFile := 'http://www.google.com/intl/de/images/home_title.gif';
// Where to save the file
DestFile := 'c:\temp\google-image.gif';
begin
  if DownloadFile(SourceFile, DestFile) then
  begin
     ShowMessage('Download succesful!');
    // Show downloaded image in your browser
ShellExecute(Application.Handle,PChar('open'),PChar(DestFile),PChar(''),nil,SW_NORMAL)
  end
  else
   ShowMessage('Error while downloading ' + SourceFile)
end;

*************************************************************************************************

NMHTTP1.InputFileMode := ture;
NMHTTP1.Body := '本地文件名';
NMHTTP1.Header := 'Head.txt';
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
NMHTTP1.Proxy := '代理服务器的IP地址';
NMHTTP1.ProxyPort := '代理服务器的端口号';
With NMHTTP1.HeaderInfo do
  
  Begin
     Cookie := '';
     LocalMailAddress := '';
     LocalProgram := '';
     Referer := '';
     UserID := '用户名称';
     Password := '用户口令';
    End;
    
     NMHTTP1.Get(‘http://www.abcdefg.com/software/a.zip');

*************************************************************************************************

uses URLMon;

...

OleCheck(URLDownloadToFile(nil,'URL','Filename',0,nil));

*************************************************************************************************

var
DownLoadFile:TFileStream;
beginio
DownLoadFile:=TFileStream.Create('c:\aa.rar',fmCreate);
IdHTTP1.Get('http://www.sina.com.cn/download/aa.rar',DownLoadFile);
DownLoadFile.Free;
end;

*************************************************************************************************

创建具有托盘的服务程序

让TreeView前面显示CheckBox

方法一:

SetWindowLong(TreeView1.Handle, GWL_STYLE, GetWindowLong(TreeView1.Handle, GWL_STYLE) or $00000100);

方法二:

TreeView不需要图片即可实现CheckBoxes
//代码如下，至于其它点击事件的处理，应该比较简单

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CommCtrl, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
function IsNodeChecked(Node :TTreeNode) :Boolean;
public
{ Public declarations }
end;

const
TVIS_CHECKED = $2000;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if (TreeView1.Selected = nil) then Exit;

ShowMessage('Node checked? ' + BoolToStr(IsNodeChecked(TreeView1.Selected), True));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
dw: DWORD;
begin
//给TreeView加上CheckBoxes
dw := GetWindowLong( TreeView1.Handle, GWL_STYLE);
dw := dw or TVS_CHECKBOXES;
SetWindowLong(TreeView1.Handle, GWL_STYLE. , dw);
end;

procedure TForm1.Button2Click(Sender: TObject);
//设置node的check状态
procedure SetNodeChecked(Node :TTreeNode; Checked :Boolean);
var
TvItem :TTVItem;
begin
FillChar(TvItem, SizeOf(TvItem), 0);
with TvItem do begin
hItem := Node.ItemId;
Mask := TVIF_STATE;
StateMask := TVIS_STATEIMAGEMASK;
if Checked then
TvItem.State :=TVIS_CHECKED
else
TvItem.State :=TVIS_CHECKED shr 1;
TreeView_SetItem(Node.TreeView.Handle, TvItem);
end;
end;
begin
if (TreeView1.Selected = nil) then Exit;

SetNodeChecked(TreeView1.Selected, not IsNodeChecked(TreeView1.Selected));
end;

//检查Node是否Checked
function TForm1.IsNodeChecked(Node: TTreeNode): Boolean;
var
TvItem :TTVItem;
begin
TvItem.Mask := TVIF_STATE;
TvItem.hItem := Node.ItemId;
TreeView_GetItem(Node.TreeView.Handle, TvItem);
Result := (TvItem.State and TVIS_CHECKED) = TVIS_CHECKED;
end;

end.

Delphi中多线程编程的实现 http://www.ilib.cn/Abstract.aspx?A=qbzz199905010 delphi多线程编程技巧 http://www.delphi123.com/Delphi2007_About.Asp?30_1.Html

如何把文件删除到回收站中

关键词:删除文件 回收站
program del;
uses ShellApi;
{ 利用ShellApi中: function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall; }
Var T:TSHFileOpStruct;
P:String;
begin
P:='C:\Windows\System\EL_CONTROL.CPL';
With T do
Begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=Pchar(P);
fFlags:=FOF_ALLOWUNDO
End;
SHFileOperation(T);
End.

注意：
1. 给出文件的绝对路径名，否则可能不能恢复；
2. MS的文档说对于多个文件，每个文件名必须被#)字符分隔，而整个字符串必须用两个#0结束。

实现打开或运行一个指定文件

关键词:打开文件 运行文件 ShellExecute 打开网页
打开Windows已经注册的文件其实很简单，根据以下代码定义一个过程：
procedure URLink(URL:PChar);
begin
ShellExecute(0, nil, URL, nil, nil, SW_NORMAL);
end;
在要调用的地方使用
URLink('Readme.txt');
如果是链接主页的话，那么改用
URLink('http://gui.yeah.net');

查找一个目录下的某些特定的文件

关键词:搜索文件 查找文件 检索文件
方法如下：
FileSearch ：查找目录中是否存在某一特定文件
FindFirst ：在目录中查找与给定文件名（可以包含匹配符）及属性集相匹配的第一个文件
FindNext ：返回符合条件的下一个文件
FindClose ：中止一个FindFirst / FindNext序列

//参数：
//Directory : string 目录路径
//RetList : TStringList 包含了目录路径和查询到的文件

Function TForm1.FindAllFileInADirectory(Directory:string;RetList : TStringList):Boolean;
var
SearchRec: TSearchRec;
begin
   if FindFirst(Directory+'*.*', faAnyFile, SearchRec) = 0 then
   begin
     repeat
     RetList.Add(Directory +'   '+ SearchRec.Name);
     until (FindNext(SearchRec) <> 0);
   end;
   FindClose(SearchRec);
end;

Delphi中关于文件、目录操作的函数

关键词:文件、目录操作
//关于文件、目录操作
Chdir('c:\abcdir'); // 转到目录
Mkdir('dirname'); //建立目录
Rmdir('dirname'); //删除目录
GetCurrentDir; //取当前目录名，无'\'
Getdir(0,s); //取工作目录名s:='c:\abcdir';
Deletfile('abc.txt'); //删除文件
Renamefile('old.txt','new.txt'); //文件更名
ExtractFilename(filelistbox1.filename); //取文件名
ExtractFileExt(filelistbox1.filename); //取文件后缀

如何判断一个文件是不是正在被使用

关键词:文件状态
function IsFileInUse(FileName: TFileName): Boolean;
var
HFileRes: HFILE;
begin
Result := False;
if not FileExists(FileName) then Exit;
HFileRes := CreateFile(PChar(FileName),
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then
CloseHandle(HFileRes);
end;


检查文件是否为文本文件

关键词:文本文件
Function isAscii(Nomefile: String): Boolean;
const
Sett=2048;
var
i: Integer;
F: file;
a: Boolean;
TotSize, IncSize, ReadSize: Integer;
c: Array[0..Sett] of byte;
begin
If FileExists(NomeFile) then
begin
{$I-}
AssignFile(F, NomeFile);
Reset(F, 1);
TotSize:=FileSize(F);
IncSize:=0;
a:=true;
while (IncSize<TotSize) and (a=true) do
begin

ReadSize:=Sett;

If IncSize+ReadSize>TotSize then ReadSize:=TotSize-IncSize;

IncSize:=IncSize+ReadSize;

BlockRead(F, c, ReadSize);

For i := 0 to ReadSize-1 do // Iterate

If (c[i]<32) and (not (c[i] in [9, 10, 13, 26])) then a:=False;

end; // while

CloseFile(F);

{$I+}

If IOResult<>0 then Result:=False

else Result:=a;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

if isAscii(OpenDialog1.FileName) then

begin

ShowMessage('ASCII File');

end;

end;

end;


查找所有文件

关键词:查找所有文件
procedure findall(disk,path: String; var fileresult: Tstrings);
var

fpath: String;

fs: TsearchRec;

begin

fpath:=disk+path+'\*.*';

if findfirst(fpath,faAnyFile,fs)=0 then

begin

if (fs.Name<>'.')and(fs.Name<>'..') then

if (fs.Attr and faDirectory)=faDirectory then

findall(disk,path+'\'+fs.Name,fileresult)

else

fileresult.add(disk+strpas(strupper(pchar(path)))+'\'+strpas(

strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');

while findnext(fs)=0 do

begin

if (fs.Name<>'.')and(fs.Name<>'..') then

if (fs.Attr and faDirectory)=faDirectory then

findall(disk,path+'\'+fs.Name,fileresult)

else

fileresult.add(disk+strpas(strupper(pchar(path)))+'\'+str

pas(strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');

end;

end;

findclose(fs);

end;

procedure DoSearchFile(Path: string; Files: TStrings = nil);

var

Info: TSearchRec;

procedure ProcessAFile(FileName: string);

begin

if Assigned(PnlPanel) then

PnlPanel.Caption := FileName;

Label2.Caption := FileName;

end;

function IsDir: Boolean;

begin

with Info do

Result := (Name <> '.') and (Name <> '..') and ((attr and fadirectory) = fadirectory);

end;

function IsFile: Boolean;

begin

Result := not ((Info.Attr and faDirectory) = faDirectory);

end;

begin

Path := IncludeTrailingBackslash(Path);

try

if FindFirst(Path + '*.*', faAnyFile, Info) = 0 then

if IsFile then

ProcessAFile(Path + Info.Name)

else if IsDir then DoSearchFile(Path + Info.Name);

while FindNext(Info) = 0 do

begin

if IsDir then

DoSearchFile(Path + Info.Name)

else if IsFile then

ProcessAFile(Path + Info.Name);

Application.ProcessMessages;

if QuitFlag then Break;

Sleep(100);

end;

finally

FindClose(Info);

end;

end;


用DELPHI实现文件加密压缩

关键词:加密压缩、Zlib、流、资源文件
概述：
在这篇笔记中，讲述对单个文件的数据加密、数据压缩、自解压的实现。同样，也可以实现对多个文件或文件夹的压缩，只要稍加修改便可实现。

关键字：加密压缩、Zlib、流、资源文件

引　言：
在 日常中，我们一定使用过WINZIP、WINRAR这样的出名的压缩软件，就是我们开发软件过程中不免要遇到数据加密、数据压缩的问题！本文中就这一技术 问题展开探讨,同时感谢各位网友的技巧,在我每次面对问题要解决的时候,是你们辛苦地摸索出来的技巧总是让我豁然开朗,问题迎刃而解。本篇文章主要是运用 DELPH的强大的流处理方面的技巧来实现的数据加密压缩，并用于实际的软件程序开发中，将我个人的心得、开发经验写出来与大家分享。

1、 系统功能
1）、数据压缩
使用DELPHI提供的两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩。
2）、数据加密压缩
通过Delphi编程中“流”的应用实现数据加密，主要采用Tstream的两个派生类Tfilestream、Tmemorystream 来完成的；其中数据压缩部分采用1）的实现方法
3）、双击压缩文件自动关联解压
通过更改注册表的实现扩展名与程序文件的关联，主要采用Tregistry；并且，API函数SHChangeNotify实现注册效果的立即呈现。
4）、可生成自解压文件
自解压的文件实现数据压缩1）与数据加密压缩2）的自动解压；并且，通过资源文件的使用实现可执行的自解压文件与数据文件的合并，来完成数据的自解压实现。

2、 系统实现
2.1、工作原理















2.2、关键技术的讲述
（一）ZLIB
1）、基类 TCustomZlibStream：是类TCompressionStream和TDecompressionStream 类的基类，它主要有一个属性： OnProgress，在类进行压缩或解压缩的过程中会发生这个的事件 。
格式：Procedure OnProgress (Sender: TObject); dynamic;
2）、压缩类TCompressionStream：除了继承了基类的OnProgress 属性外，又增加了一个属性：CompressionRate，它的定义如下：
Property CompressionRate: Single read GetCompressionRate;
通过这个属性，可以得到压缩比。
它的几个重要的方法定义如下：
Constructor TCompressionStream.Create (CompressionLevel: TCompressionLevel; Dest: TStream);
其中：TcompressionLevel（压缩类型），它由如下几个定义：
　　　１）、 clNone ：不进行数据压缩；
　　　２）、 clFastest：进行快速压缩，牺牲压缩效率；
　　　３）、 clDefault：进行正常压缩；
　　　４）、 clMax： 进行最大化压缩，牺牲速度；
Dest：目的流，用于存放压缩过的数据。
Function TCompressionStream.Write (const Buffer; Count: Longint): Longint;
其中：Buffer：需要压缩的数据；
　　　Count: 需要压缩的数据的字节数；
函数返回写入流的字节数。
注 意：压缩类TCompressionStream的数据只能是写入的，如果试图从其内部读取数据，将发生一个"Error "异常。需要压缩的数据通过方法 Write写入流中，在写入的过程中就被压缩，并保存在由构造函数提供的内存流（TmemoryStream）中,同时触发 OnProcess 事件。
3）、 解压缩类 TDecompressionStream :和压缩类TcompressionStream相反，它的数据是只能读出的，如果试图往其内部写数据，将发生一个"Error "异常。
它的几个重要方法定义如下：
构造函数：Constructor Create(Source: TStream);
　　其中：Source 是保存着压缩数据的流；
Function Read(var Buffer; Count: Longint): Longint;
　　数据读出函数，Buffer： 存数据缓冲区；Count: 缓冲区的大小；
　　函数返回读出的字节数。数据在读出的过程中，数据被解压缩，并触发 OnProcess 事件。



（二）流
在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。
TStream类中定义的属性如下：
1）、Size:此属性以字节返回流中数据大小。
2）、Position:此属性控制流中存取指针的位置。

Tstream中定义的虚方法有四个：
1）、Read:此方法实现将数据从流中读出，返回值为实际读出的字节数，它可以小于或等于指定的值。
2）、Write:此方法实现将数据写入流中，返回值为实际写入流中的字节数。
3）、Seek:此方法实现流中读取指针的移动，返回值为移动后指针的位置。
函数原形为：Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;
参数Offset为偏移字节数,参数Origint指出Offset的实际意义，其可能的取值如下：
soFromBeginning:Offset为指针距离数据开始的位置。此时Offset必须大于或者等于零。
soFromCurrent:Offset为移动后指针与当前指针的相对位置。
soFromEnd:Offset为移动后指针距离数据结束的位置。此时Offset必须小于或者等于零。
4）、Setsize:此方法实现改变数据的大小。

另外，TStream类中还定义了几个静态方法：
1）、ReadBuffer:此方法的作用是从流中当前位置读取数据，跟上面的Read相同。
注意：当读取的数据字节数与需要读取的字节数不相同时，将产生EReadError异常。
2）、WriteBuffer:此方法的作用是在当前位置向流写入数据，跟上面的Write相同。
注意：当写入的数据字节数与需要写入的字节数不相同时，将产生EWriteError异常。
3）、CopyFrom:此方法的作用是从其它流中拷贝数据流。
函数原形为：Function CopyFrom(Source:TStream;Count:Longint):Longint;
参 数Source为提供数据的流，Count为拷贝的数据字节数。当Count大于0时，CopyFrom从Source参数的当前位置拷贝Count个字 节的数据；当Count等于0时，CopyFrom设置Source参数的Position属性为0,然后拷贝Source的所有数据；

Tstream常见派生类：
TFileStream (文件流的存取)
TStringStream (处理内存中的字符串类型数据)
TmemoryStream (对于工作的内存区域数据处理)
TBlobStream (BLOB类型字段的数据处理)
TwinSocketStream (socket的读写处理)
ToleStream (COM接口的数据处理)
TresourceStream (资源文件流的处理)
其中最常用的是TFileStream类。使用TFileStream类来存取文件，首先要建立一个实例。声明如下：
constructor Create(const Filename:string;Mode:Word);
Filename为文件名（包括路径）
Mode为打开文件的方式，它包括文件的打开模式和共享模式，其可能的取值和意义如下：
打开模式：
fmCreate :用指定的文件名建立文件，如果文件已经存在则打开它。
fmOpenRead :以只读方式打开指定文件
fmOpenWrite :以只写方式打开指定文件
fmOpenReadWrite:以写写方式打开指定文件
共享模式：
fmShareCompat :共享模式与FCBs兼容
fmShareExclusive:不允许别的程序以任何方式打开该文件
fmShareDenyWrite:不允许别的程序以写方式打开该文件
fmShareDenyRead :不允许别的程序以读方式打开该文件
fmShareDenyNone :别的程序可以以任何方式打开该文件


（三）资源文件
1）、创建资源文件
首先创建一个.Rc的纯文本文件。
格式： 资源标识符 关键字 资源文件名

资源标识符：程序中调用资源时的特殊标号；
关键字：标识资源文件类型；
Wave： 资源文件是声音文件；
RCDATA： JPEG文件；
AVI： AVI动画；
ICON： 图标文件；
BITMAP： 位图文件；
CURSOR： 光标文件；
EXEFILE ： EXE文件
资源文件名：资源文件的在磁盘上存储的文件全名

例如：
myzjy exefile zjy.exe

2）、编译资源文件
在DELPHI的安装目录的\Bin下，使用BRCC32.exe编译资源文件.RC。当然，也可以将BRCC32单独拷贝到程序文档目录使用。
例如：
Brcc32 wnhoo_reg.Rc

3）、资源文件引用
…
implementation

{$R *.dfm}
{$R wnhoo_reg.Res}
…
4）、调用资源文件
(1)存取资源文件中的位图(Bitmap)
Image.Picture.Bitmap.Handle :=LoadBitmap(hInstance,'资源标识符');
注：如果位图没有装载成功，程序仍旧执行，但是Image将不再显示图片。你可以根据LoadBitmap函数的返回值判断是否装载成功，如果装载成功返回值是非0，如果装载失败返回值是0。

另外一个存取显示位图的方法如下
Image.Picture.Bitmap.LoadFromResourceName(hInstance,'资源标识符');

(2)存取资源文件中的光标
Screen.Cursors[]是一个光标数组，使用光标文件我们可以将定制的光标加入到这个属性中。因为默认的光标在数组中索引值是0，所以除非想取代默认光标，最好将定制的光标索引值设为1。
Screen.Cursors[1] :=LoadCursor(hInstance,'资源标识符');
Image.Cursor :=1;

(3)存取资源文件中的图标
将图标放在资源文件中，可以实现动态改变应用程序图标。
Application.Icon.Handle := LoadIcon(hInstance,'资源标识符');

(4)存取资源文件中的AVI
Animate.ResName :='MyAvi' ; //资源标识符号
Animate.Active :=True ;

(5)存取资源文件中的JPEG
把jpeg单元加入到uses单元中。
var
Fjpg : TJpegImage ;
FStream :TResourceStream ;
begin
Fjpg :=TJpegImage.Create ;
//TresourceStream使用
FStream := TResourceStream.Create (Hinstance,'资源标识符',资源类型) ;
FJpg.LoadFromStream (FStream) ;
Image.Picture.Bitmap.Assign (FJpg);

(6)存取资源文件中的Wave
把MMSystem加入uses单元中
PlaySound(pchar('mywav')，Hinstance，Snd_ASync or Snd_Memory or snd_Resource) ;

(四)INI文件操作
（1） INI文件的结构：
;这是关于INI文件的注释部分
[节点]
关键字=值
...
INI文件允许有多个节点，每个节点又允许有多个关键字， “=”后面是该关键字的值（类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示）。注释以分号“;”开头。

（2） INI文件的操作
1、 在Interface的Uses节增加IniFiles；
2、 在Var变量定义部分增加一行：inifile:Tinifile;然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。
3、 打开INI文件：inifile:=Tinifile.create('tmp.ini');
4、 读取关键字的值:
a:=inifile.Readstring('节点','关键字',缺省值);// string类型
b:=inifile.Readinteger('节点','关键字',缺省值);// integer类型
c:=inifile.Readbool('节点','关键字',缺省值);// boolean类型
其中[缺省值]为该INI文件不存在该关键字时返回的缺省值。
5、 写入INI文件:
inifile.writestring('节点','关键字',变量或字符串值);
inifile.writeinteger('节点','关键字',变量或整型值);
inifile.writebool('节点','关键字',变量或True或False);
当这个INI文件的节点不存在时，上面的语句还会自动创建该INI文件。
6、 删除关键字：
inifile.DeleteKey('节点','关键字');//关键字删除
inifile.EraseSection('节点');// 节点删除
7、 节点操作：
inifile.readsection('节点',TStrings变量);//可将指定小节中的所有关键字名读取至一个字符串列表变量中；
inifile.readsections(TStrings变量);//可将INI文件中所有小节名读取至一个字符串列表变量中去。
inifile.readsectionvalues('节点',TStrings变量);//可将INI文件中指定小节的所有行（包括关键字、=、值）读取至一个字符串列表变量中去。
8、 释放：inifile.distory;或inifile.free;

(五)文件关联
uses
registry, shlobj;
//实现关联注册
procedure Tmyzip.regzzz;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('.zzz', true);
reg.WriteString('', 'myzip');
reg.CloseKey;
reg.OpenKey('myzip\shell\open\command', true);
//用于打开.zzz文件的可执行程序
reg.WriteString('', '"' + application.ExeName + '" "%1"');
reg.CloseKey;
reg.OpenKey('myzip\DefaultIcon',true);
//取当前可执行程序的图标为.zzz文件的图标
reg.WriteString('',''+application.ExeName+',0');
reg.Free;
//立即刷新
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

end;

2.3、加密压缩的实现
1、 生成INI临时加密文件
用于加密的INI的临时文件格式：
[FILE1]//节点，在软件中使用FILE1..N可以实现多文件加密
FILENAME=压缩文件名
PASSWORD=解压密码
FILESIZE=文件大小
FILEDATE=创建日期
ISJM=解压是否需要密码
如果是实现多文件、文件夹的信息存储，可以将密码关键字存在一个总的节点下。本文中仅是实现对单个文件的加密，所以只要上述格式就可以了。
2、 将数据文件与用于加密的INI文件的合并，这可以采用文件流的形式实现。
加密后文件结构图：
图（1）

图（2）


上面两种形式，可以根据实际采用。本文采用图（1）的结构。
3、 对于加密后的数据，采用ZLIB技术实现压缩存储，生成新压缩形式的文件。

2.4、文件关联的实现 见2.2 (五)

2.5、自解压的实现
1． 建立一个专门用来自解压的可执行程序文件
2． 将1中建立的文件，生成资源文件
3． 将资源文件放到本文中这个压缩工具的程序中一起编译。
4． 通过将资源文件与压缩文件的合并，生成自解压文件。
自解压文件结构图：


5．自解压实现：通过将自身文件中的加密压缩数据的分解，然后对分解的加密压缩数据再一次解压并分解出真正的数据文件。

2.6 系统程序设计


这是关于这个软件实现的核心部分全部代码，在这里详细讲述这个软件所有的技术细节。
// wnhoo_zzz.pas

unit wnhoo_zzz;
interface

uses
Windows,Forms,SysUtils,Classes,zlib,Registry,INIFILES, Dialogs, shlobj;
type
pass=string[20];
type
Tmyzip = class

private
{ private declarations here}
protected
{ protected declarations here }
public
procedure regzzz;
procedure ys_file(infileName, outfileName: string;password:pass;isjm:boolean;ysbz:integer);
function jy_file(infileName: string;password:pass=''):boolean;
procedure zjywj(var filename:string);
constructor Create;
destructor Destroy; override;
{ public declarations here }
published
{ published declarations here }
end;

implementation

constructor Tmyzip.Create;
begin
inherited Create; // 初始化继承下来的部分
end;

//#####################################################
//原文件加密
procedure jm_File(vfile:string;var Target:TMemoryStream;password:pass;isjm:boolean);
{
vfile:加密文件
target:加密后输出目标流 》》》
password:密码
isjm:是否加密
-------------------------------------------------------------
加密后文件SIZE＝原文件SIZE＋[INI加密压缩信息文件]的SIZE＋存储[INI加密压缩信息文件]的大小数据类型的SIZE
---------------------------------------------------------------
}
var

tmpstream,inistream:TFileStream;
FileSize:integer;
inifile:TINIFILE;
filename:string;
begin
//打开需要 [加密压缩文件]
tmpstream:=TFileStream.Create(vFile,fmOpenread or fmShareExclusive);
try
//向 [临时加密压缩文件流] 尾部写入 [原文件流]
Target.Seek(0,soFromEnd);
Target.CopyFrom(tmpstream,0);
//取得文件路径 ，生成 [INI加密压缩信息文件]
filename:=ExtractFilePath(paramstr(0))+'tmp.in_';
inifile:=TInifile.Create(filename);
inifile.WriteString('file1','filename',ExtractFileName(vFile));
inifile.WriteString('file1','password',password);
inifile.WriteInteger('file1','filesize',Target.Size);
inifile.WriteDateTime('file1','fileDate',now());
inifile.WriteBool('file1','isjm',isjm);
inifile.Free ;
//读入 [INI加密压缩信息文件流]
inistream:=TFileStream.Create(filename,fmOpenread or fmShareExclusive);
try
//继续在 [临时加密压缩文件流] 尾部加入 [INI加密压缩信息文件]
inistream.Position :=0;
Target.Seek(0,sofromend);
Target.CopyFrom(inistream,0);
//计算当前 [INI加密压缩信息文件] 的大小
FileSize:=inistream.Size ;
//继续在 [临时加密文件尾部] 加入 [INI加密压缩信息文件] 的SIZE信息
Target.WriteBuffer(FileSize,sizeof(FileSize));
finally
inistream.Free ;
deletefile(filename);
end;
finally
tmpstream.Free;
end;


end;

//**************************************************************

//流压缩
procedure ys_stream(instream, outStream: TStream;ysbz:integer);
{
instream： 待压缩的已加密文件流
outStream 压缩后输出文件流
ysbz:压缩标准
}
var
ys: TCompressionStream;
begin
//流指针指向头部
inStream.Position := 0;
//压缩标准的选择
case ysbz of
1: ys := TCompressionStream.Create(clnone,OutStream);//不压缩
2: ys := TCompressionStream.Create(clFastest,OutStream);//快速压缩
3: ys := TCompressionStream.Create(cldefault,OutStream);//标准压缩
4: ys := TCompressionStream.Create(clmax,OutStream); //最大压缩
else

ys := TCompressionStream.Create(clFastest,OutStream);
end;

try
//压缩流
ys.CopyFrom(inStream, 0);
finally
ys.Free;
end;
end;

//*****************************************************************


//流解压
procedure jy_Stream(instream, outStream: TStream);
{
instream :原压缩流文件
outStream：解压后流文件
}
var
jyl: TDeCompressionStream;
buf: array[1..512] of byte;
sjread: integer;
begin
inStream.Position := 0;
jyl := TDeCompressionStream.Create(inStream);
try
repeat
//读入实际大小
sjRead := jyl.Read(buf, sizeof(buf));
if sjread > 0 then
OutStream.Write(buf, sjRead);
until (sjRead = 0);
finally
jyl.Free;
end;
end;


//**************************************************************

//实现关联注册
procedure Tmyzip.regzzz;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('.zzz', true);
reg.WriteString('', 'myzip');
reg.CloseKey;
reg.OpenKey('myzip\shell\open\command', true);
//用于打开.zzz文件的可执行程序
reg.WriteString('', '"' + application.ExeName + '" "%1"');
reg.CloseKey;
reg.OpenKey('myzip\DefaultIcon',true);
//取当前可执行程序的图标为.zzz文件的图标
reg.WriteString('',''+application.ExeName+',0');
reg.Free;
//立即刷新
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

end;

//压缩文件
procedure Tmyzip.ys_file(infileName, outfileName: string;password:pass;isjm:boolean;ysbz:integer);
{
infileName：//需要压缩加密的文件
outfileName：//压缩加密后产生的文件
password：//解压密码
ysbz：//压缩标准
}
var
instream:TMemoryStream; //文件加密后的临时流
outStream: TFileStream; //压缩输出文件流

begin
//创建 [文件加密后的临时流]
instream:=TMemoryStream.Create;
//文件加密
jm_file(infileName,instream,password,isjm);
//创建压缩输出文件流
outStream := TFileStream.create(outFIleName, fmCreate);
try
//[文件加密后的临时流] 压缩
ys_stream(instream,OutStream,ysbz);
finally
OutStream.free;
instream.Free ;
end;
end;

//解压文件
function Tmyzip.jy_file(infileName: string;password:pass=''):boolean;
var
inStream,inistream,filestream_ok: TFileStream;
{
instream://解压文件名称
inistream://INI临时文件流
filestream_ok://解压OK的文件
}
outStream:tmemorystream; //临时内存流
inifile:TINIFILE; //临时INI文件
FileSize:integer; //密码文件的SIZE
resultvalue:boolean;//返回值

begin

try
inStream := TFileStream.create(inFIleName, fmOpenRead);

try
outStream := tmemorystream.create;
try
jy_stream(insTream,OutStream);
//生成临时INI文件
inistream:=TFileStream.create(ExtractFilePath(paramstr(0))+'tmp.in_', fmCreate);
try
//指向存储解码信息的INTEGER型变量位置
OutStream.Seek(-sizeof(FileSize),sofromend);
//读入变量信息
OutStream.ReadBuffer(FileSize,sizeof(FileSize));
//指向解码信息位置
OutStream.Seek(-(FileSize+sizeof(FileSize)),sofromend);
//将解码信息读入INI流中
inistream.CopyFrom(OutStream,FileSize);
//释放INI文件流
inistream.Free ;
//读入INI文件信息
inifile:=TINIFILE.Create(ExtractFilePath(paramstr(0))+'tmp.in_');
resultvalue:=inifile.ReadBool('file1','isjm',false);
if resultvalue then
begin
if inifile.ReadString ('file1','password','')=trim(password) then
resultvalue:=true
else
resultvalue:=false;
end
else
resultvalue:=true;

if resultvalue then
begin

filestream_ok:=TFileStream.create(ExtractFilePath(paramstr(1))+inifile.ReadString('file1','filename','wnhoo.zzz'),fmCreate);
try
OutStream.Position :=0;
filestream_ok.CopyFrom(OutStream,inifile.ReadInteger('file1','filesize',0));
finally
filestream_ok.Free ;
end;

end;


inifile.Free;
finally
//删除临时INI文件
deletefile(ExtractFilePath(paramstr(0))+'tmp.in_');
end;
//
finally
OutStream.free;
end;
finally
inStream.free;
end;
except
resultvalue:=false ;

end;
result:=resultvalue;
end;



//自解压创建
procedure tmyzip.zjywj(var filename:string);
var
myRes: TResourceStream;//临时存放自解压EXE文件
myfile:tfilestream;//原文件流
xfilename:string;//临时文件名称
file_ok:tmemorystream; //生成文件的内存流
filesize:integer; //原文件大小
begin
if FileExists(filename) then
begin
//创建内存流
file_ok:=tmemorystream.Create ;
//释放资源文件-- 自解压EXE文件
myRes := TResourceStream.Create(Hinstance, 'myzjy', Pchar('exefile'));
//将原文件读入内存
myfile:=tfilestream.Create(filename,fmOpenRead);
try

myres.Position:=0;
file_ok.CopyFrom(myres,0);
file_ok.Seek(0,sofromend);
myfile.Position:=0;
file_ok.CopyFrom(myfile,0);
file_ok.Seek(0,sofromend);
filesize:=myfile.Size;
file_ok.WriteBuffer(filesize,sizeof(filesize));
file_ok.Position:=0;
xfilename:=ChangeFileExt(filename,'.exe') ;
file_ok.SaveToFile(xfilename);

finally
myfile.Free ;
myres.Free ;
file_ok.Free ;

end;
DeleteFile(filename);
filename:=xfilename;

end;
end;

//#####################################################

destructor Tmyzip.Destroy;
begin

inherited Destroy;
end;
end.

3 、结束语
Delphi 的全新可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具。对于程序开发人员来讲，使用Delphi开发应用软件，无疑会大大 地提高编程效率。在delphi中可以很方便的利用流实现文件处理、动态内存处理、网络数据处理等多种数据形式，写起程序也会大大提高效率的。

参考文献：
1、DELPHI系统帮助
2、冯志强. Delphi 中压缩流和解压流的应用
3、陈经韬.谈Delphi编程中“流”

遍历所有硬盘的所有目录

关键词:遍历 文件夹 目录
//一个遍历所有硬盘的所有目录的实例源码:

unit Unit1;

interface

uses
Windows, Messages, FileCtrl,SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ImgList, ExtCtrls;

type
TForm1 = class(TForm)
TreeView: TTreeView;
Button3: TButton;
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
procedure CreateDirectoryTree(RootDir, RootCaption: string);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.CreateDirectoryTree(RootDir, RootCaption: string);
procedure AddSubDirToTree(RootNode: TTreeNode);
var
SearchRec: TSearchRec;
Path: string;
Found: integer;
begin
Path := PChar(RootNode.Data) + '\*.*';
Found := FindFirst(Path, faAnyFile, SearchRec);
while Found = 0 do
begin
if (SearchRec.Attr = faDirectory) and (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
AddSubDirToTree(TreeView.Items.AddChildObject(RootNode, SearchRec.Name,
PChar(PChar(RootNode.Data) + '\' + SearchRec.Name)));
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
begin
//TreeView.Items.Clear;
AddSubDirToTree(TreeView.Items.AddObject(nil, RootCaption, PChar(RootDir)));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
abc:Tstrings;
s:string;
begin
abc:=TStringlist.Create;
for i:=0 to 23 do begin
s := Chr(65+i)+':\';
// if GetDriveType(PChar(s))= DRIVE_cdrom then
if directoryexists(s) then
begin
s:=copy(s,0,2) ;
abc.Add(s);
end;
end;
for i:=0 to abc.Count-1 do
BEGIN
S:=abc.strings[i];
CreateDirectoryTree(S, '['+s+'\]');
END
end;

end.

文件或目录转换成TreeView


关键词:treeview
下面的这个函数就可以了：
procedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:

Boolean);

var

SearchRec : TSearchRec;

ItemTemp : TTreeNode;

begin

with Tree.Items do

try

BeginUpdate;

if Directory[Length(Directory)] <> ' then Directory := Directory + ';

if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then

begin

repeat

if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then

begin

if (SearchRec.Attr and faDirectory > 0) then

Root := AddChild(Root, SearchRec.Name);

ItemTemp := Root.Parent;

DirToTreeView(Tree, Directory + SearchRec.Name, Root, IncludeFiles);

Root := ItemTemp;

end

else if IncludeFiles then

if SearchRec.Name[1] <> '.' then

AddChild(Root, SearchRec.Name);

until FindNext(SearchRec) <> 0;

FindClose(SearchRec);

end;

finally

EndUpdate;

end;

end;


如何判断一目录是否共享

关键词:判断 共享目录 共享文件夹
Shell编程---如何判断一目录是否共享？

下面函数要额外引用 ShlObj, ComObj, ActiveX 单元。

function TForm1.IfFolderShared(FullFolderPath: string): Boolean;

//将TStrRet类型转换为字符串

function StrRetToString(PIDL: PItemIDList; StrRet: TStrRet; Flag:string=''): string;

var

P: PChar;

begin

case StrRet.uType of

STRRET_CSTR:

SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));

STRRET_OFFSET:

begin

P := @PIDL.mkid.abID[StrRet.uOffset - SizeOf(PIDL.mkid.cb)];

SetString(Result, P, PIDL.mkid.cb - StrRet.uOffset);

end;

STRRET_WSTR:

if Assigned(StrRet.pOleStr) then

Result := StrRet.pOleStr

else

Result := '';

end;

{ This is a hack bug fix to get around Windows Shell Controls returning

spurious "?"s in date/time detail fields }

if (Length(Result) > 1) and (Result[1] = '?') and (Result[2] in ['0'..'9']) then

Result := StringReplace(Result,'?','',[rfReplaceAll]);

end;

//返回Desktop的IShellFolder接口

function DesktopShellFolder: IShellFolder;

begin

OleCheck(SHGetDesktopFolder(Result));

end;

//返回IDList去掉第一个ItemID后的IDList

function NextPIDL(IDList: PItemIDList): PItemIDList;

begin

Result := IDList;

Inc(PChar(Result), IDList^.mkid.cb);

end;

//返回IDList的长度

function GetPIDLSize(IDList: PItemIDList): Integer;

begin

Result := 0;

if Assigned(IDList) then

begin

Result := SizeOf(IDList^.mkid.cb);

while IDList^.mkid.cb <> 0 do

begin

Result := Result + IDList^.mkid.cb;

IDList := NextPIDL(IDList);

end;

end;

end;

//取得IDList中ItemID的个数

function GetItemCount(IDList: PItemIDList): Integer;

begin

Result := 0;

while IDList^.mkid.cb <> 0 do

begin

Inc(Result);

IDList := NextPIDL(IDList);

end;

end;

//创建一ItemIDList对象

function CreatePIDL(Size: Integer): PItemIDList;

var

Malloc: IMalloc;

begin

OleCheck(SHGetMalloc(Malloc));

Result := Malloc.Alloc(Size);

if Assigned(Result) then

FillChar(Result^, Size, 0);

end;

//返回IDList的一个内存拷贝

function CopyPIDL(IDList: PItemIDList): PItemIDList;

var

Size: Integer;

begin

Size := GetPIDLSize(IDList);

Result := CreatePIDL(Size);

if Assigned(Result) then

CopyMemory(Result, IDList, Size);

end;

//返回AbsoluteID最后一个ItemID，即此对象相对于父对象的ItemID

function RelativeFromAbsolute(AbsoluteID: PItemIDList): PItemIDList;

begin

Result := AbsoluteID;

while GetItemCount(Result) > 1 do

Result := NextPIDL(Result);

Result := CopyPIDL(Result);

end;

//将IDList的最后一个ItemID去掉，即得到IDList的父对象的ItemID

procedure StripLastID(IDList: PItemIDList);

var

MarkerID: PItemIDList;

begin

MarkerID := IDList;

if Assigned(IDList) then

begin

while IDList.mkid.cb <> 0 do

begin

MarkerID := IDList;

IDList := NextPIDL(IDList);

end;

MarkerID.mkid.cb := 0;

end;

end;

//判断返回值Flag中是否包含属性Element

function IsElement(Element, Flag: Integer): Boolean;

begin

Result := Element and Flag <> 0;

end;

var

P: Pointer;

NumChars, Flags: LongWord;

ID, NewPIDL, ParentPIDL: PItemIDList;

ParentShellFolder: IShellFolder;

begin

Result := false;

NumChars := Length(FullFolderPath);

P := StringToOleStr(FullFolderPath);

//取出该目录的绝对ItemIDList

OleCheck(DesktopShellFolder.ParseDisplayName(0, nil, P, NumChars, NewPIDL, Flags));

if NewPIDL <> nil then

begin

ParentPIDL := CopyPIDL(NewPIDL);

StripLastID(ParentPIDL); //得到该目录上一级目录的ItemIDList

ID := RelativeFromAbsolute(NewPIDL); //得到该目录相对于上一级目录的ItemIDList

//取得该目录上一级目录的IShellFolder接口

OleCheck(DesktopShellFolder.BindToObject(ParentPIDL, nil, IID_IShellFolder,

Pointer(ParentShellFolder)));

if ParentShellFolder <> nil then

begin

Flags := SFGAO_SHARE;

//取得该目录的属性

OleCheck(ParentShellFolder.GetAttributesOf(1, ID, Flags));

if IsElement(SFGAO_SHARE, Flags) then Result := true;

end;

end;

end;

此函数的用法：

//传进的参数为一目录的全路经

if IfFolderShared('C:Documents') then showmessage('shared')

else showmessage('not shared');

另 外，有一函数 SHBindToParent 可以直接取得此目录的上一级目录的IShellFolder接口和此目录相对于上一级目录的ItemIDList，这样一来就省去了上面多个对 ItemIDList进行操作的函数（这些函数从delphi6的TShellTreeView所在的单元拷贝而来），但是此函数为新加入的API，只在 win2000、winxp和winme下可以使用（这么有用的函数微软怎么就没早点想出来呢 ？）


delphi 搜索指定目录下的文件 源码

修改FindFirst(Directory+'\*.*', $0000003F, SearchRec) = 0 中的

"\*.*"部分即可找到你所需要的特定文件

例如:\*.txt     表示搜索搜索指定目录下的txt文件

通过API函数得到操作系统类型

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

type
   TForm1 = class(TForm)
     Label1: TLabel;
     Edit1: TEdit;
     Memo1: TMemo;
     Label2: TLabel;
     Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }

     Function FindAllFileInADirectory(Directory:string;RetList : TStringList): TStringList;
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Text:='';
end;

Function TForm1.FindAllFileInADirectory(Directory:string;RetList:TStringList): TStringList;
var
SearchRec: TSearchRec;
begin
   if FindFirst(Directory+'\*.*', $0000003F, SearchRec) = 0 then
   begin
     repeat
     RetList.Add(Directory +'\'+ SearchRec.Name);
     until (FindNext(SearchRec) <> 0);
   end;
   FindClose(SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
TempList:TStringList;
begin
TempList:=TStringList.Create;
TempList:=FindAllFileInADirectory(Edit1.text,TempList);
memo1.Lines.Clear;
memo1.Lines.Assign(TempList);
TempList.clear;
end;

end.      //end unit

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, CommDlg;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TOSVersion = (osUnknown, os95, os95OSR2, os98, os98SE, osNT3, osNT4, os2K, osME, osXP);

var
Form1: TForm1;

implementation

{$R *.DFM}

function GetOS :TOSVersion;
var
OS :TOSVersionInfo;
begin
   ZeroMemory(@OS,SizeOf(OS));
   OS.dwOSVersionInfoSize:=SizeOf(OS);
   GetVersionEx(OS);
   Result:=osUnknown;
  if OS.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
    case OS.dwMajorVersion of
     3: Result:=osNT3;
     4: Result:=osNT4;
     5: Result:=os2K;
  end;
  if (OS.dwMajorVersion=5) and (OS.dwMinorVersion=1) then
   Result:=osXP;
end else begin
  if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=0) then begin
     Result:=os95;
    if (Trim(OS.szCSDVersion)='B') then
     Result:=os95OSR2;
  end else
  if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=10) then begin
     Result:=os98;
    if (Trim(OS.szCSDVersion)='A') then
     Result:=os98SE;
  end else
  if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=90) then
   Result:=osME;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
os:TosVersion;
osVersion:string;
begin
   os:=Getos;
  case OS of
   os95, os95OSR2: OSVersion:='Windows 95';
   os98: OSVersion:='Windows 98';
   os98SE: OSVersion:='Windows 98 第二版';
   osME: OSVersion:='Windows Millenium Edition';
   osNT3, osNT4: OSVersion:='Windows NT';
   os2K: OSVersion:='Windows 2000';
   osXP: OSVersion:='Windows XP';
end;
showmessage(osversion);
end;

end.