Class TRAS (unit Rascomp32)

Inherits from

TComponent

Constructors


Constructor Create(AOwner: TComponent);

********************************************************************* } { TRASConnection } { *********************************************************************


Functions

function Connect: LongInt;


function CurrentStatus: String;

Set the number of redial attempts.

Destructor Destroy;


function DisConnect: LongInt;


function GetConnections: LongInt;


function GetConnectStatus: LongInt;

Stop message flow.

function GetEntry(strEntryName : string) : Boolean;

Get all the phone book entries.

function GetErrorString(ErrorCode: LongInt): String;

Allow only one connection.

function GetPhoneBookEntries: LongInt;

Get all the entry names in the phone book

function IsConnected : Boolean;

retrieve data for a phone book entry

procedure AboutToConnDev;


procedure AboutToOpenPort;


procedure AllDevsConnected;


procedure AuthAck;


procedure AuthCallBack;


procedure AuthChangePassword;


procedure Authenticate;


procedure Authenticated;


procedure AuthLinkSpeed;


procedure AuthNotify;


procedure AuthProject;


procedure AuthRetry;


procedure Connected;

Handlers for the various events that happen whilst RAS establishes and authenticates a connection.

procedure DevConnected;


procedure DisConnected;


procedure InteractiveStarted;


function InternalDisconnect: LongInt;

Stop message flow.

procedure PasswordExpired;


procedure PortOpened;


procedure PrepareforCallback;


procedure ReAuthenticate;


procedure RetryAuth;


procedure SetPhoneBookPath(Value: String);

Case

procedure SetRedialAttempts(Value: Integer);

RASCS_DeviceConnected: DeviceConnected;} {Daniel's Addition

procedure WaitForModemReset;


procedure WaitingForCallBack;


procedure WndProc(var Msg: TMessage);

Note that under NT szPhoneNumber contains any overriding phone number to be used with this entry.

Properties

property CallbackNumber : String


property DeviceName : String


property DeviceType : String


property Domain : String


property EntryName : String

Published declarations

property Password : String


property PhoneBookPath : String


property PhoneNumber : String


property RedialAttempts : Integer


property UserName : String


Events

event OnAboutToConnDev : TNotifyEvent


event OnAboutToOpenPort : TNotifyEvent


event OnAllDevsConnected : TNotifyEvent


event OnAuthAck : TNotifyEvent


event OnAuthCallBack : TNotifyEvent


event OnAuthChangePassword : TNotifyEvent


event OnAuthenticate : TNotifyEvent


event OnAuthenticated : TNotifyEvent


event OnAuthLinkSpeed : TNotifyEvent


event OnAuthNotify : TNotifyEvent


event OnAuthProject : TNotifyEvent


event OnAuthRetry : TNotifyEvent


event OnCallBack : TNotifyEvent


event OnConnect : TNotifyEvent


event OnDevConnected : TNotifyEvent


event OnDisconnect : TRasStateEvent


event OnInteractiveStarted : TNotifyEvent


event OnPasswordExpired : TNotifyEvent


event OnPortOpened : TNotifyEvent


event OnPrepareforCallback : TNotifyEvent


event OnReAuthenticate : TNotifyEvent


event OnRetryAuth : TNotifyEvent


event OnWaitForModemReset : TNotifyEvent


Variables

Connections : TConnectionList;

List of phone book entries.

ConnectState : Word;

Connection handle.

LastError : LongInt;

List of active connections.

PhoneBookEntries : TStringList;

Public declarations

RASConn : HRASConn;


fAboutToConnDev : TNotifyEvent;


fAboutToOpenPort : TNotifyEvent;


fAllDevsConnected : TNotifyEvent;


fAuthAck : TNotifyEvent;


fAuthCallBack : TNotifyEvent;


fAuthChangePassword : TNotifyEvent;


fAuthenticate : TNotifyEvent;


fAuthenticated : TNotifyEvent;


fAuthLinkSpeed : TNotifyEvent;


fAuthNotify : TNotifyEvent;


fAuthProject : TNotifyEvent;


fAuthRetry : TNotifyEvent;


FCallbackNumber : String;


fDevConnected : TNotifyEvent;


FDeviceName : String;


FDeviceType : String;


FDomain : String;


FEntryName : String;

Private declarations

fInteractiveStarted : TNotifyEvent;


fOnCallback : TNotifyEvent;


fOnConnect : TNotifyEvent;


fOnDisconnect : TRasStateEvent;


FPassword : String;


fPasswordExpired : TNotifyEvent;


FPhoneBookPath : String;


FPhoneNumber : String;


fPortOpened : TNotifyEvent;


fPrepareforCallback : TNotifyEvent;


fReAuthenticate : TNotifyEvent;


FRedialAttempts : Integer;


fRetryAuth : TNotifyEvent;


FUserName : String;


fWaitForModemReset : TNotifyEvent;


fWindowHandle : HWND;


RASEvent : Word;



Constructors


Constructor Create(AOwner: TComponent);

********************************************************************* } { TRASConnection } { *********************************************************************


Functions


function Connect: LongInt;


function CurrentStatus: String;

Set the number of redial attempts.


Destructor Destroy;


function DisConnect: LongInt;


function GetConnections: LongInt;


function GetConnectStatus: LongInt;

Stop message flow.


function GetEntry(strEntryName : string) : Boolean;

Get all the phone book entries.


function GetErrorString(ErrorCode: LongInt): String;

Allow only one connection.


function GetPhoneBookEntries: LongInt;

Get all the entry names in the phone book


function IsConnected : Boolean;

retrieve data for a phone book entry


procedure AboutToConnDev;


procedure AboutToOpenPort;


procedure AllDevsConnected;


procedure AuthAck;


procedure AuthCallBack;


procedure AuthChangePassword;


procedure Authenticate;


procedure Authenticated;


procedure AuthLinkSpeed;


procedure AuthNotify;


procedure AuthProject;


procedure AuthRetry;


procedure Connected;

Handlers for the various events that happen whilst RAS establishes and authenticates a connection.


procedure DevConnected;


procedure DisConnected;


procedure InteractiveStarted;


function InternalDisconnect: LongInt;

Stop message flow.


procedure PasswordExpired;


procedure PortOpened;


procedure PrepareforCallback;


procedure ReAuthenticate;


procedure RetryAuth;


procedure SetPhoneBookPath(Value: String);

Case


procedure SetRedialAttempts(Value: Integer);

RASCS_DeviceConnected: DeviceConnected;} {Daniel's Addition


procedure WaitForModemReset;


procedure WaitingForCallBack;


procedure WndProc(var Msg: TMessage);

Note that under NT szPhoneNumber contains any overriding phone number to be used with this entry. it does not return the default phone number for the entry. An empty string indicates that the phone book's default phone number should be used. If szEntryName is blank, szPhoneNumber must contain something!


Properties


property CallbackNumber : String


property DeviceName : String


property DeviceType : String


property Domain : String


property EntryName : String

Published declarations


property Password : String


property PhoneBookPath : String


property PhoneNumber : String


property RedialAttempts : Integer


property UserName : String


Events


event OnAboutToConnDev : TNotifyEvent


event OnAboutToOpenPort : TNotifyEvent


event OnAllDevsConnected : TNotifyEvent


event OnAuthAck : TNotifyEvent


event OnAuthCallBack : TNotifyEvent


event OnAuthChangePassword : TNotifyEvent


event OnAuthenticate : TNotifyEvent


event OnAuthenticated : TNotifyEvent


event OnAuthLinkSpeed : TNotifyEvent


event OnAuthNotify : TNotifyEvent


event OnAuthProject : TNotifyEvent


event OnAuthRetry : TNotifyEvent


event OnCallBack : TNotifyEvent


event OnConnect : TNotifyEvent


event OnDevConnected : TNotifyEvent


event OnDisconnect : TRasStateEvent


event OnInteractiveStarted : TNotifyEvent


event OnPasswordExpired : TNotifyEvent


event OnPortOpened : TNotifyEvent


event OnPrepareforCallback : TNotifyEvent


event OnReAuthenticate : TNotifyEvent


event OnRetryAuth : TNotifyEvent


event OnWaitForModemReset : TNotifyEvent


Variables


Connections : TConnectionList;

List of phone book entries.


ConnectState : Word;

Connection handle.


LastError : LongInt;

List of active connections.


PhoneBookEntries : TStringList;

Public declarations


RASConn : HRASConn;


fAboutToConnDev : TNotifyEvent;


fAboutToOpenPort : TNotifyEvent;


fAllDevsConnected : TNotifyEvent;


fAuthAck : TNotifyEvent;


fAuthCallBack : TNotifyEvent;


fAuthChangePassword : TNotifyEvent;


fAuthenticate : TNotifyEvent;


fAuthenticated : TNotifyEvent;


fAuthLinkSpeed : TNotifyEvent;


fAuthNotify : TNotifyEvent;


fAuthProject : TNotifyEvent;


fAuthRetry : TNotifyEvent;


FCallbackNumber : String;


fDevConnected : TNotifyEvent;


FDeviceName : String;


FDeviceType : String;


FDomain : String;


FEntryName : String;

Private declarations


fInteractiveStarted : TNotifyEvent;


fOnCallback : TNotifyEvent;


fOnConnect : TNotifyEvent;


fOnDisconnect : TRasStateEvent;


FPassword : String;


fPasswordExpired : TNotifyEvent;


FPhoneBookPath : String;


FPhoneNumber : String;


fPortOpened : TNotifyEvent;


fPrepareforCallback : TNotifyEvent;


fReAuthenticate : TNotifyEvent;


FRedialAttempts : Integer;


fRetryAuth : TNotifyEvent;


FUserName : String;


fWaitForModemReset : TNotifyEvent;


fWindowHandle : HWND;


RASEvent : Word;