aspellheadersdyn.pas

类似QQ的源码程序

  new_aspell_config                             : Tnew_aspell_config;
  delete_aspell_config                          : Tdelete_aspell_config;
  aspell_config_clone                           : Taspell_config_clone;
  aspell_config_assign                          : Taspell_config_assign;
  aspell_config_error_number                    : Taspell_config_error_number;
  aspell_config_error_message                   : Taspell_config_error_message;
  aspell_config_error                           : Taspell_config_error;
  aspell_config_set_extra                       : Taspell_config_set_extra;
  aspell_config_keyinfo                         : Taspell_config_keyinfo;
  aspell_config_possible_elements               : Taspell_config_possible_elements;
  aspell_config_get_default                     : Taspell_config_get_default;
  aspell_config_elements                        : Taspell_config_elements;
  aspell_config_replace                         : Taspell_config_replace;
  aspell_config_remove                          : Taspell_config_remove;
  aspell_config_have                            : Taspell_config_have;
  aspell_config_retrieve                        : Taspell_config_retrieve;
  aspell_config_retrieve_list                   : Taspell_config_retrieve_list;
  aspell_config_retrieve_bool                   : Taspell_config_retrieve_bool;
  aspell_config_retrieve_int                    : Taspell_config_retrieve_int;
  aspell_error_number                           : Taspell_error_number;
  aspell_error_message                          : Taspell_error_message;
  aspell_error                                  : Taspell_error;
  delete_aspell_can_have_error                  : Tdelete_aspell_can_have_error;
  new_aspell_speller                            : Tnew_aspell_speller;
  to_aspell_speller                             : Tto_aspell_speller;
  delete_aspell_speller                         : Tdelete_aspell_speller;
  aspell_speller_error_number                   : Taspell_speller_error_number;
  aspell_speller_error_message                  : Taspell_speller_error_message;
  aspell_speller_error                          : Taspell_speller_error;
  aspell_speller_config                         : Taspell_speller_config;
  aspell_speller_check                          : Taspell_speller_check;
  aspell_speller_add_to_personal                : Taspell_speller_add_to_personal;
  aspell_speller_add_to_session                 : Taspell_speller_add_to_session;
  aspell_speller_personal_word_list             : Taspell_speller_personal_word_list;
  aspell_speller_session_word_list              : Taspell_speller_session_word_list;
  aspell_speller_main_word_list                 : Taspell_speller_main_word_list;
  aspell_speller_save_all_word_lists            : Taspell_speller_save_all_word_lists;
  aspell_speller_clear_session                  : Taspell_speller_clear_session;
  aspell_speller_suggest                        : Taspell_speller_suggest;
  aspell_speller_store_replacement              : Taspell_speller_store_replacement;
  delete_aspell_filter                          : Tdelete_aspell_filter;
  aspell_filter_error_number                    : Taspell_filter_error_number;
  aspell_filter_error_message                   : Taspell_filter_error_message;
  aspell_filter_error                           : Taspell_filter_error;
  to_aspell_filter                              : Tto_aspell_filter;
  delete_aspell_document_checker                : Tdelete_aspell_document_checker;
  aspell_document_checker_error_number          : Taspell_document_checker_error_number;
  aspell_document_checker_error_message         : Taspell_document_checker_error_message;
  aspell_document_checker_error                 : Taspell_document_checker_error;
  new_aspell_document_checker                   : Tnew_aspell_document_checker;
  to_aspell_document_checker                    : Tto_aspell_document_checker;
  aspell_document_checker_reset                 : Taspell_document_checker_reset;
  aspell_document_checker_process               : Taspell_document_checker_process;
  aspell_document_checker_next_misspelling      : Taspell_document_checker_next_misspelling;
  aspell_document_checker_filter                : Taspell_document_checker_filter;
  aspell_word_list_empty                        : Taspell_word_list_empty;
  aspell_word_list_size                         : Taspell_word_list_size;
  aspell_word_list_elements                     : Taspell_word_list_elements;
  delete_aspell_string_enumeration              : Tdelete_aspell_string_enumeration;
  aspell_string_enumeration_clone               : Taspell_string_enumeration_clone;
  aspell_string_enumeration_assign              : Taspell_string_enumeration_assign;
  aspell_string_enumeration_at_end              : Taspell_string_enumeration_at_end;
  aspell_string_enumeration_next                : Taspell_string_enumeration_next;
  get_aspell_module_info_list                   : Tget_aspell_module_info_list;
  aspell_module_info_list_empty                 : Taspell_module_info_list_empty;
  aspell_module_info_list_size                  : Taspell_module_info_list_size;
  aspell_module_info_list_elements              : Taspell_module_info_list_elements;
  get_aspell_dict_info_list                     : Tget_aspell_dict_info_list;
  aspell_dict_info_list_empty                   : Taspell_dict_info_list_empty;
  aspell_dict_info_list_size                    : Taspell_dict_info_list_size;
  aspell_dict_info_list_elements                : Taspell_dict_info_list_elements;
  aspell_module_info_enumeration_at_end         : Taspell_module_info_enumeration_at_end;
  aspell_module_info_enumeration_next           : Taspell_module_info_enumeration_next;
  delete_aspell_module_info_enumeration         : Tdelete_aspell_module_info_enumeration;
  aspell_module_info_enumeration_clone          : Taspell_module_info_enumeration_clone;
  aspell_module_info_enumeration_assign         : Taspell_module_info_enumeration_assign;
  aspell_dict_info_enumeration_at_end           : Taspell_dict_info_enumeration_at_end;
  aspell_dict_info_enumeration_next             : Taspell_dict_info_enumeration_next;
  delete_aspell_dict_info_enumeration           : Tdelete_aspell_dict_info_enumeration;
  aspell_dict_info_enumeration_clone            : Taspell_dict_info_enumeration_clone;
  aspell_dict_info_enumeration_assign           : Taspell_dict_info_enumeration_assign;
  new_aspell_string_list                        : Tnew_aspell_string_list;
  aspell_string_list_empty                      : Taspell_string_list_empty;
  aspell_string_list_size                       : Taspell_string_list_size;
  aspell_string_list_elements                   : Taspell_string_list_elements;
  aspell_string_list_add                        : Taspell_string_list_add;
  aspell_string_list_remove                     : Taspell_string_list_remove;
  aspell_string_list_clear                      : Taspell_string_list_clear;
  aspell_string_list_to_mutable_container       : Taspell_string_list_to_mutable_container;
  delete_aspell_string_list                     : Tdelete_aspell_string_list;
  aspell_string_list_clone                      : Taspell_string_list_clone;
  aspell_string_list_assign                     : Taspell_string_list_assign;
  new_aspell_string_map                         : Tnew_aspell_string_map;
  aspell_string_map_add                         : Taspell_string_map_add;
  aspell_string_map_remove                      : Taspell_string_map_remove;
  aspell_string_map_clear                       : Taspell_string_map_clear;
  aspell_string_map_to_mutable_container        : Taspell_string_map_to_mutable_container;
  delete_aspell_string_map                      : Tdelete_aspell_string_map;
  aspell_string_map_clone                       : Taspell_string_map_clone;
  aspell_string_map_assign                      : Taspell_string_map_assign;
  aspell_string_map_empty                       : Taspell_string_map_empty;
  aspell_string_map_size                        : Taspell_string_map_size;
  aspell_string_map_elements                    : Taspell_string_map_elements;
  aspell_string_map_insert                      : Taspell_string_map_insert;
  aspell_string_map_replace                     : Taspell_string_map_replace;
  aspell_string_map_lookup                      : Taspell_string_map_lookup;
  aspell_string_pair_enumeration_at_end         : Taspell_string_pair_enumeration_at_end;
  aspell_string_pair_enumeration_next           : Taspell_string_pair_enumeration_next;
  delete_aspell_string_pair_enumeration         : Tdelete_aspell_string_pair_enumeration;
  aspell_string_pair_enumeration_clone          : Taspell_string_pair_enumeration_clone;
  aspell_string_pair_enumeration_assign         : Taspell_string_pair_enumeration_assign;

{******************************** errors ********************************}
var
  aerror_other,
  aerror_operation_not_supported,
    aerror_cant_copy,
  aerror_file,
    aerror_cant_open_file,
      aerror_cant_read_file,
      aerror_cant_write_file,
    aerror_invalid_name,
    aerror_bad_file_format,
  aerror_dir,
    aerror_cant_read_dir,
  aerror_config,
    aerror_unknown_key,
    aerror_cant_change_value,
    aerror_bad_key,
    aerror_bad_value,
    aerror_duplicate,
  aerror_language_related,
    aerror_unknown_language,
    aerror_unknown_soundslike,
    aerror_language_not_supported,
    aerror_no_wordlist_for_lang,
    aerror_mismatched_language,
  aerror_encoding,
    aerror_unknown_encoding,
    aerror_encoding_not_supported,
    aerror_conversion_not_supported,
  aerror_pipe,
    aerror_cant_create_pipe,
    aerror_process_died,
  aerror_bad_input,
    aerror_invalid_word,
    aerror_word_list_flags,
      aerror_invalid_flag,
      aerror_conflicting_flags
    : AspellErrorInfo ;

implementation

uses registry;

type
  THandle = integer;
  DWORD   = LongWord;
  HMODULE = DWORD;
  LPCSTR  = PAnsiChar;
  FARPROC = pointer;

const
  HKEY_CLASSES_ROOT     = DWORD($80000000);
  HKEY_CURRENT_USER     = DWORD($80000001);
  HKEY_LOCAL_MACHINE    = DWORD($80000002);
  HKEY_USERS            = DWORD($80000003);
  HKEY_PERFORMANCE_DATA = DWORD($80000004);
  HKEY_CURRENT_CONFIG   = DWORD($80000005);
  HKEY_DYN_DATA         = DWORD($80000006);

  function GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC;
    stdcall; external 'kernel32.dll' name 'GetProcAddress';
  function LoadLibrary(lpLibFileName: PChar): HMODULE;
    stdcall; external 'kernel32.dll' name 'LoadLibraryA';

function LoadAspell(dllname:string=ASPELLDLL):boolean;
var AspellHandle:THandle;
    reg:TRegistry;
    sver:string;
  function LinkFunctions:boolean;
  begin
    Result := false;
    try
      @aspell_mutable_container_add                  := GetProcAddress(AspellHandle, 'aspell_mutable_container_add');
      @aspell_mutable_container_remove               := GetProcAddress(AspellHandle, 'aspell_mutable_container_remove');
      @aspell_mutable_container_clear                := GetProcAddress(AspellHandle, 'aspell_mutable_container_clear');