数学建模社区-数学中国

标题: BCB3.0中让TRichEdit支持BIG5内码 [打印本页]

作者: 韩冰 时间: 2005-1-26 19:27
标题: 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码了。
第一步：找一个用于内码转换的码表文件。
我用的是CCDOS97里带的CCDOS.TAB，这个文件的大小为45840个字节。如果你没有这个文件，可以给我来信（<a href="mailtcnprogram@netease.com" target="_blank" >cnprogram@netease.com</A>）我会寄一个给你。当然你还可以根据BIG5码的编码方案自己做一个，这里就不多说了。
第二步：把码表文件转换成数组文件。见下面的程序。
用BCB建立一个控制台应用程序。把它存为TABTOHEX.BPR和TABTOHEX.CPP。然后在TABTOHEX.cpp中添加以下代码：
#pragma hdrstop
#include <condefs.h>
#include"stdio.h"
#include"stdlib.h"
#pragma argsused
int main(int argc, char **argv)
{
FILE *tab;
FILE *hex;
int i=0;
unsigned int ch;
tab=fopen("ccdos.tab","rb");//打开CCDOS.TAB文件
hex=fopen("tab.h","wb");
fputs("unsigned char tab[45840]={",hex);
fprintf(hex,"\n");
for(i=0;i<45840;i++)
{
      if(i%20==0)
      {
         fprintf(hex,"\n");
      }
      ch=fgetc(tab);
      fprintf(hex,"0x%x\x2c",ch);//把码表文件转换为数组文件
}
fputs("0xff};",hex);
fcloseall();
return 0;
}
然后编译并执行这个程序，得到TAB.H文件。
第三步:在BCB3.0中新建一个标准的应用程序。添加一个TButton组件：Button1添加一个TRichEdit组件：RichEdit1适当调整它们的大小与位置。然后在Unit1.cpp中添加下面的代码：
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include"tab.h"//把头文件TAB.H包含在内
//-----------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
}
//------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
RichEdit1->Lines->LoadFromFile("c:\\BIG5.TXT");//读取一个BIG5码的文件，可自己的情况设定
}
//-----------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
unsigned long i,address;//把BIG5码转换为GB码
unsigned char ch1,ch2;
char *x;
x=RichEdit1->Lines->GetText();
i=0;
while(x!='\0')3 v2 B9 _% z1 e6 A% \
{
5 K; E, k: p& M4 h$ O0 [5 M       ch1=x;
3 A4 ?2 }! }* J( g3 A) ^- n       if(ch1>=0xa1)$ Z4 V$ K! s1 K3 z. W% _/ \. _
      {
         ch2=x[i+1];
1 n3 I7 ]8 ^' \7 [& p9 A          if(ch2>=0x40&&ch2<=0x7e)- v4 S$ }1 m' {/ S% T8 i7 k* _
         {
0 u1 n+ B# ]: {1 B% J- t& D0 s             address=ch1*314+ch2*2-33010;1 ?0 ?3 _0 w0 O$ T8 i
            x=tab[address];- o% c) Z& x, a! x# ~
            x[i+1]=tab[address+1];& [" f$ a: I0 Q  r
         }1 L; x; H; o( @' Q+ G  g
         if(ch2>=0xa1&&ch2<=0xfe)6 @8 W7 q) ^$ Y/ K* V" p  P" Z
         {1 y5 J; U  f' M+ t7 _: [. d% S
            address=ch1*314+ch2*2-33078;# E2 g; b  C0 M7 ?' g
            x=tab[address];2 N- r; @4 V% R' G2 Y9 K" K
            x[i+1]=tab[address+1];" R; [; K. C8 C* _
         }8 J3 C9 g5 p* o. V$ S+ b
         i+=2;
/ v1 b. M' Y( K1 R" N- D0 a4 M       }
, F5 E: w/ x. O8 Q6 t       else$ u( S; G0 V( |6 k; k# p* u- I; l/ b
      i++;
* m. B: u% c3 M9 J8 B }& X2 ]( A; l  X3 ]' |5 o5 l5 o4 [& X
RichEdit1->Lines->Text=x;: }! c4 B3 s* E; [
RichEdit1->SetFocus();& H( _3 l) d  x# T& U1 Y; @( ?" L
RichEdit1->SelStart = 0;3 X0 |8 k3 q& v5 n5 Q7 O# x- X
}
7 X- {+ V/ O6 Q2 s7 ?6 ?" G 编译并执行它，首先你会看到RichEdit1中的BIG5码文件显示为乱码。按一下Button1，这时，你就会看到RichEdit1中的乱码变成了正常的汉字。好了，现在你自己编的软件也可以支持BIG5码了，是不是感觉更专业一些。GB->BIG5的转换方法也是类似的，有兴趣的朋友可以给我来信。最后，祝大家龙年愉快。本程序在WIN97，BCB3.0下编译通过。
! b' @! @# k5 k) h* D) r</P>

欢迎光临数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5