unit DJTTS3;

interface

uses windows;

const
  INFO_CONVERT_COMPLATE =           1;   //語音文件轉換完畢
  INFO_CONVERT_NOT_COMPLATE =       2;   //語音文件轉換未完畢

  INFO_PLAY_COMPLATE =              3;   //轉換播放完畢
  INFO_PLAY_NOT_COMPLATE =          4;   //轉換播放未完畢

  INFO_USE_LABLE =                  1;   //使用使用轉換標識
  INFO_NOTUSE_LABLE =               0;   //不使用使用轉換標識

  INFO_TEXT_BUFFER =                0;   //文本字符串
  INFO_TEXT_FILENAME =             -1;   //文本文件名

  OPERATE_SUCCESS =                 0;   //操作成功

  ERR_NOT_INIT_TTS_CARD =          -1;  //沒有初始化語音卡
  ERR_NOT_TTS_CARD =               -2;  //不是TTS卡
  ERR_MEMERY_ASSIGN_FAIL =         -3;  //內存分配失敗
  ERR_NO_TTS_CHANNEL =             -4;  //沒有TTS通道資源
  ERR_INIT_TTS_CHANNEL_FAIL =      -5;  //初始化TTS通道失敗
  ERR_TTS_CHANNELNO_INVALID =      -6;  //TTS通道號無效
  ERR_TTS_CHANNEL_NO_FREE =        -7;  //TTS通道不空閑
  ERR_INPUTTEXTSTR_INVALID =       -8;  //輸入文本字符串為空
  ERR_INPUTTEXTFILE_NOT_EXISTS =   -9;  //輸入文本文件不存在

{-------------------------------------------------------------------------------
  Procedure: DJTTS3_Init
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments:
  Result:    LongInt
    大于0的數值                    　 ·操作成功(返回可以使用語音通道數)
     ERR_NOT_INIT_TTS_CARD            ·沒有初始化語音卡
     ERR_NOT_TTS_CARD                 ·不是TTS卡
     ERR_NO_TTS_CHANNEL               ·沒有TTS通道資源
     ERR_INIT_TTS_CHANNEL_FAIL        ·初始化TTS通道失敗
  Popose:     TTS初始化。為了使用TTS功能，必須成功調用本函數。本函數首先創建轉換
    線程并分配內存。本函數還要求在系統中，存在D161A-TTS卡并且已經成功的初始化了
    該卡（成功調用函數EnableCard）。
-------------------------------------------------------------------------------}
function  DJTTS3_Init(): LongInt; stdcall; far external 'DJTTS3.dll';

{-------------------------------------------------------------------------------
  Procedure: DJTTS3_AddTTSToChannel
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments: wChnlNo: Word
  Result:    LongInt
 　  OPERATE_SUCCESS               　  ·操作成功
     ERR_TTS_CHANNELNO_INVALID         ·TTS通道號無效
     ERR_TTS_CHANNEL_ISNOT_ENOUGH      ·TTS通道資源不夠
  Popose:    在DJTTS3_Init成功后調用，向可用的語音通道添加TTS引擎資源。為了使用
    TTS功能，必須成功調用本函數。注意：建議只對需要TTS功能的語音通道（一般為外線
    通道）添加TTS引擎資源，以減少系統資源的使用和轉換效率的提高。
-------------------------------------------------------------------------------}
function  DJTTS3_AddTTSToChannel(wChnlNo: Word): LongInt; stdcall; far external 'DJTTS3.dll';

{-------------------------------------------------------------------------------
  Procedure: DJTTS3_DelTTSFromChannel
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments: wChnlNo: Word
  Result:    LongInt
     OPERATE_SUCCESS                  ·操作成功
     ERR_TTS_CHANNELNO_INVALID        ·TTS通道號無效
  Popose:    在DJTTS3_Release前調用，從可用的語音通道釋放TTS引擎資源。
-------------------------------------------------------------------------------}
function  DJTTS3_DelTTSFromChannel(wChnlNo: Word): LongInt; stdcall; far external 'DJTTS3.dll';

{-------------------------------------------------------------------------------
  Procedure: DJTTS3_GetTotalTTSChannel
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments:
  Result:    integer
  Popose:    返回系統中激活的TTS通道資源的個數。
-------------------------------------------------------------------------------}
function DJTTS3_GetTotalTTSChannel(): Integer; stdcall; far external 'DJTTS3.dll';

{-------------------------------------------------------------------------------
  Procedure: DJTTS3_GetLeaveTTSChannel
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments:
  Result:    integer
  Popose:    返回系統中激活了未使用的TTS通道資源的個數。
-------------------------------------------------------------------------------}
function DJTTS3_GetLeaveTTSChannel(): Integer; stdcall; far external 'DJTTS3.dll';

{-------------------------------------------------------------------------------
  Procedure: DJTTS3_Release
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments: 
  Result:    None
  Popose:    釋放初始化函數占用的資源。本函數必須在DisableCard之前調用。
-------------------------------------------------------------------------------}
procedure DJTTS3_Release(); stdcall; far external 'DJTTS3.dll';

{-------------------------------------------------------------------------------
  Procedure: DJTTS3_StartPlayText
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments: wChnlNo: Word; pText: Pchar; InputType: Integer; iVoice: Integer = 0; iSpeed: Integer = 50; iVolume: Integer = 50; iLableFlag: Integer = INFO_USE_LABLE
  Result:    LongInt
 　　OPERATE_SUCCESS              　·操作成功
　　 ERR_TTS_CHANNELNO_INVALID      ·TTS通道號無效
　　 ERR_NO_TTS_CHANNEL             ·沒有TTS引擎資源
　　 ERR_TTS_CHANNEL_NO_FREE        ·TTS通道不空閑
　　 ERR_INPUTTEXTSTR_INVALID       ·輸入文本字符串為空
     ERR_INPUTTEXTFILE_NOT_EXISTS   ·輸入文本文件不存在
  Popose:    某個通道開始一個TTS放音。當成功的調用了本函數后，應該不斷的調用函數
    DJTTS3_CheckPlayTextEnd，以維持TTS放音的持續；如果需要停止TTS放音，可以調用
    函數DJTTS3_StopPlayText。
-------------------------------------------------------------------------------}
function  DJTTS3_StartPlayText(wChnlNo: Word; pText: Pchar; InputType: Integer;
  iVoice: Integer = 0; iSpeed: Integer = 50; iVolume: Integer = 50;
  iLableFlag: Integer = INFO_USE_LABLE): LongInt; stdcall; far external 'DJTTS3.dll';

{-------------------------------------------------------------------------------
  Procedure: DJTTS3_CheckPlayTextEnd
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments: wChnlNo: word
  Result:    LongInt
     INFO_PLAY_COMPLATE              ·轉換播放完畢
     INFO_PLAY_NOT_COMPLATE          ·轉換播放未完畢
     ERR_TTS_CHANNELNO_INVALID       ·TTS通道號無效
     ERR_NO_TTS_CHANNEL              ·沒有TTS引擎資源
  Popose:    檢查通道TTS放音是否結束，并維持TTS放音的持續。在成功調用函數
    DJTTS3_StartPlayText開始一個TTS放音以后，必須不斷的調用本函數。
-------------------------------------------------------------------------------}
function  DJTTS3_CheckPlayTextEnd(wChnlNo: word): LongInt; stdcall; far external 'DJTTS3.dll';
{-------------------------------------------------------------------------------
  Procedure: DJTTS3_StopPlayText
  Author:    Xsp
  DateTime:  2006.04.25
  Arguments: wChnlNo: word
  Result:    LongInt
     OPERATE_SUCCESS                 ·操作成功
     ERR_TTS_CHANNELNO_INVALID       ·TTS通道號無效
     ERR_NO_TTS_CHANNEL              ·沒有TTS引擎資源
  Popose:    停止通道TTS放音。
-------------------------------------------------------------------------------}
function	DJTTS3_StopPlayText(wChnlNo: word): LongInt; stdcall; far external 'DJTTS3.dll';

function	DJTTS3_CvtTextToVocFile(pText: Pchar; iVoice: Integer;
  pVocFileName: Pchar; wChnlNo: Word = 0; iSpeed: Integer = 50;
  iVolume: Integer = 50; iLableFlag: Integer = INFO_USE_LABLE): LongInt; stdcall; far external 'DJTTS3.dll';
function	DJTTS3_CvtTextToWaveFile(pText: Pchar; iVoice: Integer;
  pWaveFileName: PChar; wChnlNo: Word = 0; iSpeed: Integer = 50;
  iVolume: Integer = 50; iLableFlag: Integer = INFO_USE_LABLE): LongInt; stdcall; far external 'DJTTS3.dll';
function	DJTTS3_CvtTextFileToVocFile(pTextFileName: Pchar; iVoice: Integer;
  pVocFileName: Pchar; wChnlNo: Word = 0; iSpeed: Integer = 50;
  iVolume: Integer = 50; iLableFlag: Integer = INFO_USE_LABLE): LongInt; stdcall; far external 'DJTTS3.dll';
function	DJTTS3_CvtTextFileToWaveFile(pTextFileName: PChar; iVoice: Integer;
  pWaveFileName: Pchar; wChnlNo: Word = 0; iSpeed: Integer = 50;
  iVolume: Integer = 50; iLableFlag: Integer = INFO_USE_LABLE): LongInt; stdcall; far external 'DJTTS3.dll';
function  DJTTS3_CheckCvtEnd(wChnlNo: Word = 0): LongInt; stdcall; far external 'DJTTS3.dll';
function  DJTTS3_CvtStop(wChnlNo: Word = 0): LongInt; stdcall; far external 'DJTTS3.dll';

function  DJTTS3_StartAudioPlayText(pText: PChar; InputType: Integer;
  iVoice: Integer = 0; iSpeed: Integer = 50; iVolume: Integer = 50;
  iLableFlag: Integer = INFO_USE_LABLE): LongInt; stdcall; far external 'DJTTS3.dll';
function  DJTTS3_StopAudioPlayText(): LongInt; stdcall; far external 'DJTTS3.dll';
function  DJTTS3_CheckAudioPlayText(): LongInt; stdcall; far external 'DJTTS3.dll';

implementation

end.