adisapi.pas

Async Professional 4.04

  {$IFDEF VERSION4}
  {.$ EXTERNALSYM IAudioTel}
  {$ENDIF}
  IAudioTel = interface (IUnknown)
    ['{2EC5A8A7-E65B-11d0-8FAC-08002BE4E62A}']
    function AudioObject (AudioObject : IUnknown) : HResult; stdcall;
    function WaveFormatSet (dWFEX : SDATA) : HResult; stdcall;
  end;
  {$IFDEF VERSION4}
  {.$ EXTERNALSYM PIAUDIOTEL}
  {$ENDIF}
  PIAUDIOTEL = ^IAudioTel;
  
  { Forward declarations of types }

  _DirectSREvents = dispinterface;
  IDirectSR = interface;
  IDirectSRDisp = dispinterface;

  _DirectSSEvents = dispinterface;
  IDirectSS = interface;
  IDirectSSDisp = dispinterface;

  { Declaration of CoClasses - map each CoClass to it's default interface }

  DirectSR = IDirectSR;
  DirectSS = IDirectSS;
  VoiceProp = IUnknown;

  { Needed structures }
  
  PInteger1 = ^Integer;
  PWideString1 = ^WideString; 

  { _DirectSREvents }

  _DirectSREvents = dispinterface
    ['{4E3D9D20-0C63-11D1-8BFB-0060081841DE}']
    procedure ClickIn (x : Integer; y : Integer); dispid 1;
    procedure ClickOut (x : Integer; y : Integer); dispid 2;
    procedure PhraseFinish (flags : Integer; beginhi : Integer;
                            beginlo : Integer;
                            endhi : Integer; endlo : Integer;
                            const Phrase : WideString;
                            const parsed : WideString;
                            results : Integer); dispid 3;
    procedure PhraseStart (hi : Integer; lo : Integer); dispid 4;
    procedure BookMark (MarkID : Integer); dispid 5;
    procedure Paused; dispid 6;
    procedure PhraseHypothesis (flags : Integer; beginhi : Integer;
                                beginlo : Integer; endhi : Integer;
                                endlo : Integer; const Phrase : WideString;
                                results : Integer); dispid 7;
    procedure ReEvaluate (results : Integer); dispid 8;
    procedure Training (train : Integer); dispid 9;
    procedure UnArchive (results : Integer); dispid 10;
    procedure AttribChanged (Attribute : Integer); dispid 11;
    procedure Interference (beginhi : Integer; beginlo : Integer;
                            endhi : Integer;
                            endlo : Integer; type_ : Integer); dispid 12;
    procedure Sound (beginhi : Integer; beginlo : Integer; endhi : Integer;
                     endlo : Integer); dispid 13;
    procedure UtteranceBegin (beginhi : Integer; beginlo : Integer); dispid 14;
    procedure UtteranceEnd (beginhi : Integer; beginlo : Integer;
                            endhi : Integer; endlo : Integer); dispid 15;
    procedure VUMeter (beginhi : Integer; beginlo : Integer;
                       level : Integer); dispid 16;
    procedure Error (warning : LongWord; const Details : WideString;
                     const Message : WideString); dispid 17;
    procedure warning (warning : LongWord; const Details : WideString;
                       const Message : WideString); dispid 18;
  end;

  { IDirectSR }

  IDirectSR = interface (IDispatch)
    ['{4E3D9D1E-0C63-11D1-8BFB-0060081841DE}']
    function Get_debug : Smallint; safecall;
    procedure Set_debug (pVal : Smallint); safecall;
    function Get_Initialized : Smallint; safecall;
    procedure Set_Initialized (pVal : Smallint); safecall;
    procedure Deactivate; safecall;
    procedure Activate; safecall;
    function Get_LastHeard : WideString; safecall;
    procedure Set_LastHeard (const pVal : WideString); safecall;
    procedure GrammarFromString (const grammar : WideString); safecall;
    procedure GrammarFromFile (const FileName : WideString); safecall;
    procedure GrammarFromResource (Instance : Integer;
                                   ResID : Integer); safecall;
    procedure GrammarFromStream (Stream : Integer); safecall;
    function Get_AutoGain : Integer; safecall;
    procedure Set_AutoGain (pVal : Integer); safecall;
    function Get_MinAutoGain : Integer; safecall;
    function Get_MaxAutoGain : Integer; safecall;
    function Get_Echo : Smallint; safecall;
    procedure Set_Echo (pVal : Smallint); safecall;
    function Get_EnergyFloor : Integer; safecall;
    procedure Set_EnergyFloor (pVal : Integer); safecall;
    function Get_MaxEnergyFloor : Integer; safecall;
    function Get_MinEnergyFloor : Integer; safecall;
    function Get_Microphone : WideString; safecall;
    procedure Set_Microphone (const pVal : WideString); safecall;
    function Get_Speaker : WideString; safecall;
    procedure Set_Speaker (const pVal : WideString); safecall;
    function Get_RealTime : Integer; safecall;
    procedure Set_RealTime (pVal : Integer); safecall;
    function Get_MaxRealTime : Integer; safecall;
    function Get_MinRealTime : Integer; safecall;
    function Get_Threshold : Integer; safecall;
    procedure Set_Threshold (pVal : Integer); safecall;
    function Get_MaxThreshold : Integer; safecall;
    function Get_MinThreshold : Integer; safecall;
    function Get_CompleteTimeOut : Integer; safecall;
    procedure Set_CompleteTimeOut (pVal : Integer); safecall;
    function Get_IncompleteTimeOut : Integer; safecall;
    procedure Set_IncompleteTimeOut (pVal : Integer); safecall;
    function Get_MaxCompleteTimeOut : Integer; safecall;
    function Get_MinCompleteTimeOut : Integer; safecall;
    function Get_MaxIncompleteTimeOut : Integer; safecall;
    function Get_MinIncompleteTimeOut : Integer; safecall;
    procedure Pause; safecall;
    procedure Resume; safecall;
    procedure PosnGet (out hi : Integer; out lo : Integer); safecall;
    procedure AboutDlg (hwnd : Integer; const title : WideString); safecall;
    procedure GeneralDlg (hwnd : Integer; const title : WideString); safecall;
    procedure LexiconDlg (hwnd : Integer; const title : WideString); safecall;
    procedure TrainGeneralDlg (hwnd : Integer;
                               const title : WideString); safecall;
    procedure TrainMicDlg (hwnd : Integer; const title : WideString); safecall;
    function Get_Wave (results : Integer) : Integer; safecall;
    function Get_Phrase (results : Integer;
                          rank : Integer) : WideString; safecall;
    function Get_CreateResultsObject (results : Integer) : Integer; safecall;
    procedure DestroyResultsObject (resobj : Integer); safecall;
    procedure Select (index : Integer); safecall;
    procedure Listen; safecall;
    procedure SelectEngine (index : SYSINT); safecall;
    function FindEngine (const EngineId : WideString;
                          const MfgName : WideString;
                          const ProductName : WideString;
                          const ModeID : WideString;
                          const ModeName : WideString; LanguageID : Integer;
                          const dialect : WideString; Sequencing : Integer;
                          MaxWordsVocab : Integer; MaxWordsState : Integer;
                          Grammars : Integer; Features : Integer;
                          Interfaces : Integer; EngineFeatures : Integer;
                          RankEngineID : Integer; RankMfgName : Integer;
                          RankProductName : Integer; RankModeID : Integer;
                          RankModeName : Integer; RankLanguage : Integer;
                          RankDialect : Integer; RankSequencing : Integer;
                          RankMaxWordsVocab : Integer;
                          RankMaxWordsState : Integer; RankGrammars : Integer;
                          RankFeatures : Integer; RankInterfaces : Integer;
                          RankEngineFeatures : Integer) : Integer; safecall;
    function Get_CountEngines : Integer; safecall;
    function ModeName (index : SYSINT) : WideString; safecall;
    function EngineId (index : SYSINT) : WideString; safecall;
    function MfgName (index : SYSINT) : WideString; safecall;
    function ProductName (index : SYSINT) : WideString; safecall;
    function ModeID (index : SYSINT) : WideString; safecall;
    function Features (index : SYSINT) : Integer; safecall;
    function Interfaces (index : SYSINT) : Integer; safecall;
    function EngineFeatures (index : SYSINT) : Integer; safecall;
    function LanguageID (index : SYSINT) : Integer; safecall;
    function dialect (index : SYSINT) : WideString; safecall;
    function Sequencing (index : SYSINT) : Integer; safecall;
    function MaxWordsVocab (index : SYSINT) : Integer; safecall;
    function MaxWordsState (index : SYSINT) : Integer; safecall;
    function Grammars (index : SYSINT) : Integer; safecall;
    procedure InitAudioSourceDirect (direct : Integer); safecall;
    procedure InitAudioSourceObject (object_ : Integer); safecall;
    function Get_FileName : WideString; safecall;
    procedure Set_FileName (const pVal : WideString); safecall;
    function Get_FlagsGet (results : Integer;
                            rank : Integer) : Integer; safecall;
    function Get_Identify (results : Integer) : WideString; safecall;
    procedure TimeGet (results : Integer; var beginhi : Integer;
                       var beginlo : Integer; var endhi : Integer;
                       var endlo : Integer); safecall;
    procedure Correction (results : Integer; const Phrase : WideString;
                          confidence : Smallint); safecall;
    procedure Validate (results : Integer; confidence : Smallint); safecall;
    function Get_ReEvaluate (results : Integer) : Integer; safecall;
    function Get_GetPhraseScore (results : Integer;
                                 rank : Integer) : Integer; safecall;
    procedure Archive (keepresults : Integer; out size : Integer;
                       out pVal : Integer); safecall;
    procedure DeleteArchive (Archive : Integer); safecall;
    procedure GrammarFromMemory (grammar : Integer; size : Integer); safecall;
    procedure GrammarDataSet (Data : Integer; size : Integer); safecall;
    procedure GrammarToMemory (var grammar : Integer;
                               var size : Integer); safecall;
    procedure ActivateAndAssignWindow (hwnd : Integer); safecall;
    function Get_LastError : Integer; safecall;
    procedure Set_LastError (pVal : Integer); safecall;
    function Get_SuppressExceptions : Integer; safecall;
    procedure Set_SuppressExceptions (pVal : Integer); safecall;
    function Get_hwnd : Integer; safecall;
    function Find (const RankList : WideString) : Integer; safecall;
    function Get_SRMode : Integer; safecall;
    procedure Set_SRMode (pVal : Integer); safecall;
    function Get_GetAllArcStrings (punk : Integer;
                                    results : Integer) : WideString; safecall;
    function Get_Attributes (Attrib : Integer) : Integer; safecall;
    procedure Set_Attributes (Attrib : Integer; pVal : Integer); safecall;
    function Get_AttributeString (Attrib : Integer) : WideString; safecall;
    procedure Set_AttributeString (Attrib : Integer;
                                   const pVal : WideString); safecall;
    function Get_AttributeMemory (Attrib : Integer;
                                   var size : Integer) : Integer; safecall;
    procedure Set_AttributeMemory (Attrib : Integer;
                                   var size : Integer;
                                   pVal : Integer); safecall;
    function Get_WaveEx (results : Integer; beginhi : Integer;
                          beginlo : Integer; endhi : Integer;
                          endlo : Integer) : Integer; safecall;
    function Get_NodeStart (results : Integer) : Integer; safecall;
    function Get_NodeEnd (results : Integer) : Integer; safecall;
    procedure ArcEnum (results : Integer; node : Integer; Outgoing : Integer;
                       var nodelist : Integer;
                       var countnodes : Integer); safecall;
    procedure BestPathEnum (results : Integer; rank : Integer;
                            var startpath : Integer; startpathsteps : Integer;
                            var endpath : Integer; endpathsteps : Integer;
                            exactmatch : Integer; var arclist : Integer;
                            var arccount : Integer); safecall;
    function Get_DataGetString (results : Integer; id : Integer;
                                const Attrib : WideString) :
                                                        WideString; safecall;
    procedure DataGetTime (results : Integer; id : Integer;
                           const Attrib : WideString; var hi : Integer;
                           var lo : Integer); safecall;
    function Get_score (results : Integer; scoretype : Integer;
                        var path : Integer;pathsteps : Integer;
                        pathindexstart : Integer;
                        pathindexcount : Integer) : Integer; safecall;
    procedure GetAllArcs (results : Integer; var arcids : Integer;
                          var arccount : Integer); safecall;
    procedure GetAllNodes (results : Integer; var Nodes : Integer;
                           var countnodes : Integer); safecall;
    function Get_NodeGet (results : Integer; arc : Integer;
                          destination : Integer) : Integer; safecall;
    function Get_GraphDWORDGet (results : Integer; id : Integer;
                                 const Attrib : WideString) : Integer; safecall;
    procedure RenameSpeaker (const OldName : WideString;
                             const newName : WideString); safecall;
    procedure DeleteSpeaker (const Speaker : WideString); safecall;