Class TRAS (unit Rascomp32) |
Inherits from
TComponent
Constructor Create(AOwner: TComponent);
- ********************************************************************* } { TRASConnection } { *********************************************************************
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.
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
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
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;
Constructor Create(AOwner: TComponent);
********************************************************************* } { TRASConnection } { *********************************************************************
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!
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
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
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;