| Class TSenseModem (unit SModem) |
TComponent
| Constructors |
constructor Create( AOwner: TComponent);| Functions |
function InternalFindModem(StartLocation: string): Integer;
destructor Destroy;
function FindModem: Integer;
function Get(modem_number:integer): TModemInfo;
function GetError: String;
function GetFirst: TModemInfo;
function GetLast: TModemInfo;
procedure SetDebugPath(path:string);
procedure CheckKeyForModem;
procedure SetEmpty;| Properties |
property DebugFile : boolean
property DebugFilePath : string| Events |
| Variables |
FDebugFile : Boolean;
FDebugFilePath : string;
FError : Integer;
FModemArray : array[1..MAX_COM] of TModemInfo;
FModemCount : Integer;| Constructors |
constructor Create( AOwner: TComponent);Default constructor Initial variable ssetup
| Functions |
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
| Properties |
property DebugFile : boolean
property DebugFilePath : string| Events |
| Variables |
FDebugFile : Boolean;
FDebugFilePath : string;
FError : Integer;
FModemArray : array[1..MAX_COM] of TModemInfo;This array kepts all info on modems
FModemCount : Integer;