解决Delphi自带UTF8解码缺陷

因为Delphi自带的转换函数遇到其无法识别的字符串就返回空,下面函数可解决该问题。

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;

上一篇: Delphi下URL汉字编码解码的两个函数
下一篇: Delphi下获取IE的UserAgent的方法
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Delphi UTF8 解码
相关日志:
评论: 1 | 引用: 0 | 查看次数: -
卡西欧手表
卡西欧手表[2016-05-13 04:24 PM | 访问 http://www.casiostore.com.cn/ | | 58.62.36.34 | del | 回复回复]
沙发
卡西欧手表,喜欢就来买哦
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭