mydll.~pas

词库

unit MyDll;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit1;

  
   Function  HLSplitInit(lpszDataFilePath:Pchar):Bool;cdecl;//初始化海量分词系统
   Procedure HLFreeSplit();cdecl ;                                   //卸载海量分词系统，释放系统所占资源
   Function  HLOpenSplit ():THandle;cdecl ;                             //创建中文分词句柄
   Procedure HLCloseSplit( hHandle:THandle);cdecl;             //关闭分词结果句柄，释放分词结果所占资源
   Function  HLSplitWord ( hHandle:THandle; lpText:Pchar ; ExtraCalcFlag:Integer):BOOL;cdecl ;//对指定字符串进行分词
   FunCtion  HLGetWordCnt( hHandle:THandle):Integer;cdecl;          //得到分词结果中词的个数
   Function  HLGetWordAt ( hHandle:THandle; iIndex:Integer):SHLSegWord; //得到指定的分词结果
   Function  HLOpenUsrDict(UserDictName:Pchar):BOOL;cdecl ;     //加载用户自定义的字典
   Procedure HLFreeUsrDict();cdecl ;//卸载用户自定义词典
   Function  HLGetFileKeyCnt( hHandle:THandle):Integer;cdecl ;         //获取关键词的个数
   Function  HLGetFileKeyAt ( hHandle:THandle):SHLSegWord;cdecl;

implementation
   Function  HLSplitInit ; external 'HLSSplit.dll' name 'HLSplitInit'; //初始化海量分词系统
   Procedure HLFreeSplit ; external 'HLSSplit.dll' name 'HLFreeSplit' ;                                    //卸载海量分词系统，释放系统所占资源
   Function  HLOpenSplit ; external 'HLSSplit.dll' name 'HLOpenSplit';                             //创建中文分词句柄
   Procedure HLCloseSplit; external 'HLSSplit.dll' name 'HLCloseSplit';                  //关闭分词结果句柄，释放分词结果所占资源
   Function  HLSplitWord ; external 'HLSSplit.dll' name 'HLSplitWord';//对指定字符串进行分词
   FunCtion  HLGetWordCnt; external 'HLSSplit.dll' name 'HLGetWordCnt';          //得到分词结果中词的个数
   Function  HLGetWordAt ; external 'HLSSplit.dll' name 'HLGetWordAt'//得到指定的分词结果
   Function  HLOpenUsrDict;   external 'HLSSplit.dll' name 'HLOpenUsrDict';     //加载用户自定义的字典
   Procedure HLFreeUsrDict;   external 'HLSSplit.dll' name 'HLFreeUsrDict';//卸载用户自定义词典
   Function  HLGetFileKeyCnt; external 'HLSSplit.dll' name 'HLGetFileKeyCnt';         //获取关键词的个数
   Function  HLGetFileKeyAt;  external 'HLSSplit.dll' name 'HLGetFileKeyAt';


end.