敬业的IT人 >> 编程开发 >> C++Builder >> [翻文转字]C++ Builder控件版

[翻文转字]C++ Builder控件版

敬业的IT人 互联网 佚名 2008-1-3 21:27:11

  **************************************************************************************
* [翻文转字]C++ Builder控件版 *
* V1.0 正式版 使用说明 *
* 2000-04-30 *
**************************************************************************************

版权说明:
-------------
作者:周鹏飞(莫高软件工作室)

Email: mogao@371.net
URL: http://mogao.126.com
教育网:http://home.gbsource.net/mogao

本控件为开放源代码的自由软件,版权由作者:周鹏飞和[莫高软件工作室]所有。

功能简介:
-------------
本控件主要作用是: 可编码和解码目前常见的各种乱码。有我在手,乱码不愁!
可以使汉字在Gb码、Big5码和HZ码和之间进行自由的转换。
可以把任意文字和文件转换为UUencode、XXencode、Base64
和QP码这四种在Email中常用的编码方案,同时还支持解码。

升级介绍:
-------------
V1.0正式版(2000-04-30) 增加三种在Email中常用的编码方案:UUencode、XXencode和Base64,
可以把任意文字和文件转换为这三种编码,同时还支持解码。

V1.0 beta(1999-12-05) 可以使汉字在Gb码、Big5码、HZ码和QP码之间进行自由的转换。


使用授权:
-------------
见License.txt文件。


使用环境:
-------------
本控件是用C++ Builder4.0开发而成,现在只能在C++ Builder4.0下使用,
BCB3因手头没有所以没法测试,请安装BCB3的朋友帮忙测试,谢谢。同时
For Delphi的版本、DLL版本和ActiveX版本也将在近期推出。


技术支持与反馈:
-------------
本控件为自由软件,不用注册但同样可以得到技术支持。如果您想得到本控件的技
术支持和更新通知,请访问我的Homepage,加入邮递列表或直接给我写信,Email的
主题(Subject)应写为:订阅邮件列表。
如果您对本控件有什么想法、建议或者您使用了本控件,请来信告知。谢谢您的支持。


使用说明:
-------------
1. [安装控件]
在BCB4的IDE中选择Component菜单下Install Component项,在Unit file name、
Package file name中指定“gbbig.cpp”文件的路径和所使用的包。包可以是已经
存在的,例如D:\borland\cbuilder4\Lib\dclusr40.bpk,也可以创建新包,例如
D:\Borland\CBuilder4\Projects\gb.bpk。单击OK,然后BCB会提示要编译,当编
译完成后单击Install。至此,控件安装成功,应能在构件面板[莫高软件]页上看
到控件图标,如果没有,选择Component菜单下Install Package项,单击Add,选
定刚才编译的.bpl文件(如gb.bpl),单击“确定”,单击OK。

2. [使用控件]
请先将下面3个文件
gbbig.h (控件头文件)
gbbig.res (控件资源文件)
gbbig.dcr (控件图标文件)
拷贝到和您的程序同一个目录下,然后您就可以象使用BCB自带的控件一样使用本
控件了^_^

3. [函数说明]
请参看源程序。

/*************************************************************************
*             [翻文转字]C++ Builder控件版                       *
*                     V1.0 正式版                               *
*                             2000-04-30                                 *
*                                                                        *
*作者:周鹏飞(莫高软件工作室)                                          *
*Email: mogao@371.net                                                    *
*URL: http://mogao.126.com                                               *
*教育网:http://home.gbsource.net/mogao                                 *
*本控件为开放源代码的自由软件,版权由作者:周鹏飞和[莫高软件工作室]所有。*
*************************************************************************/
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "GbBig.h"
#pragma package(smart_init)

//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TGbBig *)
{
        new TGbBig(NULL);
}
//---------------------------------------------------------------------------
__fastcall TGbBig::TGbBig(TComponent* Owner)
        : TComponent(Owner)
{
  FInputText=NULL;
  FOutputText=NULL;
  temp=NULL;
  FInput='\0';
  FOutput='\0';
}
//---------------------------------------------------------------------------
__fastcall TGbBig::~TGbBig(void)
{
  FInputText=NULL;
  delete FOutputText;
  FOutputText=NULL;
  delete temp;
  temp=NULL;
  FInput='\0';
  FOutput='\0';
}
//---------------------------------------------------------------------------
//编码函数
void __fastcall TGbBig::Encode(void)
{
if(FInputText)
{
   delete FOutputText;
   FOutputText=NULL;

   switch(Code)
   {
     case 0 :
              FOutputText=new char[Num+1];
              Res=LoadResource(HInstance,FindResource(HInstance,"GB_BIG5","TEXT"));
              FontLib=(char*)LockResource(Res);
&nbs
粤ICP备06119539号
Copyright CiscoSky.Org,Some Rights Reserved.
Email:me1228#tom.com