经过几天的努力，Delphi for PHP 2.0的中文补丁终于完成了，我和范路先生这几天的痛苦也终于能有个暂缓。

大家有兴趣的话，可以下载了试试，全中文的界面还是不错的。

http://ss.codegear-cn.com/?uid-1-action-viewspace-itemid-56

这是范路先生Blog上的原帖，请移步至该帖下载

昨天拿到了Delphi2008的pre-release版，装上了尝个鲜，一夜试用下来，感觉还不错，现在发出我的体验。

首先是安装，比Delphi2007好很多，速度快了，我在虚拟机上进行了安装，耗时20分钟
包含了Delphi for win32, Delphi for .NET, C++Builder for win32三个组件。

以前的关于BDE会被取消的传言也不攻自破了，在安装时，用户可以选择是否安装BDE

打开IDE，除了启动画面之外，进去后和Delphi2007基本上一样
由于是内测版，只有很少的一些控件，大致是Standard，Additional, Win32, System, dbGO这

昨天入手了一个华硕的EPC笔记本，预装的是Linux，但是对于很多用户来说，Linux是不太习惯
于是我就尝试了在EPC上安装了XP。

由于EPC的内置内存才4G，因此必须找一个精简版的XP，我用的是Deepin Lite XP 5.10
先把下载到的iso刻成光盘，然后找一个USB光驱。
EPC没有光驱，因此必须用USB光驱来进行安装。把光驱插上以后，放入安装盘
启动机器，按F2进入Bios设置，在Advenace页中把OS Install改成Start
保存并重启机器。这个时候，可以看到光盘读入时的界面。

选择安装WindowsXP即可，接下来就是

最近和范路先生一起做Delphi for php的翻译工作
估计不久后，简体中文版的Delphi for php 2.0 就能面世了
敬请期待。

在DxDBGrid关联ClientDataSet，使用XML做数据源时，直接从ClientDataSet删除数据会产生一个 Midas.dll 的错误。
这个错误看起来完全无从下手，而且调试器也无法跟踪到它的位置，所以需要用其他的方法，间接的判断错误根源并修正它。

代码如下：
cds.RecNo := 1;
cds.Delete;

执行此句时，已出现了错误，但是错误过后，发现数据已被删掉。
我的尝试很简单，首先拖了个ApplicationEvent上去，写了下它的OnException事件
很不幸的，OnException无法接到这个异常，看起来真的像是从 Midas.dll

漫長的等待後，終於拿到了RemObjects Chrome 2.0.9.471 版本，這個版本最大的特點也許就是對Web Service的進一步支持了。
狠久以前就非常需要WSSE的功能，這次終於可以實現了。

首先，我拿到一個加了WSSE的Web Service，它是用WebLogic開發的，在調用前需要給出Security Token，這個Token包含登錄Web Service所需的用戶名和密碼。剩下的開發步驟就和C#比較類似了。

新建一個WindowsApplication，然後添加Web引用。但是在“項目”菜單中卻找不到添加的地方，不過沒有關系，你可以在解決方案管理

function ChineseCharToPinyin(w: WideString): string;
var
vGuid: TGUID;
vFELanguage: IFELanguage;
vError: Integer;
vCaps: DWORD;
vOutput: PMORRSLT;
vPinYin: WideString;
S: WideString;
I: Integer;
iMonoRubyPos: WORD;
iReadIdxWDD: WORD;
vMonoRubyPos: PWORD;
vReadIdxWDD: PWORD;
begin
Result := EmptyStr;
if CLSIDFromString(PWideChar(WideString('MSIME.China')), vGuid) <> S_OK then
 

http://www3.telus.net/pic_folder/pics/aguanta.htm

就是拖着红的方块躲过蓝条子，并且不能碰到黑色的边框
越到后来速度越快，看玩家能坚持几秒。

这个是我最后的成绩

使用TcpServer控件就可以轻松完成
代码如下：

// 设置主机和端口号
procedure TFormMain.btnSetClick(Sender: TObject);
begin
TcpServer.Active := False;
TcpServer.LocalHost := edtHost.Text;
TcpServer.LocalPort := edtPort.Text;
TcpServer.Active := True;
end;

// OnAccept事件
procedure TFormMain.TcpServer1Accept(sender: TObject;
ClientSocket: TCustomIpClient);
var
s: string;
begin
s := ClientSocket.Receiveln;

從上周開始一直在香港出差，事情太多了，摸著電腦就是在趕項目，也就一直沒有更新這裡
下周回上海後會繼續做一些研究然後寫上來，差不多也會同時放出一些照片

另外，百度Hi狠不厚道，我居然在一周內不間斷的收到上百條邀請消息，
那些消息把狠多人的提問都夾在了當中，而且我也不會花時間一頁頁的翻消息去看，只好批量刪掉
實在是怨念得狠。所以這幾天問我問題，但是我沒有回復的人請勿生氣
要怪就去怪百度Hi吧。建議大家不要用那東西