本文整理自网络,侵删。
//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 getmodulefilename函数的用法(可以获取项目的路径,桌面的路径,我的文档的路径)
Delphi readprocessmemory writeprocessmemory读写内存
Delphi xe7 的 android bitmap转jpg图的参数问题
更多相关阅读请进入《Delphi》频道 >>