adisapi.pas

Async Professional 4.04

             readonly dispid 99;
    procedure RenameSpeaker (const OldName : WideString;
                            const newName : WideString); dispid 100;
    procedure DeleteSpeaker (const Speaker : WideString); dispid 101;
    procedure CommitSpeaker; dispid 102;
    procedure RevertSpeaker (const Speaker : WideString); dispid 103;
    property SpeakerInfoChanged[var filetimehi : Integer;
                                var filetimelo : Integer] : Integer
                                readonly dispid 104;
    procedure TrainPhrasesDlg (hwnd : Integer;
                              const title : WideString); dispid 105;
    procedure LexAddTo (lex : LongWord; charset : Integer;
                        const text : WideString;
                        const pronounce : WideString; partofspeech : Integer;
                        EngineInfo : Integer;
                        engineinfosize : Integer); dispid 106;
    procedure LexGetFrom (lex : Integer; charset : Integer; const text:
                         WideString; sense : Integer;
                         var pronounce : WideString;
                         var partofspeech : Integer;
                         var EngineInfo : Integer;
                         var sizeofengineinfo : Integer); dispid 107;
    procedure LexRemoveFrom (lex : Integer; const text : WideString;
                            sense : Integer); dispid 108;
    procedure QueryLexicons (f : Integer; var pdw : Integer); dispid 109;
    procedure ChangeSpelling (lex : Integer; const stringa : WideString;
                             const stringb : WideString); dispid 110;
  end;

  { TApdCustomDirectSR }

  TDirectSR = class (TOleControl)
  private
    FOnClickIn : TDirectSRClickIn;
    FOnClickOut : TDirectSRClickOut;
    FOnPhraseFinish : TDirectSRPhraseFinish;
    FOnPhraseStart : TDirectSRPhraseStart;
    FOnBookMark : TDirectSRBookMark;
    FOnPaused : TNotifyEvent;
    FOnPhraseHypothesis : TDirectSRPhraseHypothesis;
    FOnReEvaluate : TDirectSRReEvaluate;
    FOnTraining : TDirectSRTraining;
    FOnUnArchive : TDirectSRUnArchive;
    FOnAttribChanged : TDirectSRAttribChanged;
    FOnInterference : TDirectSRInterference;
    FOnSound : TDirectSRSound;
    FOnUtteranceBegin : TDirectSRUtteranceBegin;
    FOnUtteranceEnd : TDirectSRUtteranceEnd;
    FOnVUMeter : TDirectSRVUMeter;
    FOnError : TDirectSRError;
    FOnwarning : TDirectSRwarning;
    FIntf : IDirectSR;
    function GetControlInterface : IDirectSR;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    function Get_Wave (results : Integer) : Integer;
    function Get_Phrase (results : Integer; rank : Integer) : WideString;
    function Get_CreateResultsObject (results : Integer) : Integer;
    function Get_FlagsGet (results : Integer; rank : Integer) : Integer;
    function Get_Identify (results : Integer) : WideString;
    function Get_ReEvaluate (results : Integer) : Integer;
    function Get_GetPhraseScore (results : Integer; rank : Integer) : Integer;
    function Get_GetAllArcStrings (punk : Integer;
                                   results : Integer) : WideString;
    function Get_Attributes (Attrib : Integer) : Integer;
    procedure Set_Attributes (Attrib : Integer; pVal : Integer);
    function Get_AttributeString (Attrib : Integer) : WideString;
    procedure Set_AttributeString (Attrib : Integer; const pVal : WideString);
    function Get_AttributeMemory (Attrib : Integer;
                                  var size : Integer) : Integer;
    procedure Set_AttributeMemory (Attrib : Integer; var size : Integer;
                                  pVal : Integer);
    function Get_WaveEx (results : Integer; beginhi : Integer;
                         beginlo : Integer; endhi : Integer;
                         endlo : Integer) : Integer;
    function Get_NodeStart (results : Integer) : Integer;
    function Get_NodeEnd (results : Integer) : Integer;
    function Get_DataGetString (results : Integer; id : Integer;
                                const Attrib : WideString) : WideString;
    function Get_score (results : Integer; scoretype : Integer;
                        var path : Integer; pathsteps : Integer;
                        pathindexstart : Integer;
                        pathindexcount : Integer) : Integer; 
    function Get_NodeGet (results : Integer; arc : Integer;
                          destination : Integer) : Integer;
    function Get_GraphDWORDGet (results : Integer; id : Integer;
                                const Attrib : WideString) : Integer;
    function Get_SpeakerInfoChanged (var filetimehi : Integer;
                                     var filetimelo : Integer) : Integer;
  public
    procedure Deactivate;
    procedure Activate;
    procedure GrammarFromString (const grammar : WideString);
    procedure GrammarFromFile (const FileName : WideString);
    procedure GrammarFromResource (Instance : Integer; ResID : Integer);
    procedure GrammarFromStream (Stream : Integer);
    procedure Pause;
    procedure Resume;
    procedure PosnGet (out hi : Integer; out lo : Integer);
    procedure AboutDlg (hwnd : Integer; const title : WideString);
    procedure GeneralDlg (hwnd : Integer; const title : WideString);
    procedure LexiconDlg (hwnd : Integer; const title : WideString);
    procedure TrainGeneralDlg (hwnd : Integer; const title : WideString);
    procedure TrainMicDlg (hwnd : Integer; const title : WideString);
    procedure DestroyResultsObject (resobj : Integer);
    procedure Select (index : Integer);
    procedure Listen;
    procedure SelectEngine (index : SYSINT);
    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;
    function ModeName (index : SYSINT) : WideString;
    function EngineId (index : SYSINT) : WideString;
    function MfgName (index : SYSINT) : WideString;
    function ProductName (index : SYSINT) : WideString;
    function ModeID (index : SYSINT) : WideString;
    function Features (index : SYSINT) : Integer;
    function Interfaces (index : SYSINT) : Integer;
    function EngineFeatures (index : SYSINT) : Integer;
    function LanguageID (index : SYSINT) : Integer;
    function dialect (index : SYSINT) : WideString;
    function Sequencing (index : SYSINT) : Integer;
    function MaxWordsVocab (index : SYSINT) : Integer;
    function MaxWordsState (index : SYSINT) : Integer;
    function Grammars (index : SYSINT) : Integer;
    procedure InitAudioSourceDirect (direct : Integer);
    procedure InitAudioSourceObject (object_ : Integer);
    procedure TimeGet (results : Integer; var beginhi : Integer;
                       var beginlo : Integer; var endhi : Integer;
                       var endlo : Integer);
    procedure Correction (results : Integer; const Phrase : WideString;
                          confidence : Smallint);
    procedure Validate (results : Integer; confidence : Smallint);
    procedure Archive (keepresults : Integer;
                       out size : Integer; out pVal : Integer);
    procedure DeleteArchive (Archive : Integer);
    procedure GrammarFromMemory (grammar : Integer; size : Integer);
    procedure GrammarDataSet (Data : Integer; size : Integer);
    procedure GrammarToMemory (var grammar : Integer; var size : Integer);
    procedure ActivateAndAssignWindow (hwnd : Integer);
    function Find (const RankList : WideString) : Integer;
    procedure ArcEnum (results : Integer; node : Integer; Outgoing : Integer;
                       var nodelist : Integer; var countnodes : Integer);
    procedure BestPathEnum (results : Integer; rank : Integer;
                            var startpath : Integer; startpathsteps : Integer;
                            var endpath : Integer; endpathsteps : Integer;
                            exactmatch : Integer; var arclist : Integer;
                            var arccount : Integer);
    procedure DataGetTime (results : Integer; id : Integer;
                           const Attrib : WideString; var hi : Integer;
                           var lo : Integer);
    procedure GetAllArcs (results : Integer; var arcids : Integer;
                          var arccount : Integer);
    procedure GetAllNodes (results : Integer; var Nodes : Integer;
                           var countnodes : Integer);
    procedure RenameSpeaker (const OldName : WideString;
                             const newName : WideString);
    procedure DeleteSpeaker (const Speaker : WideString);
    procedure CommitSpeaker;
    procedure RevertSpeaker (const Speaker : WideString);
    procedure TrainPhrasesDlg (hwnd : Integer; const title : WideString);
    procedure LexAddTo (lex : LongWord; charset : Integer;
                        const text : WideString; const pronounce : WideString;
                        partofspeech : Integer; EngineInfo : Integer;
                        engineinfosize : Integer);
    procedure LexGetFrom (lex : Integer; charset : Integer;
                          const text : WideString; sense : Integer;
                          var pronounce : WideString;
                          var partofspeech : Integer; var EngineInfo : Integer;
                         var sizeofengineinfo : Integer);
    procedure LexRemoveFrom (lex : Integer; const text : WideString;
                             sense : Integer);
    procedure QueryLexicons (f : Integer; var pdw : Integer);
    procedure ChangeSpelling (lex : Integer; const stringa : WideString;
                              const stringb : WideString);
    property  ControlInterface : IDirectSR read GetControlInterface;
    property  DefaultInterface : IDirectSR read GetControlInterface;
    property MinAutoGain : Integer index 12 read GetIntegerProp;
    property MaxAutoGain : Integer index 13 read GetIntegerProp;
    property MaxEnergyFloor : Integer index 16 read GetIntegerProp;
    property MinEnergyFloor : Integer index 17 read GetIntegerProp;
    property MaxRealTime : Integer index 21 read GetIntegerProp;
    property MinRealTime : Integer index 22 read GetIntegerProp;
    property MaxThreshold : Integer index 24 read GetIntegerProp;
    property MinThreshold : Integer index 25 read GetIntegerProp;
    property MaxCompleteTimeOut : Integer index 28 read GetIntegerProp;
    property MinCompleteTimeOut : Integer index 29 read GetIntegerProp;
    property MaxIncompleteTimeOut : Integer index 30 read GetIntegerProp;
    property MinIncompleteTimeOut : Integer index 31 read GetIntegerProp;
    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 index 48 read GetIntegerProp;
    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 hwnd : Integer index 81 read GetIntegerProp;
    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;
  published
    property  TabStop;
    property  Align;
    property  DragCursor;