def.pas

采用多线程方式朗读中文文档

unit def;

interface

uses
    Windows;

Type
    // 开始朗读
    // pText        指向朗读的字符串指针
    // nLength      要朗读的字节长度
    // 成功则返回 0，否则返回非零值
    TStartReading = function (pText: Pchar; nLength: Integer): BOOL; stdcall;

    // 中止朗读
    TStopReading = procedure; stdcall;

const
    TtsInit_Successed = 0;     // 初始化成功
    TtsInit_Error_Sound = 1;   // Direct Sound 初始化错误
    TtsInit_Error_ACM = 2;     // ACM 初始化错误
    TtsInit_Error_Lib = 3;     // 库加载错误
type
    // 系统初始化
    // Ahandle      主程序的窗口句柄，不能够为0
    // 返回值含义见上
    TTtsInit = function(Ahandle: HWND): HRESULT; stdcall;

    // 系统释放
    TTtsFree = procedure; stdcall;

    // 检查朗读状态
    TIsReading = function: BOOL; stdcall;

implementation

end.