Class TFnugryRASNotify (unit FngRASNotify)

Inherits from

TComponent

Constructors


constructor Create(AOwner :TComponent);



Functions

destructor Destroy;


procedure ClearList;

retrieve connections status

procedure Connected(hConn :THandle; const EntryName, DeviceType, DeviceName :String);

TFnugryRASNotify

procedure Disconnected(hConn :THandle);


procedure DoDisable;


procedure DoEnable;


procedure Loaded;


procedure ResetList;


procedure UpdateList;


procedure ValidateEntryIndex(Value :Integer);


function GetCOnnCount :Integer;


function GetConnHandle(Index :Integer):THandle;


function GetConnList(out lpList :PRASConnList):Integer;

Retrieves list of active connections.

function GetConnName(Index :Integer):String;


function GetDeviceName(Index :Integer):String;


function GetDeviceType(Index :Integer):String;


function GetOnline :Boolean;

Swap connection lists //

procedure HandlePollTimerEvent(Sender :TObject);


procedure SetEnabled(Value :Boolean);


procedure SetPollInterval(Value :Integer);


Properties

property Enabled : Boolean


property PollInterval : Integer


property ConnCount : Integer


property ConnHandle : THandle


property ConnName : String


property DeviceName : String


property DeviceType : String


Events

event OnConnected : TRASConnectedEvent


event OnDisable : TNotifyEvent


event OnDisconnected : TRASDisconnectedEvent


event OnEnable : TNotifyEvent


event Online : Boolean


Variables

FConnCount : Integer;


FConnList : PRASConnList;


FEnabled : Boolean;


FOnConnected : TRASConnectedEvent;


FOnDisable : TNotifyEvent;


FOnDisconnected : TRASDisconnectedEvent;


FOnEnable : TNotifyEvent;


FPollInterval : Integer;


FPollTimer : TTimer;



Constructors


constructor Create(AOwner :TComponent);


Functions


destructor Destroy;


procedure ClearList;

retrieve connections status


procedure Connected(hConn :THandle; const EntryName, DeviceType, DeviceName :String);

TFnugryRASNotify


procedure Disconnected(hConn :THandle);


procedure DoDisable;


procedure DoEnable;


procedure Loaded;


procedure ResetList;


procedure UpdateList;


procedure ValidateEntryIndex(Value :Integer);


function GetCOnnCount :Integer;


function GetConnHandle(Index :Integer):THandle;


function GetConnList(out lpList :PRASConnList):Integer;

Retrieves list of active connections. Returns number of entries in the list.


function GetConnName(Index :Integer):String;


function GetDeviceName(Index :Integer):String;


function GetDeviceType(Index :Integer):String;


function GetOnline :Boolean;

Swap connection lists //


procedure HandlePollTimerEvent(Sender :TObject);


procedure SetEnabled(Value :Boolean);


procedure SetPollInterval(Value :Integer);


Properties


property Enabled : Boolean


property PollInterval : Integer


property ConnCount : Integer


property ConnHandle : THandle


property ConnName : String


property DeviceName : String


property DeviceType : String


Events


event OnConnected : TRASConnectedEvent


event OnDisable : TNotifyEvent


event OnDisconnected : TRASDisconnectedEvent


event OnEnable : TNotifyEvent


event Online : Boolean


Variables


FConnCount : Integer;


FConnList : PRASConnList;


FEnabled : Boolean;


FOnConnected : TRASConnectedEvent;


FOnDisable : TNotifyEvent;


FOnDisconnected : TRASDisconnectedEvent;


FOnEnable : TNotifyEvent;


FPollInterval : Integer;


FPollTimer : TTimer;