最近在做Delphi下的简体与繁体转换, 发现Windows2000自带的工具"中文转码器"很好用, 不仅可以转内码(BIG5-->GBK), 还可以将繁体字转为简体字(如:東-->东).
要转内码比较简单, 使用MultiByteToWideChar先将简体/繁体(GBK/BIG5)转为UniCode, 再使用WideCharToMultiByte从Unicode转为繁体/简体(BIG5/GBK).
EX: function Big52GB( ABig5String: string): String; { BIG5 to GBK : BIG5 ==> Unicode ==> GBK } Var mWString: array[0..1024] of WideChar; cchWideChar: Integer; mLongBool: LongBool; begin Result := ABig5String; //分配空间 mLongBool := True; //1.先取得需要的长度 cchWideChar := MultiByteToWideChar(950, 0, PChar(ABig5String), length(ABig5String), @mWString, 0); // SetLength(mWString, cchWideChar+1); //2.BIG5 to Unicode MultiByteToWideChar(950, 0, PChar(ABig5String), length(ABig5String), @mWString, cchWideChar); //3.Unicode to GBK WideCharToMultiByte(936, 0, @mWString, cchWideChar, PChar(Result), length(Result), '?', @mLongBool); end;
经过以上步骤， 就可以把BIG5码转为GBK码，但是繁体中的字因为在GBK中大部分都有对应（繁体字形），因而，以上得到的是BIG5对应的繁体字形，如BIG5码的 “東”($AA46)得到的GBK对应的字为“東”($967C)，而不是简体中最常用的“东”($B6AB)。
在中文转码器中，最后一页提供了是否转字形的选项，它可以做到！那我们也应该可以做到！经过调试，原来它是调用LCMapStringW!
在Windows.pas中，定义了三个这样的函数：
function LCMapString(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PChar;
cchSrc: Integer; lpDestStr: PChar; cchDest: Integer): Integer; stdcall;
function LCMapStringA(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PAnsiChar;
cchSrc: Integer; lpDestStr: PAnsiChar; cchDest: Integer): Integer; stdcall;
function LCMapStringW(Locale: LCID; dwMapFlags: DWORD; lpSrcStr: PWideChar;
cchSrc: Integer; lpDestStr: PWideChar; cchDest: Integer): Integer; stdcall;
其中，LCMapString＝LCMapStringA，也就是使用ASCII的，当然我们也可以使用LCMapStringW转UniCode成为简体字形。
本文地址：http://com.8s8s.com/it/it4980.htm