Examples Delphi

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