About Delphi Programming 中文版: 2007

2007-05-07

“Powered By Delphi” Logo 图像

以下是一些“Powered By Delphi”LOGO图像。您可以将这些图片放到你的网站、应用程序Splash屏、关于对话框、帮助、文档等你认为合适的地方。

原文名称："Powered by Delphi" Logo Images
原文日期：2005-05-24
原文地址：http://delphi.about.com/library/weekly/aa052405a.htm

2007-04-30

最近正在升级一个程序，使其支持多数据库。
原来的程序数据库为SQL Server，所以使用SQL Server 的“导入和导出数据”功能将一个 SQL Server 数据库转换成了Access数据库，但其中发现了一些问题，但也找到了解决方案，一并记录于此：

1、转换程序会将SQL Server的视图转换成表，而不是Access的查询；
2、在为字段设置默认值为空字符的时候，SQL Server用''，而Access用""；
3、Access中没有GetDate()函数，应该使用Now()函数代替；
4、Access没有SQL Server用来获取客户端机器名的host_name()函数；
5、Access中没有Case When Then语句，但可以用IIF()函数模拟实现功能；
6、发现：Access使用的是Visual Basic的语言结构和函数；
7、转换程序会正确转换SQL Server字段的 IS NULL 属性；
8、Access也支持多字段的索引，只是设置方法有点特别（参见帮助）；
9、SQL Server中bit型的1、0值，在Access中为True和False；
10、在Access中使用多个LEFT JOIN这样的语句时，必须用括号做相关的界定；
11、Access的SQL没有注释语句，SQL Server的/**/无法通用；
12、一条Insert语句在Access查询中正常运行，但在程序中出现“Insert Into 语句的语法错误”，后来发现原来是语句中的一个列名是Access的关键字（用［］界定可解决问题），但奇怪的是将该语句放置到Access的查询中执行却不会出错。

需要对转换后的Access数据库进行以下项目的检查，以确保与SQL Server一致:

1、主键。转换后的Access数据库都没有主键，需自己设置；
2、自增字段。转换程序会将SQL Server的自增字段转换为数字型，需手动修改为Access的“自动编号”类型；
3、默认值。转换程序不会转换SQL Server中设置的默认值，需手动设置；
4、bigint型字段。转换程序会将SQL Server的bigint转换为小数，须手动调整为Access的整型或长整型；
5、索引。转换程序不会转换索引，需手动在Access中建立索引。

在Delphi下，想让程序同时支持Access及SQL Server，需注意以下方面：

1、在Access中使用 SELECT * FROM Books WHERE RegDate = '2007-5-1' 是会出现“标准表达式中数据类型不匹配”这样的错误的（RegDate是日期型），必须使用SELECT * FROM Books WHERE RegDate = #2007-5-1# 或 SELECT * FROM Books WHERE RegDate = CDate('2007-5-1')；
但在Access中，Insert、delete和update中使用单引号界定日期却是可以正常执行的。
2、尽量不要使用SQL Server的bigint类型，尤其该字段是自增的情况下；
3、Access的varchar（文本）型最大只有255，所以如果一个文本型字段大于255时，最好定义成备注型（Access中）或text型（SQL Server中）；
4、在Access中一般会出现如下错误：不正常地定义参数对象。提供了不一致或不完整的信息。将相应Query的ParamCheck设为False即可；
5、Access中的逻辑值在库中为-1和0,而SQL Server中为1和0,所以写BoolField = 1这样的语句有兼容性问题，应该改为BoolField <> 0；
6、在Access中有主键的Query才可更新，而SQL Server无此要求。

2007-04-29

EhLib 4.1 在 Delphi 2007 下无法过滤和排序的问题

今天将一个程序升级到了 Delphi 2007，该程序是用Delphi7开发的，程序中用到了一个第三方组件EhLib。

原先的 EhLib 是v3.6，无法在Delphi2007下安装，所以安装了最新的 v4.1。

原先正常的程序，在升级后，发现 DBGridEh 无法进行排序和过滤，执行操作时无反应。后来发现，如果选择本地过滤和排序的话，一切都会正常；如果是服务器端排序和过滤，则无法正常执行，错误信息为类型转换错误。

跟踪EhLib代码发现，是DBUtilsEh.pas文件中的SetDataSetSQLLikeProp 和IsDataSetHaveSQLLikeProp 函数中的以下相关代码报错：

......
if (TObject(GetOrdProp(DataSet, FPropInfo)) as TStrings) <> nil then
SQLPropValue := (TObject(GetOrdProp(DataSet, FPropInfo)) as TStrings).Text
......

具体的类型转换错误是指TObject与TStrings转换错误，所以报错。
我用的是ADOQuery，其SQL属性在Delphi7下是TStrings类型，在Delphi2007下是TWideStrings，由TObject转换为TStrings按理说不应该转换不成功啊。

继续查看代码才发现：
TWideStrings没有继承自TStrings，而是继承自TPersistent，理论上跟TStrings没有关系，将他转换为TStrings，当然会报错了。

找到原因后，将EhLib相关出错函数的代码改为以下：

......
if TObject(GetOrdProp(DataSet, FPropInfo)) is TStrings then
SQLPropValue := (TObject(GetOrdProp(DataSet, FPropInfo)) as TStrings).Text
else if TObject(GetOrdProp(DataSet, FPropInfo)) is TWideStrings then
SQLPropValue := (TObject(GetOrdProp(DataSet, FPropInfo)) as TWideStrings).Text
else
Exit;
......

修改后，重新编译，一切正常。

附1：修改后的DBUtilsEh.pas文件；
附2：在Delphi2007中安装EhLib4.1时会报错，注释掉EhLibVCL.pas文件中的“TBytes = array of Byte”行即可正常安装（Delphi2007自己定义了TBytes）。

Delphi 2007 下安装 Shell 组件

Delphi 2007 中没有 Shell 组件，但在Delphi的lib目录存在相关的源文件，并且在C:\Windows\System32目录下存在vclshlctrls100.bpl的运行时包，唯独没有设计时包。

但在Delphi的Demo中有一个ShellControls，安装其目录下的 dclshlctrls.dpk 即可成功安装Shell组件。

注1：Shell组件安装后还是在组件面板的Sample页中；
注2：Delphi2007的Demo目录在：我的电脑－共享文档－RAD Studio－Demos－DelphiWin32－VCLWin32；

在使用Shell这样的组件时，程序编译后都会出现以下的警告：[DCC Warning] Unit1.pas(7): W1005 Unit 'ShellCtrls' is specific to a platform ，如果您不想让他显示的话，可以在你工程相关源文件的开头加上以下代码：

{$WARN UNIT_PLATFORM OFF}

2007-04-23

Delphi 2007 体验！

CodeGear(From Borland) 公司发布了最新的Delphi 2007 For Win32版本。作为一个 Delphi 的使用者，第一时间下载、安装并进行了体验，现将一些使用感受记录如下：

注：以下的对比主要是针对Delphi7与Delphi2007，以下列出的部分功能可能在Delphi8/2005/2006中已存在。

1、下载
可在CodeGear官方网站下载试用版，或在VeryCD上寻找ISO，整个安装文件约1.2G多一些。
2、安装
Delphi 2007放弃了InstallShield，采用了InstallAware安装软件，整个安装操作非常友好。在安装结束时，会提示是否在Delphi启动时自动检查更新，建议不要选择此项，因为安装完成后无法禁用。Delphi 2007在开始菜单中建立了自动检查更新的快捷方式。

3、启动
Delphi 2007的启动速度没有传说中那么快，但和Delphi7相比也差不了多少，总体感觉不错。
4、界面
Delphi 2007的界面和之前的BDS 8/2005/2006界面风格是一样的，个人感觉不是太好，因为整个IDE颜色偏暗，Visual Studio 2005那种白亮色的界面应该更好一些。Splash和Welcome Page作的还是那么粗糙，CodeGear应该尽快找个好美工啊。
5、速度
IDE启动速度还不错，IDE的反映速度也很好，尤其是程序的编译速度，个人感觉比Delphi7还快。
6、返回传统界面
习惯了Delphi7及之前版本的界面，对Delphi2007的这种一体式界面多少有些难以适应，尤其是窗体设计器。虽然可以通过更改Desktop Layout为Classic Undocked让其与Delphi7有些相像，但却失去了Delphi7的那种自由设计的效果。
在Delphi2007中，更改一个选项，可让IDE的窗体设计器返回Delphi的传统风格：Tools--Options--VCL Designer，取消选中Embedded Designer。
此选项只有在IDE重启后才会生效，生效后整个界面和Delphi7差不多，但组件面板无法达到传统界面的效果。但此设计似乎有BUG，当IDE最小化的时候，窗体设计器却没有一同最小化。
7、新增属性：Application.MainFormOnTaskBar
用Delphi2007新建一工程，然后查看工程文件的源代码，发现多一行代码：
Application.MainFormOnTaskBar := True;
Delphi2007默认已将MainForm显示于任务栏，而不是之前版本的Application。这个功能在以前很多Delphier都讨论过，现在Delphi自身支持了。设计此属性很明显，因该是为了兼容Windows Vista。
当然任务栏的右键菜单也发生了变化：

（Delphi 7 任务栏右键菜单）

（Delphi 2007 任务栏右键菜单）

8、新Project Option: Enable Runtime Themes
该工程选项默认启用，用Delphi 2007编写的程序默认将启用Themes，这是一个非常好的功能，以前必须用组件：Win32-XPManifest。
Delphi 2007 IDE本身、窗体设计器已支持操作系统Themes。
9、TeeChart升级为了TeeChart Standard 7.10
TeeChart终于升级了新版本。
10、报表组件
Delphi 2007似乎没有附带任何报表组件，QuickReport和Rave消失了。
11、DBExpress
DBExpress重大升级至v4,架构已重写，使用此技术的Delphier可以试试，本人很少使用。
12、模态窗体下的窗体闪动
在当前窗体用ShowModal显示一个模态窗体后，再次点击当前窗口，此时显示出的模态窗口会闪动，Delphi 2007编译的程序终于已能实现此效果，这也是Windows程序的标准效果。
13、Project Clean 功能
在Project Manager中右键点击工程名称，选择Clean，会自动清除工程的所有临时文件和dcu文件。
14、有用的快捷键
终于为Build Project和Run Without Dedugging功能设置了快捷键。
15、比Delphi7超强的编辑器
Delphi2007的编辑器功能强大，这也应该是放弃Delphi7的重要理由，如输入Begin，自动生成End，代码重构，语法实时检查，显示行号等。
不过Delphi2007的那个代码帮助提示信息的窗口真是太丑了。
16、窗体设计器控件感应对齐
窗体设计器中的控件可以感应对齐，相当好的功能啊。
17、中文变量名
现在的Delphi已经支持中文变量名了，你可以试试。
18、新的组件
TTrayIcon、TFlowPanel、TGridPanel三个控件非常有用。Delphi2007新增Vista Dialogs组件，这些组件效果非常好，但是基于Vista API的，所以只能在Windows Vista下使用。
19、TLabel控件可在内容超出范围时显示省略号
此功能非常实用，尤其是在Label中显示一个文件路径时，设置TLabel的EllipsisPosition属性即可。
20、新增了一些有用的属性
Delphi2007对大多数常规组件增加了一些有用的属性，如Margins、Padding、TForm.PopupMode等，仔细查看一些控件的属性列表，你就会发现很多陌生的属性，但他们确实都非常有用。

用了Delphi 2007一段时间，但也发现一些小问题：
1、在Project Manager中更改PAS文件的名称后，不自动更新uses列表中的名称，呵呵～，这个要求不知道过不过分。
2、TMainMenu组件在窗体设计器中不可预览。
3、编辑器错误提示功能会误报，如Application.MainFormOnTaskBar属性，有时会提示不存在该属性。
4、新安装的组件，不但要在Tool--Options中设置Library Path，还必须设置Browseing Path，组件才能被正常使用。

用了N年的Delphi7了，体验了Delphi2007后觉得真应该换换了，综合来看，Delphi2007是一个非常好的版本，IDE速度及功能性各方面都已经非常优秀，你准备使用Delphi2007吗？