[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    {$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<n> 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.

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]