adisapi.pas

Async Professional 4.04

    procedure CommitSpeaker; safecall;
    procedure RevertSpeaker (const Speaker : WideString); safecall;
    function Get_SpeakerInfoChanged (var filetimehi : Integer;
                                     var filetimelo : Integer) :
                                                            Integer; safecall;
    procedure TrainPhrasesDlg (hwnd : Integer;
                               const title : WideString); safecall;
    procedure LexAddTo (lex : LongWord; charset : Integer;
                        const text : WideString;
                        const pronounce : WideString; partofspeech : Integer;
                        EngineInfo : Integer;
                        engineinfosize : Integer); safecall;
    procedure LexGetFrom (lex : Integer; charset : Integer;
                          const text : WideString; sense : Integer;
                          var pronounce : WideString;
                          var partofspeech : Integer;
                          var EngineInfo : Integer;
                          var sizeofengineinfo : Integer); safecall;
    procedure LexRemoveFrom (lex : Integer; const text : WideString;
                             sense : Integer); safecall;
    procedure QueryLexicons (f : Integer; var pdw : Integer); safecall;
    procedure ChangeSpelling (lex : Integer; const stringa : WideString;
                              const stringb : WideString); safecall;
    property debug : Smallint read Get_debug write Set_debug;
    property Initialized : Smallint read Get_Initialized write Set_Initialized;
    property LastHeard : WideString read Get_LastHeard write Set_LastHeard;
    property AutoGain : Integer read Get_AutoGain write Set_AutoGain;
    property MinAutoGain : Integer read Get_MinAutoGain;
    property MaxAutoGain : Integer read Get_MaxAutoGain;
    property Echo : Smallint read Get_Echo write Set_Echo;
    property EnergyFloor : Integer read Get_EnergyFloor write Set_EnergyFloor;
    property MaxEnergyFloor : Integer read Get_MaxEnergyFloor;
    property MinEnergyFloor : Integer read Get_MinEnergyFloor;
    property Microphone : WideString read Get_Microphone write Set_Microphone;
    property Speaker : WideString read Get_Speaker write Set_Speaker;
    property RealTime : Integer read Get_RealTime write Set_RealTime;
    property MaxRealTime : Integer read Get_MaxRealTime;
    property MinRealTime : Integer read Get_MinRealTime;
    property Threshold : Integer read Get_Threshold write Set_Threshold;
    property MaxThreshold : Integer read Get_MaxThreshold;
    property MinThreshold : Integer read Get_MinThreshold;
    property CompleteTimeOut : Integer
             read Get_CompleteTimeOut write Set_CompleteTimeOut;
    property IncompleteTimeOut : Integer
             read Get_IncompleteTimeOut write Set_IncompleteTimeOut;
    property MaxCompleteTimeOut : Integer read Get_MaxCompleteTimeOut;
    property MinCompleteTimeOut : Integer read Get_MinCompleteTimeOut;
    property MaxIncompleteTimeOut : Integer read Get_MaxIncompleteTimeOut;
    property MinIncompleteTimeOut : Integer read Get_MinIncompleteTimeOut;
    property Wave[results : Integer] : Integer read Get_Wave;
    property Phrase[results : Integer; rank : Integer] : WideString
             read Get_Phrase;
    property CreateResultsObject[results : Integer] : Integer
             read Get_CreateResultsObject;
    property CountEngines : Integer read Get_CountEngines;
    property FileName : WideString read Get_FileName write Set_FileName;
    property FlagsGet[results : Integer; rank : Integer] : Integer
             read Get_FlagsGet;
    property Identify[results : Integer] : WideString read Get_Identify;
    property ReEvaluate[results : Integer] : Integer read Get_ReEvaluate;
    property GetPhraseScore[results : Integer; rank : Integer] : Integer
             read Get_GetPhraseScore;
    property LastError : Integer read Get_LastError write Set_LastError;
    property SuppressExceptions : Integer
             read Get_SuppressExceptions write Set_SuppressExceptions;
    property hwnd : Integer read Get_hwnd;
    property SRMode : Integer read Get_SRMode write Set_SRMode;
    property GetAllArcStrings[punk : Integer; results : Integer] : WideString
             read Get_GetAllArcStrings;
    property Attributes[Attrib : Integer] : Integer
             read Get_Attributes write Set_Attributes;
    property AttributeString[Attrib : Integer] : WideString
             read Get_AttributeString write Set_AttributeString;
    property AttributeMemory[Attrib : Integer; var size : Integer] : Integer
             read Get_AttributeMemory write Set_AttributeMemory;
    property WaveEx[results : Integer; beginhi : Integer; beginlo : Integer;
                    endhi : Integer; endlo : Integer] : Integer read Get_WaveEx;
    property NodeStart[results : Integer] : Integer read Get_NodeStart;
    property NodeEnd[results : Integer] : Integer read Get_NodeEnd;
    property DataGetString[results : Integer; id : Integer;
                           const Attrib : WideString] : WideString
             read Get_DataGetString;
    property score[results : Integer; scoretype : Integer;
                   var path : Integer; pathsteps : Integer;
                   pathindexstart : Integer; pathindexcount : Integer] : Integer
             read Get_score;
    property NodeGet[results : Integer; arc : Integer;
                     destination : Integer] : Integer read Get_NodeGet;
    property GraphDWORDGet[results : Integer; id : Integer;
                           const Attrib : WideString] : Integer
             read Get_GraphDWORDGet;
    property SpeakerInfoChanged[var filetimehi : Integer;
                                var filetimelo : Integer] : Integer
             read Get_SpeakerInfoChanged;
  end;

  { IDirectSRDisp }

  IDirectSRDisp = dispinterface
    ['{4E3D9D1E-0C63-11D1-8BFB-0060081841DE}']
    property debug : Smallint dispid 1;
    property Initialized : Smallint dispid 2;
    procedure Deactivate; dispid 4;
    procedure Activate; dispid 5;
    property LastHeard : WideString dispid 6;
    procedure GrammarFromString (const grammar : WideString); dispid 7;
    procedure GrammarFromFile (const FileName : WideString); dispid 8;
    procedure GrammarFromResource (Instance : Integer;
                                   ResID : Integer); dispid 9;
    procedure GrammarFromStream (Stream : Integer); dispid 10;
    property AutoGain : Integer dispid 11;
    property MinAutoGain : Integer readonly dispid 12;
    property MaxAutoGain : Integer readonly dispid 13;
    property Echo : Smallint dispid 14;
    property EnergyFloor : Integer dispid 15;
    property MaxEnergyFloor : Integer readonly dispid 16;
    property MinEnergyFloor : Integer readonly dispid 17;
    property Microphone : WideString dispid 18;
    property Speaker : WideString dispid 19;
    property RealTime : Integer dispid 20;
    property MaxRealTime : Integer readonly dispid 21;
    property MinRealTime : Integer readonly dispid 22;
    property Threshold : Integer dispid 23;
    property MaxThreshold : Integer readonly dispid 24;
    property MinThreshold : Integer readonly dispid 25;
    property CompleteTimeOut : Integer dispid 26;
    property IncompleteTimeOut : Integer dispid 27;
    property MaxCompleteTimeOut : Integer readonly dispid 28;
    property MinCompleteTimeOut : Integer readonly dispid 29;
    property MaxIncompleteTimeOut : Integer readonly dispid 30;
    property MinIncompleteTimeOut : Integer readonly dispid 31;
    procedure Pause; dispid 32;
    procedure Resume; dispid 33;
    procedure PosnGet (out hi : Integer; out lo : Integer); dispid 34;
    procedure AboutDlg (hwnd : Integer; const title : WideString); dispid 35;
    procedure GeneralDlg (hwnd : Integer; const title : WideString); dispid 36;
    procedure LexiconDlg (hwnd : Integer; const title : WideString); dispid 37;
    procedure TrainGeneralDlg (hwnd : Integer;
                               const title : WideString); dispid 38;
    procedure TrainMicDlg (hwnd : Integer; const title : WideString); dispid 39;
    property Wave[results : Integer] : Integer readonly dispid 40;
    property Phrase[results : Integer;
                    rank : Integer] : WideString readonly dispid 41;
    property CreateResultsObject[results : Integer] : Integer
             readonly dispid 42;
    procedure DestroyResultsObject (resobj : Integer); dispid 43;
    procedure Select (index : Integer); dispid 44;
    procedure Listen; dispid 45;
    procedure SelectEngine (index : SYSINT); dispid 46;
    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; dispid 47;
    property CountEngines : Integer readonly dispid 48;
    function ModeName (index : SYSINT) : WideString; dispid 49;
    function EngineId (index : SYSINT) : WideString; dispid 50;
    function MfgName (index : SYSINT) : WideString; dispid 51;
    function ProductName (index : SYSINT) : WideString; dispid 52;
    function ModeID (index : SYSINT) : WideString; dispid 53;
    function Features (index : SYSINT) : Integer; dispid 54;
    function Interfaces (index : SYSINT) : Integer; dispid 55;
    function EngineFeatures (index : SYSINT) : Integer; dispid 56;
    function LanguageID (index : SYSINT) : Integer; dispid 57;
    function dialect (index : SYSINT) : WideString; dispid 58;
    function Sequencing (index : SYSINT) : Integer; dispid 59;
    function MaxWordsVocab (index : SYSINT) : Integer; dispid 60;
    function MaxWordsState (index : SYSINT) : Integer; dispid 61;
    function Grammars (index : SYSINT) : Integer; dispid 62;
    procedure InitAudioSourceDirect (direct : Integer); dispid 63;
    procedure InitAudioSourceObject (object_ : Integer); dispid 64;
    property FileName : WideString dispid 65;
    property FlagsGet[results : Integer;
                      rank : Integer] : Integer readonly dispid 66;
    property Identify[results : Integer] : WideString readonly dispid 67;
    procedure TimeGet (results : Integer; var beginhi : Integer;
                      var beginlo : Integer; var endhi : Integer;
                      var endlo : Integer); dispid 68;
    procedure Correction (results : Integer; const Phrase : WideString;
                         confidence : Smallint); dispid 69;
    procedure Validate (results : Integer; confidence : Smallint); dispid 70;
    property ReEvaluate[results : Integer] : Integer readonly dispid 71;
    property GetPhraseScore[results : Integer;
                            rank : Integer] : Integer readonly dispid 72;
    procedure Archive (keepresults : Integer; out size : Integer;
                      out pVal : Integer); dispid 73;
    procedure DeleteArchive (Archive : Integer); dispid 74;
    procedure GrammarFromMemory (grammar : Integer; size : Integer); dispid 75;
    procedure GrammarDataSet (Data : Integer; size : Integer); dispid 76;
    procedure GrammarToMemory (var grammar : Integer;
                              var size : Integer); dispid 77;
    procedure ActivateAndAssignWindow (hwnd : Integer); dispid 78;
    property LastError : Integer dispid 79;
    property SuppressExceptions : Integer dispid 80;
    property hwnd : Integer readonly dispid 81;
    function Find (const RankList : WideString) : Integer; dispid 82;
    property SRMode : Integer dispid 83;
    property GetAllArcStrings[punk : Integer;
                              results : Integer] : WideString
             readonly dispid 84;
    property Attributes[Attrib : Integer] : Integer dispid 85;
    property AttributeString[Attrib : Integer] : WideString dispid 86;
    property AttributeMemory[Attrib : Integer;
                             var size : Integer] : Integer dispid 87;
    property WaveEx[results : Integer; beginhi : Integer; beginlo : Integer;
                    endhi : Integer; endlo : Integer] : Integer
             readonly dispid 88;
    property NodeStart[results : Integer] : Integer readonly dispid 89;
    property NodeEnd[results : Integer] : Integer readonly dispid 90;
    procedure ArcEnum (results : Integer; node : Integer; Outgoing : Integer;
                      var nodelist : Integer;
                      var countnodes : Integer); dispid 91;
    procedure BestPathEnum (results : Integer; rank : Integer;
                           var startpath : Integer; startpathsteps : Integer;
                           var endpath : Integer; endpathsteps : Integer;
                           exactmatch : Integer; var arclist : Integer;
                           var arccount : Integer); dispid 92;
    property DataGetString[results : Integer; id : Integer;
                           const Attrib : WideString] : WideString
                           readonly dispid 93;
    procedure DataGetTime (results : Integer; id : Integer;
                          const Attrib : WideString; var hi : Integer; 
                          var lo : Integer); dispid 94;
    property score[results : Integer; scoretype : Integer;
                   var path : Integer; pathsteps : Integer;
                   pathindexstart : Integer; pathindexcount : Integer] : Integer
                   readonly dispid 95;
    procedure GetAllArcs (results : Integer; var arcids : Integer;
                         var arccount : Integer); dispid 96;
    procedure GetAllNodes (results : Integer; var Nodes : Integer;
                          var countnodes : Integer); dispid 97;
    property NodeGet[results : Integer; arc : Integer;
                     destination : Integer] : Integer readonly dispid 98;
    property GraphDWORDGet[results : Integer; id : Integer;
                           const Attrib : WideString] : Integer