//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 解决Utf8ToAnsi和Utf8DeCode转换编码为空的问题的全部内容，更多相关Delphi内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复