Class TSage (unit SageUnit)

Inherits from

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 );

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 : BOOL

Is SAGE loaded?

property Detected : integer

Published declarations

property NumTask : integer

TaskList Changed from last call to GetTaskList?

property pTaskList : PTaskInfo


Events

Variables

fChanged : BOOL;


fDetected : integer;

Private declarations

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 : BOOL

Is SAGE loaded?


property Detected : integer

Published declarations


property NumTask : integer

TaskList Changed from last call to GetTaskList?


property pTaskList : PTaskInfo


Events


Variables


fChanged : BOOL;


fDetected : integer;

Private declarations


fInitialized : boolean;


fNumTask : integer;


fpTaskList : PTaskInfo;