Class TSenseModem (unit SModem)

Inherits from

TComponent

Constructors


constructor Create( AOwner: TComponent);

Default constructor Initial variable ssetup


Functions

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

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;



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;