Delphi 转换 UTF8 字符为 Unicode 字符

最新推荐文章于 2020-12-21 11:54:13 发布

zensui2008

最新推荐文章于 2020-12-21 11:54:13 发布

阅读量4.2k

点赞数

CC 4.0 BY-SA版权

分类专栏：源代码文章标签： delphi function

本文链接：https://blog.youkuaiyun.com/zensui2008/article/details/7029464

源代码专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个用于将UTF-8编码字符串转换为Unicode编码的函数实现过程。该函数首先检查输入的有效性，随后分配内存并使用系统提供的转换功能完成编码转换，并最终通过消息框展示转换后的结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function U8ToUnicode(szU8: PAnsiChar; var wszString: PWideChar): Integer;

Begin // UTF8 to Unicode
result := 0;
if szU8 = nil then exit;
wszString := Pointer(LocalAlloc(0, lstrlenA(szU8) * 2 + 1));
FillChar(wszString^, lstrlenA(szU8) * 2, 0);

Utf8ToUnicode(wszString, szU8, lstrlenA(szU8));

result := 1;

MessageBoxW(0, wszString, '已转换', MB_OK)

end;

Function U8ToUnicode(szU8: PAnsiChar; var wszString: PWideChar): Integer;

Begin

result := 0;

if szU8 = nil then exit;
result := MultiByteToWideChar(CP_UTF8, 0, szU8, lstrlenA(szU8), nil, 0);
wszString := Pointer(LocalAlloc(0, result + 1)); //wchar_t*
//转换
MultiByteToWideChar(CP_UTF8, 0, szU8, lstrlenA(szU8), wszString, result);
//加上'/0'
if (result > 0) and (result < (lstrlenW(wszString) + 1)) then LstrcatW(wszString, ''#0);
result := 1;
MessageBoxW(0, wszString, '已转换', MB_OK)
end;