ivrenginetype.pas

以可视的方式画IVR语音导航的流程,并把流程做为源文件保存起来

unit IVREngineType;

interface

type
  TEngineVersionDat = record
    EngineName: String[20];
    EngineHint: String[30];
    EngineMemo: String[100];
  end;
  PEngineVersion = ^TEngineVersionDat;

   TMySubID = Record
    SubProcess:Integer;   //子流程标号 2002.09.03
    SubiContent:Integer;

    SubStartiType :Integer;  //子流程开始标号 2002.09.03
    SubStartiContent:Integer;

    SubEndiType:Integer;  //子流程结束标号 2002.09.03
    SubEndiContent:Integer;
  end;
  PMySubID = ^TMySubID;

  TGetVersion = procedure (Buffer: PEngineVersion); stdcall;
  TBuild = procedure(ProjectName, DatName: PChar;SubID :PMySubID); stdcall;

implementation

end.