| Class TSage (unit SageUnit) |
TComponent
TSAGE 0.7 - 1997 by Nelson Fernandez First, sorry about my english. Spanish is my first languaje. This component is freeware. Feel free to modify and enhance it, but PLEASE don't redistribute modificated versions. Email me the modification to upgrade the source and have only one version of the component. This component don't have yet a documentation, but the methods are easy to use, there are a demo program, and in the file SAGEAPI.HTML is the rest. In SAGEAPI.HTML there are some documentation about how configure programs from SAGE, how parse the command line for parameters, how process multiple configurations and returns codes specification. This text can be download from: http://www.microsoft.com/win32dev/guidelns/sageapi.htm There is a patch for Sage.Dll in: http://www.microsoft.com/kb/articles/q140/4/79.htm For run the Demo program, there isn't need to install the component. Compile SageTest and presto! Then, if you want to install it, copy SageData.pas, SageUnit.pas and SageUnit.res to your components directory and compile. If you have any question or suggestion, please email me to: xtzacd1@impsat1.com.ar History 11/06/97 v0.1 - prebeta version. Home test. 05/07/97 v0.6 - beta version. Public release 29/08/97 v0.7 - Now the Sage.Dll is linked at runtime and the functions are allocated on demand. (Tip from Pekka E. Haapalainen) ------------- Nelson Fernandez Avda. Gaona 2143 1ro I Buenos Aires, Ramos Mejia (1704) Argentina. Email: xtzacd1@impsat1.com.ar
| Constructors |
constructor Create( AOwner: TComponent );------------------------------------------------------------------------------
| Functions |
function AddTask( var Task: TaskInfo; var TaskId: cardinal ): integer;
function ChangeTask( Task: TaskInfo; TaskId: cardinal ): integer;
destructor Destroy;
function Disable: integer;
function Enable: integer;
function GetStatus: integer;
function GetTaskList: integer;
function Initialize: integer;
function LockTask( TaskId: cardinal; Volatile: BOOL ): integer;
function RemoveTask( TaskId: cardinal ): integer;
function SearchTask( TaskId: cardinal ): integer;
function UnLockTask( TaskId: cardinal; Reenable: BOOL ): integer;| Properties |
property Changed : BOOL
property Detected : integer
property NumTask : integer
property pTaskList : PTaskInfo| Events |
| Variables |
fChanged : BOOL;
fDetected : integer;
fInitialized : boolean;
fNumTask : integer;
fpTaskList : PTaskInfo;| Constructors |
constructor Create( AOwner: TComponent );Public declarations
------------------------------------------------------------------------------
| Functions |
function AddTask( var Task: TaskInfo; var TaskId: cardinal ): integer;------------------------------------------------------------------------------
function ChangeTask( Task: TaskInfo; TaskId: cardinal ): integer;------------------------------------------------------------------------------
destructor Destroy;------------------------------------------------------------------------------
function Disable: integer;------------------------------------------------------------------------------
function Enable: integer;------------------------------------------------------------------------------
function GetStatus: integer;------------------------------------------------------------------------------
function GetTaskList: integer;------------------------------------------------------------------------------
function Initialize: integer;------------------------------------------------------------------------------
function LockTask( TaskId: cardinal; Volatile: BOOL ): integer;------------------------------------------------------------------------------
function RemoveTask( TaskId: cardinal ): integer;------------------------------------------------------------------------------
function SearchTask( TaskId: cardinal ): integer;------------------------------------------------------------------------------
function UnLockTask( TaskId: cardinal; Reenable: BOOL ): integer;------------------------------------------------------------------------------
| Properties |
property Changed : BOOLIs SAGE loaded?
property Detected : integerPublished declarations
property NumTask : integerTaskList Changed from last call to GetTaskList?
property pTaskList : PTaskInfo| Events |
| Variables |
fChanged : BOOL;
fDetected : integer;Private declarations
fInitialized : boolean;
fNumTask : integer;
fpTaskList : PTaskInfo;