delphi DecodeUtf8Str解决系统自带UTF8解码缺陷


本文整理自网络,侵删。

 

//delphi DecodeUtf8Str解决系统自带UTF8解码缺陷

 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自带的转换函数遇到其无法识别的字符串就返回空,以上函数可解决该问题。

相关阅读 >>

Delphi逐个读取access中的数据

Delphi 文件crc和md5校验

Delphi windows 编程[4] - 学习窗体生成的过程四

Delphi 10 seattle中录制音频

tstringlist 常用操作

Delphi百度地图经纬度与地址互转

Delphi java设置环境变量小工具

Delphi 申请管理员权限级别

Delphi 数字转换成中文

Delphi winapi: getfocus - 获取当前拥有焦点的窗口的句柄

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...