报告问题 CnDHibernate(D2009) 升级BUG - 技术板块灌水区 - CnPack Forum

新警察

UID 41050
Digest Posts 0
Credits 12
Posts 4
点点分 12
Reading Access 10
Registered 2008-10-4
Status Offline

Post at 2008-10-4 21:25 Profile | Blog | P.M.

报告问题 CnDHibernate(D2009) 升级BUG

本人在测试（Podo）时遇到 DHibernateQuery调用get取得对象时，发现所有string属性都取不到值，就跟踪一下，发现
这里有BUG:
function TCnDHibernateQuery.get(TableName: string; pkName: string; pkValue: Variant): TObject;
...
if (tk = tkString) or (tk = tkLString) or (tk = tkWString) then //Delphi2009 是 tkUString
...

修改后可以使用，其它功能暂未测到问题，估计不止这一处，请相关人员检查一下。

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline

Post at 2008-10-5 09:29 Profile | Blog | P.M.

好的谢谢报告。我们检查一下其他地方。

rarnu (橙子)

灌水部部长

UID 2689
Digest Posts 11
Credits 648
Posts 209
点点分 648
Reading Access 10
Registered 2006-10-2
Status Offline

Post at 2008-10-5 10:47 Profile | Site | Blog | P.M.

又是字符串的问题。。。又要大改了。。。

Rarnu
CnPack Interfacer
rarnu@cnpack.org

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline

Post at 2008-10-7 10:16 Profile | Blog | P.M.

我先查找了一下WString，先加上UString。。。

rarnu (橙子)

灌水部部长

UID 2689
Digest Posts 11
Credits 648
Posts 209
点点分 648
Reading Access 10
Registered 2006-10-2
Status Offline

Post at 2008-10-7 11:06 Profile | Site | Blog | P.M.

加UString必须加编译预处理的。。。。小心呀。。。
我一会下载代码来看看

Rarnu
CnPack Interfacer
rarnu@cnpack.org

Passion (LiuXiao)

管理员

UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline

Post at 2008-10-7 11:08 Profile | Blog | P.M.

嗯，编译预处理用了CnPack.inc里头的UNICODE_STRING

bincom

新警察

UID 41050
Digest Posts 0
Credits 12
Posts 4
点点分 12
Reading Access 10
Registered 2008-10-4
Status Offline

Post at 2008-10-8 23:42 Profile | Blog | P.M.

有5个 pas 文件需要改!

CnDHibernateUtils.pas,
CnDHibernateSubQueryAdv.pas,
CnDHibernateClasses.pas,
CnDHibernateQueryAdv.pas,
CnDHibernateBase.pas
一样的代码应该改成一个过程. 免个同时改多个地方。