Unit FPRas |
Renamed from RAS.pas 6/13/1998 Paul Rice to avoid conflicts with others' work. Unit: Remote Access Service (RAS) Creation: Feb 18, 1997. Translated from MS-Visual C 4.2 header files Copyright: François Piette This program can be used/modified freely provided this copyright notice remains here. If you like my code, find any bug or improve it, please feels free to let me know by sending an EMail at francois.piette@ping.be or francois.piette@f2202.n293.z2.fidonet.org * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Classes |
Functions |
RasConnectionStateToString - * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
RasCreatePhonebookEntryA - function RasEntryDlgA( lpszPhonebook : PChar; // pointer to the full path and filename of the phone-book file lpszEntry : PChar; // pointer to the name of the phone-book entry to edit, copy, or create lpInfo : PRASENTRYDLG // pointer to a structure that contains additional parameters ) : DWORD; stdcall;
function RasEntryDlgA; external rasapi32 name 'RasEntryDlgA';
RasDialA - * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
RasEditPhonebookEntryA - indicates whether the user's password was retrieved
RasEnumConnectionsA - buffer to receive status data
RasEnumEntriesA - number of connections written to buffer
RasGetConnectStatusA -
RasGetEntryDialParamsA - number of entries written to buffer
RasGetErrorStringA -
RasHangupA - size, in characters, of buffer
Types |
PBOOL
PDWORD
PHRASCONN
PRASCONN
PRASCONNSTATUS
PRASDIALEXTENSIONS
PRASDIALPARAMS
PRASENTRYDLG
PRASENTRYNAME
THRASCONN
TRASCONN
TRASCONNSTATE
TRASCONNSTATUS
TRASDIALEXTENSIONS
TRASDIALPARAMS
TRASENTRYDLG
TRASENTRYNAME
Constants |
CNLEN
DNLEN
PWLEN
rasapi32
RASCS_AllDevicesConnected
RASCS_AuthAck
RASCS_AuthCallback
RASCS_AuthChangePassword
RASCS_Authenticate
RASCS_Authenticated
RASCS_AuthLinkSpeed
RASCS_AuthNotify
RASCS_AuthProject
RASCS_AuthRetry
RASCS_CallbackComplete
RASCS_CallbackSetByCaller
RASCS_ConnectDevice
RASCS_Connected
RASCS_DeviceConnected
RASCS_Disconnected
RASCS_DONE
RASCS_Interactive
RASCS_LogonNetwork
RASCS_OpenPort
RASCS_PasswordExpired
RASCS_PAUSED
RASCS_PortOpened
RASCS_PrepareForCallback
RASCS_Projected
RASCS_ReAuthenticate
RASCS_RetryAuthentication
RASCS_StartAuthentication
RASCS_SubEntryConnected
RASCS_SubEntryDisconnected
RASCS_WaitForCallback
RASCS_WaitForModemReset
RASDIALEVENT
RAS_MaxAreaCode
RAS_MaxCallbackNumber
RAS_MaxDeviceName
RAS_MaxDeviceType
RAS_MaxEntryName
RAS_MaxFacilities
RAS_MaxIpAddress
RAS_MaxIpxAddress
RAS_MaxPadType
RAS_MaxPhoneNumber
RAS_MaxUserData
RAS_MaxX25Address
UNLEN
WM_RASDIALEVENT
Variables |
Functions |
function RasEntryDlgA; external rasapi32 name 'RasEntryDlgA';
Types |
PBOOL = ^BOOL
PDWORD = ^DWORD
PHRASCONN = ^THRASCONN
PRASCONN = ^TRASCONN
PRASCONNSTATUS = ^TRASCONNSTATUS
PRASDIALEXTENSIONS = ^TRASDIALEXTENSIONS
PRASDIALPARAMS = ^TRASDIALPARAMS
PRASENTRYDLG = ^TRASENTRYDLG
PRASENTRYNAME = ^TRASENTRYNAME
THRASCONN = THandle
TRASCONN = record
dwSize : DWORD;
hRasConn : THRASCONN;
szEntryName : array [0..RAS_MaxEntryName] of char;
szDeviceType : array [0..RAS_MaxDeviceType] of char;
szDeviceName : array [0..RAS_MaxDeviceName] of char;
szPadding : array [0..0] of Char;
end;
TRASCONNSTATE = DWORD
TRASCONNSTATUS = record
dwSize : DWORD;
RasConnState : TRASCONNSTATE;
dwError : DWORD;
szDeviceType : array [0..RAS_MaxDeviceType] of char;
szDeviceName : array [0..RAS_MaxDeviceName] of char;
szPadding : array [0..1] of Char;
end;
TRASDIALEXTENSIONS = record
dwSize : DWORD;
dwfOptions : DWORD;
hwndParent : HWND;
reserved : DWORD;
end;
TRASDIALPARAMS = record
dwSize : DWORD;
szEntryName : array [0..RAS_MaxEntryName] of Char;
szPhoneNumber : array [0..RAS_MaxPhoneNumber] of Char;
szCallbackNumber : array [0..RAS_MaxCallbackNumber] of Char;
szUserName : array [0..UNLEN] of Char;
szPassword : array [0..PWLEN] of Char;
szDomain : array [0..DNLEN] of Char;
szPadding : array [0..2] of Char;
end;
TRASENTRYDLG = record
dwSize : DWORD;
hWndOwner : HWND;
dwFlags : DWORD;
xDlg : LongInt;
yDlg : LongInt;
szEntry : array [0..RAS_MaxEntryName] of char;
dwError : DWORD;
Reserved : DWORD;
Reserved2 : DWORD;
szPadding : array [0..2] of Char;
end;
TRASENTRYNAME = record
dwSize : DWORD;
szEntryName : array [0..RAS_MaxEntryName] of char;
szPadding : array [0..2] of Char;
end;
Constants |
Variables |