adisapi.pas

Async Professional 4.04

{*********************************************************}
{*                   ADISAPI.PAS 4.04                    *}
{*         Copyright (C) TurboPower Software 2002        *}
{*                 All rights reserved.                  *}
{*********************************************************}

{Global defines potentially affecting this unit}
{$I AWDEFINE.INC}

{$UNDEF LIVE_SERVER_AT_DESIGN_TIME}
{$A+}

{$IFDEF AProBCB}
  {$Warnings Off}
{$ENDIF}

{ This unit contains the type library needed by the Sapi Engine and Sapi
  Phone components }

unit AdISapi;


interface                 

uses                         
  ActiveX,
  Classes,
  Graphics,
  OleCtrls,
  {$IFDEF Delphi5}
  OleServer,
  {$ENDIF}
  StdVCL,
  {$IFDEF Delphi6}
  Variants,
  {$ENDIF}
  Windows,
  OoMisc;

const

  { TypeLibrary Major and minor versions }

  ACTIVEVOICEPROJECTLibMajorVersion = 1;
  ACTIVEVOICEPROJECTLibMinorVersion = 0;

  ACTIVELISTENPROJECTLibMajorVersion = 1;
  ACTIVELISTENPROJECTLibMinorVersion = 0;

  TELLibMajorVersion = 1;
  TELLibMinorVersion = 0;

  LIBID_ACTIVEVOICEPROJECTLib : TGUID =
      '{EEE78583-FE22-11D0-8BEF-0060081841DE}';

  DIID__DirectSSEvents : TGUID = '{EEE78597-FE22-11D0-8BEF-0060081841DE}';
  IID_IDirectSS : TGUID = '{EEE78590-FE22-11D0-8BEF-0060081841DE}';
  CLASS_DirectSS : TGUID = '{EEE78591-FE22-11D0-8BEF-0060081841DE}';
  CLASS_VoiceProp : TGUID = '{EEE78592-FE22-11D0-8BEF-0060081841DE}';

  LIBID_ACTIVELISTENPROJECTLib : TGUID =
      '{4E3D9D11-0C63-11D1-8BFB-0060081841DE}';

  DIID__DirectSREvents : TGUID = '{4E3D9D20-0C63-11D1-8BFB-0060081841DE}';
  IID_IDirectSR : TGUID = '{4E3D9D1E-0C63-11D1-8BFB-0060081841DE}';
  CLASS_DirectSR : TGUID = '{4E3D9D1F-0C63-11D1-8BFB-0060081841DE}';

  LIBID_TELLib : TGUID = '{FC9E7401-6058-11D1-8C66-0060081841DE}';

  LANG_LEN     = 64;

type
  {$IFDEF VERSION4}
  QWORD = Int64;
  {$ELSE}
  QWORD = Longint;
  LongWord = Longint; 
  {$ENDIF}
  SDATA = record
    pData : pointer;
    dwSize : DWORD;
  end;
  TSData = SDATA;

  PLanguageW = ^TLanguageW;
  LANGUAGEW = record
    LanguageID : LangID;
    szDialect : array[0..LANG_LEN - 1] of WideChar;
  end;
  TLanguageW = LANGUAGEW;

  SRGRMFMT = UINT;

  PSRPhraseW = ^TSRPhraseW;
  SRPHRASEW = record
    dwSize :    DWORD;
    abWords : record end;
  end;
  TSRPhraseW = SRPHRASEW;

const
  {$IFDEF VERSION4}
  {$EXTERNALSYM CLSID_MMAudioSource}
  {$ENDIF}
  CLSID_MMAudioSource : TGUID = '{D24FE500-C743-11CD-80E5-00AA003E4B50}';
  {$IFDEF VERSION4}
  {$EXTERNALSYM CLSID_AudioSourceTel}
  {$ENDIF} 
  CLSID_AudioSourceTel : TGUID = '{2EC5A8A5-E65B-11D0-8FAC-08002BE4E62A}';
  {$IFDEF VERSION4}
  {$EXTERNALSYM CLSID_AudioDestTel}
  {$ENDIF}
  CLSID_AudioDestTel : TGUID = '{2EC5A8A6-E65B-11D0-8FAC-08002BE4E62A}';

  SID_IAudioMultiMediaDevice = '{B68AD320-C743-11cd-80E5-00AA003E4B50}';
  SID_IAudioTel              = '{2EC5A8A7-E65B-11D0-8FAC-08002BE4E62A}';

  {$IFDEF VERSION4}
  {$EXTERNALSYM IID_IAudioMultiMediaDevice}
  {$ENDIF}
  IID_IAudioMultiMediaDevice : TGUID = '{B68AD320-C743-11CD-80E5-00AA003E4B50}';

  {$IFDEF VERSION4}
  {$EXTERNALSYM IID_IAudioTel}
  {$ENDIF}
  IID_IAudioTel : TGUID = '{2EC5A8A7-E65B-11D0-8FAC-08002BE4E62A}';

type

  { Speech recognition event types }

  TDirectSRClickIn =
      procedure (Sender : TObject; x : Integer; y : Integer) of object;
  TDirectSRClickOut =
      procedure (Sender : TObject; x : Integer; y : Integer) of object;
  TDirectSRPhraseFinish =
      procedure (Sender : TObject; flags : Integer; beginhi : Integer;
                 beginlo : Integer; endhi : Integer;
                 endlo : Integer; const Phrase : WideString;
                 const parsed : WideString; results : Integer) of object;
  TDirectSRPhraseStart =
      procedure (Sender : TObject; hi : Integer; lo : Integer) of object;
  TDirectSRBookMark =
      procedure (Sender : TObject; MarkID : Integer) of object;
  TDirectSRPhraseHypothesis =
      procedure (Sender : TObject; flags : Integer; beginhi : Integer;
                 beginlo : Integer; endhi : Integer;
                 endlo : Integer; const Phrase : WideString;
                 results : Integer) of object;
  TDirectSRReEvaluate =
      procedure (Sender : TObject; results : Integer) of object;
  TDirectSRTraining =
      procedure (Sender : TObject; train : Integer) of object;
  TDirectSRUnArchive =
      procedure (Sender : TObject; results : Integer) of object;
  TDirectSRAttribChanged =
      procedure (Sender : TObject; Attribute : Integer) of object;
  TDirectSRInterference =
      procedure (Sender : TObject; beginhi : Integer; beginlo : Integer;
                 endhi : Integer; endlo : Integer; type_ : Integer) of object;
  TDirectSRSound =
      procedure (Sender : TObject; beginhi : Integer; beginlo : Integer;
                 endhi : Integer; endlo : Integer) of object;
  TDirectSRUtteranceBegin =
      procedure (Sender : TObject; beginhi : Integer;
                 beginlo : Integer) of object;
  TDirectSRUtteranceEnd =
      procedure (Sender : TObject; beginhi : Integer; beginlo : Integer;
                 endhi : Integer; endlo : Integer) of object;
  TDirectSRVUMeter =
      procedure (Sender : TObject; beginhi : Integer; beginlo:Integer;
                level : Integer) of object;
  TDirectSRError =
      procedure (Sender : TObject; warning : LongWord;
                 const Details : WideString;
                 const Message : WideString) of object;
  TDirectSRwarning =
      procedure (Sender : TObject; warning : LongWord;
                 const Details : WideString;
                 const Message : WideString) of object;

  { Speech synthesis event types }

  TDirectSSClickIn =
      procedure (Sender : TObject; x : Integer; y : Integer) of object;
  TDirectSSClickOut =
      procedure (Sender : TObject; x : Integer; y : Integer) of object;
  TDirectSSAudioStart =
      procedure (Sender : TObject; hi : Integer; lo : Integer) of object;
  TDirectSSAudioStop =
      procedure (Sender : TObject; hi : Integer; lo : Integer) of object;
  TDirectSSAttribChanged =
      procedure (Sender : TObject; which_attribute : Integer) of object;
  TDirectSSVisual =
      procedure (Sender : TObject; timehi : Integer; timelo : Integer;
                 Phoneme : Smallint; EnginePhoneme : Smallint; hints : Integer;
                 MouthHeight : Smallint; bMouthWidth : Smallint;
                 bMouthUpturn : Smallint; bJawOpen : Smallint;
                 TeethUpperVisible : Smallint;
                 TeethLowerVisible : Smallint; TonguePosn : Smallint;
                 LipTension : Smallint) of object;
  TDirectSSWordPosition =
      procedure (Sender : TObject; hi : Integer; lo : Integer;
                 byteoffset : Integer) of object;
  TDirectSSBookMark =
      procedure (Sender : TObject; hi : Integer; lo : Integer;
                 MarkNum : Integer) of object;
  TDirectSSTextDataStarted =
      procedure (Sender : TObject; hi : Integer; lo : Integer) of object;
  TDirectSSTextDataDone =
      procedure (Sender : TObject; hi : Integer; lo : Integer;
                 Flags : Integer) of object;
  TDirectSSActiveVoiceStartup =
      procedure (Sender : TObject; init : Integer; init2 : Integer) of object;
  TDirectSSError =
      procedure (Sender : TObject; warning : LongWord;
                 const Details : WideString;
                 const Message : WideString) of object;
  TDirectSSwarning =
      procedure (Sender : TObject; warning : LongWord;
                 const Details : WideString;
                 const Message : WideString) of object;
  TDirectSSVisualFuture =
      procedure (Sender : TObject; milliseconds : Integer; timehi : Integer;
                 timelo : Integer; Phoneme : Smallint;
                 EnginePhoneme : Smallint; hints : Integer;
                 MouthHeight : Smallint; bMouthWidth : Smallint;
                 bMouthUpturn : Smallint; bJawOpen : Smallint;
                 TeethUpperVisible : Smallint;
                 TeethLowerVisible : Smallint;
                 TonguePosn : Smallint; LipTension : Smallint) of object;

type
  {$IFDEF VERSION4}
  {.$ EXTERNALSYM IAudioMultiMediaDevice}
  {$ENDIF}
  IAudioMultiMediaDevice = interface (IUnknown)
    [SID_IAudioMultiMediaDevice]
    function CustomMessage (uMsg : UINT; dData : SDATA) : HResult; stdcall;
    function DeviceNumGet (var dwDeviceID : DWORD) : HResult; stdcall;
    function DeviceNumSet (dwDeviceID : DWORD) : HResult; stdcall;
  end; // IAudioMultiMediaDevice
  {$IFDEF VERSION4}
  {.$ EXTERNALSYM PIAUDIOMULTIMEDIADEVICE}
  {$ENDIF}
  PIAUDIOMULTIMEDIADEVICE = ^IAudioMultiMediaDevice;