引言: 大家好: 我有從網路download可供delphi呼叫以將BIG5碼中文字轉為GB碼,但如何再將該GB碼轉為其unicode ? 1.請問win api之MultiByteToWideChar函數可否將GB碼轉為unicode ?還是僅能將BIG5碼中文字轉為unicode ?還是均不可轉換? 2.如果MultiByteToWideChar函數不可將GB碼轉為unicode,那麼那裡可download可供delphi呼叫之函數可將GB碼轉為unicode? 3.或是那裡有可直接將BIG5碼中文字轉為GB碼之unicode ? 4.那裡有可將GB碼之unicode轉為GB碼?

 function Big5ToGB(sBig5: string): string;
var ws: array[0..32767] of WideChar;
    s: array[0..65535] of char;
begin
  ZeroMemory(@ws, Length(ws) * SizeOf(WideChar));
  ZeroMemory(@s, Length(s) * SizeOf(char));
  MultiByteToWideChar(950, MB_COMPOSITE, PChar(sBig5), -1, @ws, Length(ws));
  WideCharToMultiByte(936, WC_COMPOSITECHECK, @ws, -1, @s, Length(s), '?', PBOOL(false));
  result := s;
end;

引言: 1, 2. 可以，把 MultiByteToWideChar 的第一個參數傳入 936，就可以把 GB 碼轉成Unicode 3. 如果只考慮轉碼，不考慮繁簡寫法不同的話，可以用下列程式

 function Big5ToGB(sBig5: string): string;
var ws: array[0..32767] of WideChar;
    s: array[0..65535] of char;
begin
  ZeroMemory(@ws, Length(ws) * SizeOf(WideChar));
  ZeroMemory(@s, Length(s) * SizeOf(char));
  MultiByteToWideChar(950, MB_COMPOSITE, PChar(sBig5), -1, @ws, Length(ws));
  WideCharToMultiByte(936, WC_COMPOSITECHECK, @ws, -1, @s, Length(s), '?', PBOOL(false));
  result := s;
end;

若要達到轉換後轉繁簡寫法不同的話，以上程式不適用 4. WideCharToMultiByte，第一個參數傳入 936 有關 code page 請看 Windows SDK Help 中 IsValidCodePage 的說明 加油喔，喵～

引言: 謝謝sryang : 我有試著呼叫你寫的function Big5ToGB(sBig5: string),以把BIG5碼轉為GB碼,結果是部份文字轉成功部份文字轉失敗(空白)Why ? (PS:都是很常見之自) ,但呼叫以前下載(CVCODE.zip)之Function Big5ToGB 全部文字轉成功,Why ?

function UnicodeEncode(Str:string;CodePage:integer):WideString;
var
  Len:integer;
begin
  Len:=Length(Str)+1;
  SetLength(Result,Len);
  Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len);
  SetLength(Result,Len-1); //end is #0
end;    function UnicodeDecode(Str:WideString;CodePage:integer):string;
var
  Len:integer;
begin
  Len:=Length(Str)*2+1;  //one for #0
  SetLength(Result,Len);
  Len:=WideCharToMultiByte(CodePage,0,PWideChar(Str),-1,PChar(Result),Len,nil,nil);
  SetLength(Result,Len-1);
end;    function Gb2Big5(Str:string):string;
begin
  SetLength(Result,Length(Str));
  LCMapString(GetUserDefaultLCID,LCMAP_TRADITIONAL_CHINESE,
    PChar(Str),Length(Str),
    PChar(Result),Length(Result));
  Result:=UnicodeDecode(UnicodeEncode(Result,936),950);
end;    function Big52Gb(Str:string):string;
begin
  Str:=UnicodeDecode(UnicodeEncode(Str,950),936);
  SetLength(Result,Length(Str));
  LCMapString(GetUserDefaultLCID,LCMAP_SIMPLIFIED_CHINESE,
    PChar(Str),Length(Str),
    PChar(Result),Length(Result));
end;