Class TSenseModem (unit SModem) |
Inherits from
TComponent
constructor Create( AOwner: TComponent);
- Default constructor
Initial variable ssetup
function InternalFindModem(StartLocation: string): Integer;
This function does all the work.
destructor Destroy;
Default Destructor
function FindModem: Integer;
function Get(modem_number:integer): TModemInfo;
Get info on requested modem
function GetError: String;
Get string explanation of error code returned
by findmodem
function GetFirst: TModemInfo;
Get info on the first modem found
function GetLast: TModemInfo;
Get info on last modem found
procedure SetDebugPath(path:string);
Check to see if the debug file path exists.
procedure CheckKeyForModem;
Close Debug file if it exists
procedure SetEmpty;
Set all info structure to intial empty
state
property DebugFile : boolean
property DebugFilePath : string
FDebugFile : Boolean;
FDebugFilePath : string;
FError : Integer;
FModemArray : array[1..MAX_COM] of TModemInfo;
This array kepts all info on modems
FModemCount : Integer;
constructor Create( AOwner: TComponent);
Default constructor
Initial variable ssetup
function InternalFindModem(StartLocation: string): Integer;
This function does all the work. It uses recusion to walk
through the tree structure,of the registry looking, for Modem
Classes.
destructor Destroy;
Default Destructor
function FindModem: Integer;
function Get(modem_number:integer): TModemInfo;
Get info on requested modem
function GetError: String;
Get string explanation of error code returned
by findmodem
function GetFirst: TModemInfo;
Get info on the first modem found
function GetLast: TModemInfo;
Get info on last modem found
procedure SetDebugPath(path:string);
Check to see if the debug file path exists.
If it does not then setup the default path
procedure CheckKeyForModem;
Close Debug file if it exists
procedure SetEmpty;
Set all info structure to intial empty
state
property DebugFile : boolean
property DebugFilePath : string
FDebugFile : Boolean;
FDebugFilePath : string;
FError : Integer;
FModemArray : array[1..MAX_COM] of TModemInfo;
This array kepts all info on modems
FModemCount : Integer;