imcode.pas

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

       while not EOF do begin
         Edit;
         FieldByName(PyFieldName).AsString :=
           String(MakePyCode(FieldByName(ChnFieldName).AsString, 1, 6);
         Next;
       end;
       ...
*)

interface

function MakeSpellCode(stText: string; iMode, iCount: Integer): string;
{ iMode 二进制功能位说明
  X X X X X X X X X X X X X X X X
                            3 2 1
  1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取
  2: 0 - 遇到不能翻译的字符不翻译; 1 - 翻译成 '?' (本选项目针对全角字符)
  3: 0 - 生成的串不包括非数字, 字母的其他字符; 1 - 包括
     (控制全角的要输出非数字, 字母字符的; 半角的非数字, 字母字符)
  请在调用之前调用 LoadIMCode 函数
}

function GetSpellCode(szText: PChar; iMode, iCount: Integer): PChar; stdcall;

function LoadIMCode(as_dict_file: PChar): integer; stdcall;
// 切换输入码数据源
// 调用示例: LoadIMCode('winpy.txt');
// 此函数只需在切换字典数据时使用

function UseInplace: integer; stdcall;
// 使用内置拼音代码字典

function UseOutplace: integer; stdcall;
// 使用外置拼音代码字典

function IsOutplace: integer; stdcall;
// 是否外置

implementation

uses
   SysUtils;