加载中…
个人资料
小胖和猪猪
小胖和猪猪
  • 博客等级:
  • 博客积分:0
  • 博客访问:830,842
  • 关注人气:111
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

猪猪编程:delphi中UTF8Deocde的问题

(2011-04-20 10:00:11)
标签:

delphi

数据库

编程

it

分类: 计算机

使用Utf8Decode处理UTF-8字符串时,有时候正常,有时候返回空值,看其源代码:

...

function UTF8Decode(Data: AnsiString): WideString;
begin
  SetLength(Result, Length(Data));
  SetLength(Data,MultiByteToWideChar(CP_UTF8,
0,PAnsiChar(data),Length(Data),PWideChar(Result),Length(Data)));
end;

...

delphi的Utf8Decode在解码的时候遇到它认为不正确的字符就返回空串了,还是用winapi靠谱。

方法:

使用自定义转换函数:

uses windows;

function DecodeUtf8Str(const S: UTF8String): WideString;
var lenSrc, lenDst  : Integer;
begin
  lenSrc  :
= Length(S);
 
if(lenSrc=0)then Exit;
  lenDst  :
= MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, nil, 0);
  SetLength(Result, lenDst);
  MultiByteToWideChar(CP_UTF8,
0, Pointer(S), lenSrc, Pointer(Result), lenDst);
end;
从数据库读取Unicode的中文编码,解码:

DecodeUtf8Str(UTF8String(Trim(dm.qPo.FieldByName('title').AsString)));

效果比Utf8Decode好,BDS2006+Win7 64位下通过。

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有