Delphi 中big5 转 Unicode 函数

Big5至Unicode转换解析

最新推荐文章于 2020-04-03 19:30:25 发布

weixin_30613727

最新推荐文章于 2020-04-03 19:30:25 发布

阅读量120

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/MaxWoods/p/3884972.html

本文详细解析了Big5编码转换至Unicode的过程，利用Delphi的MultiByteToWideChar函数，介绍了各参数含义及使用技巧。同时，文章提及了GB2312与Big5通过Unicode转换的方法。

function Big5ToUnicode(str  Char): widestring;

var

  len: integer;

begin

  len:=MultiByteToWideChar(950,0,PChar(str),-1,nil,0);

  setlength(result,len-1);

  MultiByteToWideChar(950, 0, PChar(str), -1, pwidechar(result), len+1);

  result:=' '+result;

end;

MultiByteToWideChar(950, 0, PChar(str), -1, pwidechar(result), len+1) 各个参数含义：

950：码表，950即Big5和Unicode的对应表；
0：这一位写0就可以了；
PChar(str)：字符串的地址（这里又用PChar强行转换了一次，应该没必要）；
-1：字符串长度，如果是-1就会自动计算长度并转换到字符串结束；
pwidechar(result)：保存结果的地址；
len+1：缓冲区大小，如果为零函数就返回需要的缓冲区大小。

在Big5ToUnicode函数中MultiByteToWideChar使用了两次，第一次是计算所需缓冲区大小，第二次才是正式的转换。结果的长度设成多少需要实验一下，因为结尾或许有不想要的字符。但是不能不设或设成0，这样result并没有获得地址分配，转换会出错。

如果是GB2312，码表号是936。大部分的转码软件都是使用了这个API，GB2312与Big5的互相转换也是通过Unicode进行的。

转载于:https://www.cnblogs.com/MaxWoods/p/3884972.html