imcode.pas

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

unit IMCode;

(*
     Copyright (C) Trueway(TM) 6, 1999 - 3, 2000, All rights reserved.
     Trueway(TM) is the trademark of programs by LiQunwei

     外挂式输入码生成器 Version 4.0
     Created On: 06/05/1999
     Last Update: 03/23/2000
     Update History:
       06/05  建立本程序的思想并开始编制程序
       06/06  完成程序的前期版本
       06/07  整理程序
       06/14  修正了一个 Bug
       06/16  除去了生成全拼中的 '.'; 使用 PChar 作为参数
              使用 PChar 作为参数可省去使用 DELPHIMM.DLL (BORLNDMM.DLL)
              使 C++ 语言能直接使用
       06/17  将参数的命名规范化(凶牙利命名)
              增加了五种发音(如 女 'nv' )
       06/21  修正了一个 Bug
       08/14  调整 iMode 的作用
              将 163 区的全角字符返回半角字符
       08/15  增加了大小写罗马数字的识别
       09/04  增加了 11, 12, 13 三种方式, 对应 1, 2, 3, 仅不输出 '?'
       09/23  增加希腊字母的识别(转为标准的对应英文字母)
       10/23  增加 MakeSpellCode, GetSpellCode, 改用二进制标志位判断
       10/24  拼音索引表索引改为短整数, 可节省 48K 的空间
       01/27  修改 iCount 的含义
       01/30  增加 StrPch 函数
       03/23  使代码字典外挂

     Notice:
       程序思想来源于 UCDOS 7.0 拼音输入法
       汉字发音从中文版的 Windows 98 的全拼输入法词库取
       支持 GBK 汉字
       处理多音字的发音为最常用发音
         如 '着' 字有 'Zhe' 'Zhao' 'Zhuo' 三种发音, 输出 'Zhe'
       请正确设置 iMode 参数
       在 Delphi 3.0 或更高的版本中使用

     调用示例:
       ...
       First;