{$D-,L-,Y-,A+,B-,F+,H+,I-,J-,M-,O+,P+,Q-,R-,T-,U+,V+,W-,X+,Z1}{$HINTS OFF}{$WARNINGS OFF} Unit RASAPI; Interface Uses WinTypes, WinProcs, Dialogs; { Copyright (c) 1992, Microsoft Corporation, all rights reserved Note: The 'dwSize' member of a structure X must be set to sizeof(X) before calling the associated API, otherwise ERROR_INVALID_SIZE is returned. The APIs determine the size using 2-byte packing (the default for Microsoft compilers when no /Zp option is supplied). Users requiring non-default packing can use the 'dwSize' values listed next to each 'dwSize' member in place of sizeof(X). } Const UNLEN = 256; PWLEN = 256; DNLEN = 15; RAS_MaxEntryName = 256; RAS_MaxDeviceName = 128; RAS_MaxDeviceType = 16; //RAS_MaxParamKey = 32; //RAS_MaxParamValue = 128; RAS_MaxPhoneNumber = 128; RAS_MaxCallbackNumber = RAS_MaxPhoneNumber; Type //UINT = Word; PHRASConn = ^HRASConn; HRASConn = DWORD; { Pass this string to the RegisterWindowMessage() API to get the message ** number that will be used for notifications on the hwnd you pass to the ** RasDial() API. WM_RASDIALEVENT is used only if a unique message cannot be ** registered. } const RASDialEvent = 'RASDialEvent'; WM_RASDialEvent = $0CCCD; { Enumerates intermediate states to a Connection. (See RasDial) } RASCS_Paused = $1000; RASCS_Done = $2000; RASBase = 600; Success = 0; { Error Codes } PENDING = (RASBase+0); ERROR_INVALID_PORT_HANDLE = (RASBase+1); ERROR_PORT_ALREADY_OPEN = (RASBase+2); ERROR_BUFFER_TOO_SMALL = (RASBase+3); ERROR_WRONG_INFO_SPECIFIED = (RASBase+4); ERROR_CANNOT_SET_PORT_INFO = (RASBase+5); ERROR_PORT_NOT_ConnECTED = (RASBase+6); ERROR_EVENT_INVALID = (RASBase+7); ERROR_DEVICE_DOES_NOT_EXIST = (RASBase+8); ERROR_DEVICETYPE_DOES_NOT_EXIST = (RASBase+9); ERROR_INVALID_BUFFER = (RASBase+10); ERROR_ROUTE_NOT_AVAILABLE = (RASBase+11); ERROR_ROUTE_NOT_ALLOCATED = (RASBase+12); ERROR_INVALID_COMPRESSION_SPECIFIED = (RASBase+13); ERROR_OUT_OF_BUFFERS = (RASBase+14); ERROR_PORT_NOT_FOUND = (RASBase+15); ERROR_ASYNC_REQUEST_PENDING = (RASBase+16); ERROR_ALREADY_DISConnECTING = (RASBase+17); ERROR_PORT_NOT_OPEN = (RASBase+18); ERROR_PORT_DISConnECTED = (RASBase+19); ERROR_NO_ENDPOINTS = (RASBase+20); ERROR_CANNOT_OPEN_PHONEBOOK = (RASBase+21); ERROR_CANNOT_LOAD_PHONEBOOK = (RASBase+22); ERROR_CANNOT_FIND_PHONEBOOK_ENTRY = (RASBase+23); ERROR_CANNOT_WRITE_PHONEBOOK = (RASBase+24); ERROR_CORRUPT_PHONEBOOK = (RASBase+25); ERROR_CANNOT_LOAD_STRING = (RASBase+26); ERROR_KEY_NOT_FOUND = (RASBase+27); ERROR_DISConnECTION = (RASBase+28); ERROR_REMOTE_DISConnECTION = (RASBase+29); ERROR_HARDWARE_FAILURE = (RASBase+30); ERROR_USER_DISConnECTION = (RASBase+31); ERROR_INVALID_SIZE = (RASBase+32); ERROR_PORT_NOT_AVAILABLE = (RASBase+33); ERROR_CANNOT_PROJECT_CLIENT = (RASBase+34); ERROR_UNKNOWN = (RASBase+35); ERROR_WRONG_DEVICE_ATTACHED = (RASBase+36); ERROR_BAD_STRING = (RASBase+37); ERROR_REQUEST_TIMEOUT = (RASBase+38); ERROR_CANNOT_GET_LANA = (RASBase+39); ERROR_NETBIOS_ERROR = (RASBase+40); ERROR_SERVER_OUT_OF_RESOURCES = (RASBase+41); ERROR_NAME_EXISTS_ON_NET = (RASBase+42); ERROR_SERVER_GENERAL_NET_FAILURE = (RASBase+43); WARNING_MSG_ALIAS_NOT_ADDED = (RASBase+44); ERROR_AUTH_INTERNAL = (RASBase+45); ERROR_RESTRICTED_LOGON_HOURS = (RASBase+46); ERROR_ACCT_DISABLED = (RASBase+47); ERROR_PASSWD_EXPIRED = (RASBase+48); ERROR_NO_DIALIN_PERMISSION = (RASBase+49); ERROR_SERVER_NOT_RESPONDING = (RASBase+50); ERROR_FROM_DEVICE = (RASBase+51); ERROR_UNRECOGNIZED_RESPONSE = (RASBase+52); ERROR_MACRO_NOT_FOUND = (RASBase+53); ERROR_MACRO_NOT_DEFINED = (RASBase+54); ERROR_MESSAGE_MACRO_NOT_FOUND = (RASBase+55); ERROR_DEFAULTOFF_MACRO_NOT_FOUND = (RASBase+56); ERROR_FILE_COULD_NOT_BE_OPENED = (RASBase+57); ERROR_DEVICENAME_TOO_LONG = (RASBase+58); ERROR_DEVICENAME_NOT_FOUND = (RASBase+59); ERROR_NO_RESPONSES = (RASBase+60); ERROR_NO_COMMAND_FOUND = (RASBase+61); ERROR_WRONG_KEY_SPECIFIED = (RASBase+62); ERROR_UNKNOWN_DEVICE_TYPE = (RASBase+63); ERROR_ALLOCATING_MEMORY = (RASBase+64); ERROR_PORT_NOT_CONFIGURED = (RASBase+65); ERROR_DEVICE_NOT_READY = (RASBase+66); ERROR_READING_INI_FILE = (RASBase+67); ERROR_NO_ConnECTION = (RASBase+68); ERROR_BAD_USAGE_IN_INI_FILE = (RASBase+69); ERROR_READING_SECTIONNAME = (RASBase+70); ERROR_READING_DEVICETYPE = (RASBase+71); ERROR_READING_DEVICENAME = (RASBase+72); ERROR_READING_USAGE = (RASBase+73); ERROR_READING_MAXConnECTBPS = (RASBase+74); ERROR_READING_MAXCARRIERBPS = (RASBase+75); ERROR_LINE_BUSY = (RASBase+76); ERROR_VOICE_ANSWER = (RASBase+77); ERROR_NO_ANSWER = (RASBase+78); ERROR_NO_CARRIER = (RASBase+79); ERROR_NO_DIALTONE = (RASBase+80); ERROR_IN_COMMAND = (RASBase+81); ERROR_WRITING_SECTIONNAME = (RASBase+82); ERROR_WRITING_DEVICETYPE = (RASBase+83); ERROR_WRITING_DEVICENAME = (RASBase+84); ERROR_WRITING_MAXConnECTBPS = (RASBase+85); ERROR_WRITING_MAXCARRIERBPS = (RASBase+86); ERROR_WRITING_USAGE = (RASBase+87); ERROR_WRITING_DEFAULTOFF = (RASBase+88); ERROR_READING_DEFAULTOFF = (RASBase+89); ERROR_EMPTY_INI_FILE = (RASBase+90); ERROR_AUTHENTICATION_FAILURE = (RASBase+91); ERROR_PORT_OR_DEVICE = (RASBase+92); ERROR_NOT_BINARY_MACRO = (RASBase+93); ERROR_DCB_NOT_FOUND = (RASBase+94); ERROR_STATE_MACHINES_NOT_STARTED = (RASBase+95); ERROR_STATE_MACHINES_ALREADY_STARTED = (RASBase+96); ERROR_PARTIAL_RESPONSE_LOOPING = (RASBase+97); ERROR_UNKNOWN_RESPONSE_KEY = (RASBase+98); ERROR_RECV_BUF_FULL = (RASBase+99); ERROR_CMD_TOO_LONG = (RASBase+100); ERROR_UNSUPPORTED_BPS = (RASBase+101); ERROR_UNEXPECTED_RESPONSE = (RASBase+102); ERROR_INTERACTIVE_MODE = (RASBase+103); ERROR_BAD_CALLBACK_NUMBER = (RASBase+104); ERROR_INVALID_AUTH_STATE = (RASBase+105); ERROR_WRITING_INITBPS = (RASBase+106); ERROR_INVALID_WIN_HANDLE = (RASBase+107); ERROR_NO_PASSWORD = (RASBase+108); ERROR_NO_USERNAME = (RASBase+109); ERROR_CANNOT_START_STATE_MACHINE = (RASBase+110); ERROR_GETTING_COMMSTATE = (RASBase+111); ERROR_SETTING_COMMSTATE = (RASBase+112); ERROR_COMM_FUNCTION = (RASBase+113); ERROR_CONFIGURATION_PROBLEM = (RASBase+114); ERROR_X25_DIAGNOSTIC = (RASBase+115); ERROR_TOO_MANY_LINE_ERRORS = (RASBase+116); ERROR_OVERRUN = (RASBase+117); ERROR_ACCT_EXPIRED = (RASBase+118); ERROR_CHANGING_PASSWORD = (RASBase+119); ERROR_NO_ACTIVE_ISDN_LINES = (RASBase+120); ERROR_NO_ISDN_CHANNELS_AVAILABLE = (RASBase+121); Const RASCS_OpenPort = 0; RASCS_PortOpened = 1; RASCS_ConnectDevice = 2; RASCS_DeviceConnected = 3; RASCS_AllDevicesConnected = 4; RASCS_Authenticate = 5; RASCS_AuthNotify = 6; RASCS_AuthRetry = 7; RASCS_AuthCallback = 8; RASCS_AuthChangePassword = 9; RASCS_AuthProject = 10; RASCS_AuthLinkSpeed = 11; RASCS_AuthAck = 12; RASCS_ReAuthenticate = 13; RASCS_Authenticated = 14; RASCS_PrepareForCallback = 15; RASCS_WaitForModemReset = 16; RASCS_WaitForCallback = 17; RASCS_Interactive = RASCS_Paused; RASCS_RetryAuthentication = RASCS_Paused + 1; RASCS_CallbackSetByCaller = RASCS_Paused + 2; RASCS_PasswordExpired = RASCS_Paused + 3; RASCS_Connected = RASCS_Done; RASCS_DisConnected = RASCS_Done + 1; Type { Identifies an active RAS Connection. (See RasConnectEnum) } PRASConn = ^TRASConn; TRASConn = record dwSize: DWORD; rasConn: HRASConn; szEntryName: Array[0..RAS_MaxEntryName] Of Char; szDeviceType : Array[0..RAS_MaxDeviceType] Of Char; szDeviceName : Array [0..RAS_MaxDeviceName] of char; end; PRASConnStatus = ^TRASConnStatus; TRASConnStatus = Record dwSize: LongInt; rasConnstate: Word; dwError: LongInt; szDeviceType: Array[0..RAS_MaxDeviceType] Of Char; szDeviceName: Array[0..RAS_MaxDeviceName] Of Char; End; PRASDIALEXTENSIONS= ^TRASDIALEXTENSIONS; TRASDIALEXTENSIONS= Record dwSize: DWORD; dwfOptions: DWORD; hwndParent: HWnd; reserved: DWORD; end; PRASDialParams = ^TRASDialParams; 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; end; PRASEntryName = ^TRASEntryName; TRASEntryName = Record dwSize: LongInt; szEntryName: Array[0..RAS_MaxEntryName] Of Char; // Reserved: Byte; End; Function RasDial( lpRasDialExtensions : PRASDIALEXTENSIONS ; // pointer to function extensions data lpszPhonebook: PChar; // pointer to full path and filename of phonebook file lpRasDialParams : PRASDIALPARAMS; // pointer to calling parameters data dwNotifierType : DWORD; // specifies type of RasDial event handler lpvNotifier: DWORD; // specifies a handler for RasDial events var rasConn: HRASConn // pointer to variable to receive connection handle ): DWORD; stdcall; function RasEnumConnections(RASConn: PrasConn; { buffer to receive Connections data } var BufSize: DWord; { size in bytes of buffer } var Connections: DWord { number of Connections written to buffer } ): LongInt; stdcall; Function RasEnumEntries ( reserved: PChar; // reserved, must be NULL lpszPhonebook: PChar ; // pointer to full path and filename of phonebook file lprasentryname: PRASENTRYNAME ; // buffer to receive phonebook entries var lpcb : DWORD;// size in bytes of buffer var lpcEntries : DWORD// number of entries written to buffer ) : DWORD; stdcall; function RasGetConnectStatus(RASConn: hrasConn; { handle to Remote Access Connection of interest } RASConnStatus: PRASConnStatus { buffer to receive status data } ): LongInt; stdcall; function RasGetErrorString(ErrorCode: DWord; { error code to get string for } szErrorString: PChar; { buffer to hold error string } BufSize: DWord { sizeof buffer } ): LongInt; stdcall; function RasHangUp(RASConn: hrasConn { handle to the Remote Access Connection to hang up } ): LongInt; stdcall; function RasGetEntryDialParams( lpszPhonebook:PChar; // pointer to the full path and filename of the phonebook file VAR lprasdialparams:TRASDIALPARAMS; // pointer to a structure that receives the connection parameters VAR lpfPassword : BOOL // indicates whether the user's password was retrieved ): DWORD; stdcall; implementation const RAS_DLL = 'RASAPI32'; function RasDial; external RAS_DLL name 'RasDialA'; function RasEnumConnections; external RAS_DLL name 'RasEnumConnectionsA'; function RasEnumEntries; external RAS_DLL name 'RasEnumEntriesA'; function RasGetConnectStatus; external RAS_DLL name 'RasGetConnectStatusA'; function RasGetErrorString; external RAS_DLL name 'RasGetErrorStringA'; function RasHangUp; external RAS_DLL name 'RasHangUpA'; function RasGetEntryDialParams; external RAS_DLL name 'RasGetEntryDialParamsA'; end.