gb2312tobig5 delphi简繁转换

一直想研究一下简繁转换功能，

今天终于在网上找到了，拿来分享一下！！！

1、API方法，这是Windows下开发最常用最简单的方法，利用Windows系统自带的API函数，寥寥数行代码即可完成，典型的例子就是

Windows2000自带的例子，核心代码可以简单列一个
function GB2312ToBIG5(GB2312Str: string): AnsiString;
var
  iLen: Integer;
  PGBCHSStr: PChar; //GB编码的简体字符
  PGBCHTStr: PChar; //GB编码的繁体字符
  PUnicodeChar: PWideChar; //Unicode编码的字符
  PBIG5Str: PChar; //BIG5编码的字符
begin
  PGBCHSStr:=PChar(GB2312Str);
  iLen:=MultiByteToWideChar(936,0,PGBCHSStr,-1,nil,0); //计算转换的字符数
  GetMem(PGBCHTStr,iLen*2+1); //分配内存
  LCMapString($0804,LCMAP_TRADITIONAL_CHINESE,PGBCHSStr,-1,PGBCHTStr,iLen*2); //转换GB码简体到GB码繁体
  GetMem(PUnicodeChar,iLen*2); //分配内存
  MultiByteToWideChar(936,0,PGBCHTStr,-1,PUnicodeChar,iLen); //转换GB码到Unicode码
  iLen:=WideCharToMultiByte(950,0,PUnicodeChar,-1,nil,0,nil,nil);
  GetMem(PBIG5Str,iLen);
  WideCharToMultiByte(950,0,PUnicodeChar,-1,PBIG5Str,iLen,nil,nil);