BCB3.0中让TRichEdit支持BIG5内码

韩冰

<>BCB3.0中让TRichEdit支持BIG5内码
陈寒秋</P>
<>大家好，现在的软件如：Foxmail等软件，都有显示GB内码和BIG5内码的功能。我经过一段时间的摸索，发现了实现这种功能的方法。现在就来介绍给大家。首先，要给大家介绍一下这两种内码：大家都知道英文的ASCII码是用一个字节来表示的，但中文因为文字数量太多，所以只能用两个字节来表示。实际上我们常见的文本文件中保存的就是每个汉字对应的内码，而汉字的内码就是该汉字在中文字库中的逻辑位置。在中文字库中，该逻辑位置存放了这个汉字的图像信息，有了这些图像信息，就可以显示该汉字了，当然在现在的Windows中这个显示的过程是由操作系统自动来完成的，我们不必去关心它。但是由于一些历史上的原因，汉字的内码方案有两种，我们大陆地区使用的是GB码，而台湾省却使用的是BIG5码。GB码文件中保存的是汉字相应的GB编码，BIG5码文件中保存的是汉字相应的BIG5编码。而两种内码又都对应于各自的字库文件，所以当我们使用GB内码的简体中文Windows来看BIG5内码的文件时，就会产生常说的乱码现象。
    由于我们是要显示BIG5码的汉字，所以再介绍一下BIG5码的编码方案：每个汉字由两个字节构成，第一字节的范围从0X81－0XFE，第二个字节的范围分别为0X40－0X7E，0XA1－0XFE。好了，知道了汉字显示的原理和BIG5码的编码方案，就可以很容易让TRichEdit支持BIG5码了。
# O+ w6 g2 d- R/ `    第一步：找一个用于内码转换的码表文件。
    我用的是CCDOS97里带的CCDOS.TAB，这个文件的大小为45840个字节。如果你没有这个文件，可以给我来信（<a href="mailtcnprogram@netease.com" target="_blank" >cnprogram@netease.com</A>）我会寄一个给你。当然你还可以根据BIG5码的编码方案自己做一个，这里就不多说了。
    第二步：把码表文件转换成数组文件。见下面的程序。
    用BCB建立一个控制台应用程序。把它存为TABTOHEX.BPR和TABTOHEX.CPP。然后在TABTOHEX.cpp中添加以下代码：
. h) f8 u7 w. R: |#pragma hdrstop
#include &lt;condefs.h&gt;
#include"stdio.h"
  j4 t( W9 e# X$ d# F#include"stdlib.h"
#pragma argsused
int main(int argc, char **argv)
1 P' _1 w+ n5 A8 F2 C7 Q{
9 w8 p8 `5 P2 a; J; I8 X3 B    FILE *tab;
4 }! i6 L9 D( s* C6 z! G" i9 N    FILE *hex;
    int i=0;
/ F! K9 _6 [- A( r$ W1 x# e    unsigned int ch;
    tab=fopen("ccdos.tab","rb");//打开CCDOS.TAB文件
    hex=fopen("tab.h","wb");
    fputs("unsigned char tab[45840]={",hex);
+ u+ W5 l% ~; M& r9 Q3 s    fprintf(hex,"\n");
; c) Z, Y/ E* |9 O    for(i=0;i&lt;45840;i++)
5 [' i8 H# @4 X" X- h) }' @    {
1 |# n7 ]+ y/ _1 q- x' R# [        if(i%20==0)
& I, x  [5 R% C0 a        {
% ~- y6 A6 K, o, M6 `* ?7 j            fprintf(hex,"\n");
2 v, f$ \0 u7 R' K        }
        ch=fgetc(tab);
        fprintf(hex,"0x%x\x2c",ch);//把码表文件转换为数组文件
1 A2 X3 Z9 ?$ B# t! N! @! Q# f% {9 K    }
    fputs("0xff};",hex);
. a1 a6 J" ?) ]5 N7 j& E    fcloseall();
    return 0;
}
然后编译并执行这个程序，得到TAB.H文件。
6 {1 ^2 ^' |! k. ~( i; H  P4 ~! _    第三步:在BCB3.0中新建一个标准的应用程序。添加一个TButton组件：Button1添加一个TRichEdit组件：RichEdit1适当调整它们的大小与位置。然后在Unit1.cpp中添加下面的代码：
#include &lt;vcl.h&gt;
#pragma hdrstop
$ X1 K: n* U% U  ]' z/ A+ [; a/ P& }#include "Unit1.h"
1 T. J- H( c4 t) G; h, m#include"tab.h"//把头文件TAB.H包含在内
1 h3 X( r5 _5 p* z$ ]: @: ~7 ]//-----------------------------------------------------------------
4 r6 {( j0 }, \) v  K#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
5 m8 r, [! A1 N4 b& b  ]0 _# l//------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
  ]/ @3 [. k% G* v/ I. n- z5 c& j{
- z5 a" ~/ q$ q2 ~. b}
1 P$ `8 X% G7 `5 Q: I//------------------------------------------------------------------
1 D" {. ]# y+ v; s4 [void __fastcall TForm1::FormCreate(TObject *Sender)
+ N: F5 _  `8 F0 Z0 P) x/ ]{
    RichEdit1-&gt;Lines-&gt;LoadFromFile("c:\\BIG5.TXT");//读取一个BIG5码的文件，可自己的情况设定
7 m) d* `! ^; x8 R6 O2 P. ~}
//-----------------------------------------------------------------
, A& u7 Q( W7 [7 A* i1 avoid __fastcall TForm1::Button1Click(TObject *Sender)
7 }+ `# t) C% W2 ?) x{
    unsigned long i,address;//把BIG5码转换为GB码
# v* W9 u* E2 a1 a/ c- q, y; M3 m    unsigned char ch1,ch2;
    char *x;
    x=RichEdit1-&gt;Lines-&gt;GetText();
    i=0;
    while(x!='\0')
  Z+ Q5 c% m5 o( e    {
        ch1=x;
        if(ch1&gt;=0xa1)
        {
. X9 a7 l, K/ k& j9 f& E9 v" S+ O            ch2=x[i+1];
            if(ch2&gt;=0x40&amp;&amp;ch2&lt;=0x7e)
            {
3 U. m; M6 w9 N* |) n) A. x                address=ch1*314+ch2*2-33010;
; l. L+ ?$ k7 t                x=tab[address];
  ]( U# W1 I6 J) N5 d6 i7 Y9 e                x[i+1]=tab[address+1];
            }
9 }- k) C1 s; Q- k            if(ch2&gt;=0xa1&amp;&amp;ch2&lt;=0xfe)
            {
8 K; l0 {! A8 Y! c                address=ch1*314+ch2*2-33078;
                x=tab[address];
                x[i+1]=tab[address+1];
9 ~. r# j' G8 ?- t7 M; \            }
; D; W# ~* I4 O1 @9 s+ T            i+=2;
        }
        else
9 H+ f( h2 Y2 g. }# Z        i++;
$ Y$ x& |* y0 G    }
+ I* ]1 s/ M" |9 p4 K# U+ D8 J    RichEdit1-&gt;Lines-&gt;Text=x;
! \/ p$ f  R- _! \) x& _. m    RichEdit1-&gt;SetFocus();
; U% `  s" k9 d7 G$ q! }; a$ G4 O    RichEdit1-&gt;SelStart = 0;
}
    编译并执行它，首先你会看到RichEdit1中的BIG5码文件显示为乱码。按一下Button1，这时，你就会看到RichEdit1中的乱码变成了正常的汉字。好了，现在你自己编的软件也可以支持BIG5码了，是不是感觉更专业一些。GB-&gt;BIG5的转换方法也是类似的，有兴趣的朋友可以给我来信。最后，祝大家龙年愉快。本程序在WIN97，BCB3.0下编译通过。
</P>