小弟在網路上找了如下的轉換代碼，但是轉出來卻是變成亂碼,請問是怎麼回事呢?
Delphi7下,使用TNT的控件，並附上源始碼供研究，謝謝


[code delphi]
請在此區域輸入程式碼
Function GB2Big5(GBStr: String): AnsiString;
{?行GB?BIG5??}
Var
Len: integer;
pGBCHTChar: PChar;
pGBCHSChar: PChar;
pUniCodeChar: PWideChar;
pBIG5Char: PChar;
Begin
pGBCHSChar := PChar(GBStr);
Len := MultiByteToWideChar(936, 0, pGBCHSChar, -1, Nil, 0);
GetMem(pGBCHTChar, Len * 2 1);
ZeroMemory(pGBCHTChar, Len * 2 1);
//GB CHS -> GB CHT
LCMapString($804, LCMAP_TRADITIONAL_CHINESE, pGBCHSChar, -1, pGBCHTChar, Len * 2);
GetMem(pUniCodeChar, Len * 2);
ZeroMemory(pUniCodeChar, Len * 2);
//GB CHT -> UniCode
MultiByteToWideChar(936, 0, pGBCHTChar, -1, pUniCodeChar, Len * 2);
Len := WideCharToMultiByte(950, 0, pUniCodeChar, -1, Nil, 0, Nil, Nil);
GetMem(pBIG5Char, Len);
ZeroMemory(pBIG5Char, Len);
//UniCode -> Big5
WideCharToMultiByte(950, 0, pUniCodeChar, -1, pBIG5Char, Len, Nil, Nil);
result := String(pBIG5Char);
FreeMem(pBIG5Char);
FreeMem(pGBCHTChar);
FreeMem(pUniCodeChar);
End;

Function GBCht2Chs(GBStr: String): AnsiString;
{?行GBK繁体??体}
Var
Len: integer;
pGBCHTChar: PChar;
pGBCHSChar: PChar;
Begin
pGBCHTChar := PChar(GBStr);
Len := MultiByteToWideChar(936, 0, pGBCHTChar, -1, Nil, 0);
GetMem(pGBCHSChar, Len * 2 1);
ZeroMemory(pGBCHSChar, Len * 2 1);
//GB CHS -> GB CHT
LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, Len * 2);
result := String(pGBCHSChar);
//FreeMem(pGBCHTChar);
FreeMem(pGBCHSChar);
End;

Function GBChs2Cht(GBStr: String): AnsiString;
{?行GBK?体?繁体}
Var
Len: integer;
pGBCHTChar: PChar;
pGBCHSChar: PChar;
Begin
pGBCHSChar := PChar(GBStr);
Len := MultiByteToWideChar(936, 0, pGBCHSChar, -1, Nil, 0);
GetMem(pGBCHTChar, Len * 2 1);
ZeroMemory(pGBCHTChar, Len * 2 1);
//GB CHS -> GB CHT
LCMapString($804, LCMAP_TRADITIONAL_CHINESE, pGBCHSChar, -1, pGBCHTChar, Len * 2);
result := String(pGBCHTChar);
FreeMem(pGBCHTChar);
//FreeMem(pGBCHSChar);
End;
[/code]

------
xinjier禮品贈品

附加檔案：4a0d84962a867_test.rar

編輯記錄

http://delphi.ktop.com.tw/board.php?cid=161&fid=110&tid=4239

下載Demo來測試簡体轉繁體仍然是亂碼,請問是怎麼回事呢?



===================引 用 max5020 文 章===================
http://delphi.ktop.com.tw/board.php?cid=161&fid=110&tid=4239

------
xinjier禮品贈品

Font.CharSet
要顯示繁體，應設定為 CHINESEBIG5_CHARSET
要顯示簡體，應設定為 GB2312_CHARSET

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

你把AnsiString直接交給WideString了，當然會錯
[code delphi]
TntMemo2.Text :=Gb2Big5(TntMemo1.Text);

Function GB2Big5(GBStr: String): AnsiString;
Var
Len: integer;
pGBCHTChar: PChar;
pGBCHSChar: PChar;
pUniCodeChar: PWideChar;
pBIG5Char: PChar;
Begin
pGBCHSChar := PChar(GBStr);
Len := MultiByteToWideChar(936, 0, pGBCHSChar, -1, Nil, 0);
GetMem(pGBCHTChar, Len * 2 1);
ZeroMemory(pGBCHTChar, Len * 2 1);
//GB CHS -> GB CHT
LCMapString($804, LCMAP_TRADITIONAL_CHINESE, pGBCHSChar, -1, pGBCHTChar, Len * 2);
GetMem(pUniCodeChar, Len * 2);
ZeroMemory(pUniCodeChar, Len * 2);
//GB CHT -> UniCode
MultiByteToWideChar(936, 0, pGBCHTChar, -1, pUniCodeChar, Len * 2);
Len := WideCharToMultiByte(950, 0, pUniCodeChar, -1, Nil, 0, Nil, Nil);
GetMem(pBIG5Char, Len);
ZeroMemory(pBIG5Char, Len);
//UniCode -> Big5
WideCharToMultiByte(950, 0, pUniCodeChar, -1, pBIG5Char, Len, Nil, Nil);
result := String(pBIG5Char);
FreeMem(pBIG5Char);
FreeMem(pGBCHTChar);
FreeMem(pUniCodeChar);
End;
[/code]在你的程序中，總共有五步轉換
1）TntMemo1.Text －－＞ GBStr (WideString --> String, 系統內碼)
2）GBStr －－＞ pGBCHSChar (String, GB --> WideString)
3）pGBCHSChar －－＞ pGBCHTChar (WideString --> WideString 變繁)
4）pGBCHTChar －－＞ pBIG5Char －－＞ result (WideString --> String, Big5 --> String, Big5)
5）Result －－＞ TntMemo2.Text (String, 系統內碼 --> WideString)

其中第一步要求系統內碼是GB，否則第二次便轉不了
而第五步要求系統內碼是BIG5，因為第四步的結果是BIG5
系統內碼只有一個，所以你的程序出錯是必然的

因為tntWare本身用的便是Unicode，所以真正要做的只有第三步，其他的轉換多餘且會引入錯誤。
[code delphi]
function TraditionalizeWideString(const Str:WideString):WideString;
begin
SetLength(Result,Length(Str));
LCMapStringW(＄404, LCMAP_TRADITIONAL_CHINESE,
PWideChar(Str), Length(Str), PWideChar(Result), Length(Result));
end;

TntMemo2.Text :=TraditionalizeWideString(TntMemo1.Text);
[/code]

因為你輸入進去的不是GB 簡體碼
而是Unocide碼

因為簡體碼會Show亂碼

我試過這個程式它是正常的

能把GB碼 訧妎褪撮
轉成BIG碼 資識科技

編輯記錄