adrasutl.pas

测试用例

(***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is TurboPower Async Professional
 *
 * The Initial Developer of the Original Code is
 * TurboPower Software
 *
 * Portions created by the Initial Developer are Copyright (C) 1991-2002
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)

{*********************************************************}
{*                   ADRASUTL.PAS 4.06                   *}
{*********************************************************}
{* RASDLL interface methods                              *}
{*********************************************************}

{Global defines potentially affecting this unit}
{$I AWDEFINE.INC}

{Options required for this unit}
{$G+,X+,F+,B-,A+,J+}
{$C MOVEABLE,DEMANDLOAD,DISCARDABLE}

unit AdRasUtl;
  {-Basic remote access interface unit}

interface

uses
  Windows,
  SysUtils,
  Messages,
  AdExcept,                                                              {!!.06}
  OoMisc;                                                                {!!.06}


const {Misc constants}
  RASDLL          = 'RASAPI32';
  RasDlgDLL       = 'RASDLG';
  AdRasDialEvent  = 'RasDialEvent';
  WM_RASDIALEVENT = $0CCCD;

{const {RasMaximum buffer sizes} { moved to OOMisc }                     {!!.06}

const {RAS dial notifier types}
  ntNotifyDialFunc1 = 0;
  ntNotifyDialFunc2 = 1;
  ntNotifyWindow    : DWord = $0FFFFFFFF;

const {RAS dial extended features - Windows NT}
  deUsePrefixSuffix           = $00000001;
  dePausedStates              = $00000002;
  deIgnoreModemSpeaker        = $00000004;
  deSetModemSpeaker           = $00000008;
  deIgnoreSoftwarecompression = $00000010;
  deSetSoftwarecompression    = $00000020;
  deDisableConnectedUI        = $00000040;
  deDisableReconnectUI        = $00000080;
  deDisableReconnect          = $00000100;
  deNoUser                    = $00000200;
  dePauseOnScript             = $00000400;
  deRouter                    = $00000800;

const {RAS error codes}
  ecRasOK                          = 0;
  ecRasFunctionNotSupported        = -1;
  ecRasRasBase                     = 600;
  ecRasPending                     = ecRasRasBase + 0;
  ecRasInvalidPortHandle           = ecRasRasBase + 1;
  ecRasPortAlreadyOpen             = ecRasRasBase + 2;
  ecRasBufferTooSmall              = ecRasRasBase + 3;
  ecRasWrongInfoSpecified          = ecRasRasBase + 4;
  ecRasCannotSetPortInfo           = ecRasRasBase + 5;
  ecRasPortNotConnected            = ecRasRasBase + 6;
  ecRasEventInvalid                = ecRasRasBase + 7;
  ecRasDeviceDoesNotExist          = ecRasRasBase + 8;
  ecRasDeviceTypeDoesNotExist      = ecRasRasBase + 9;
  ecRasInvalidBuffer               = ecRasRasBase + 10;
  ecRasRouteNotAvailable           = ecRasRasBase + 11;
  ecRasRouteNotAllocated           = ecRasRasBase + 12;
  ecRasInvalidCompression          = ecRasRasBase + 13;
  ecRasOutOfBuffers                = ecRasRasBase + 14;
  ecRasPortNotFound                = ecRasRasBase + 15;
  ecRasAsyncRequestPending         = ecRasRasBase + 16;
  ecRasAlreadyDisconnecting        = ecRasRasBase + 17;
  ecRasPortNotOpen                 = ecRasRasBase + 18;
  ecRasPortDisconnected            = ecRasRasBase + 19;
  ecRasNoEndPoints                 = ecRasRasBase + 20;
  ecRasCannotOpenPhonebook         = ecRasRasBase + 21;
  ecRasCannotLoadPhonebook         = ecRasRasBase + 22;
  ecRasCannotFindPhonebookEntry    = ecRasRasBase + 23;
  ecRasCannotWritePhonebook        = ecRasRasBase + 24;
  ecRasCorruptPhonebook            = ecRasRasBase + 25;
  ecRasCannotLoadString            = ecRasRasBase + 26;
  ecRasKeyNotFound                 = ecRasRasBase + 27;
  ecRasDisconnection               = ecRasRasBase + 28;
  ecRasRemoteDisconnection         = ecRasRasBase + 29;
  ecRasHardwareFailure             = ecRasRasBase + 30;
  ecRasUserDisconnection           = ecRasRasBase + 31;
  ecRasInvalidSize                 = ecRasRasBase + 32;
  ecRasPortNotAvailable            = ecRasRasBase + 33;
  ecRasCannotProjectClient         = ecRasRasBase + 34;
  ecRasUnknown                     = ecRasRasBase + 35;
  ecRasWrongDeviceAttached         = ecRasRasBase + 36;
  ecRasBadString                   = ecRasRasBase + 37;
  ecRasRequestTimeout              = ecRasRasBase + 38;
  ecRasCannotGetLana               = ecRasRasBase + 39;
  ecRasNetBiosError                = ecRasRasBase + 40;
  ecRasServerOutOfResources        = ecRasRasBase + 41;
  ecRasNameExistsOnNet             = ecRasRasBase + 42;
  ecRasServerGeneralNetFailure     = ecRasRasBase + 43;
  ecRasMsgAliasNotAdded            = ecRasRasBase + 44;
  ecRasAuthInternal                = ecRasRasBase + 45;
  ecRasRestrictedLogonHours        = ecRasRasBase + 46;
  ecRasAcctDisabled                = ecRasRasBase + 47;
  ecRasPasswordExpired             = ecRasRasBase + 48;
  ecRasNoDialinPermission          = ecRasRasBase + 49;
  ecRasServerNotResponding         = ecRasRasBase + 50;
  ecRasFromDevice                  = ecRasRasBase + 51;
  ecRasUnrecognizedResponse        = ecRasRasBase + 52;
  ecRasMacroNotFound               = ecRasRasBase + 53;
  ecRasMacroNotDefined             = ecRasRasBase + 54;
  ecRasMessageMacroNotFound        = ecRasRasBase + 55;
  ecRasDefaultOffMacroNotFound     = ecRasRasBase + 56;
  ecRasFilecouldNotBeOpened        = ecRasRasBase + 57;
  ecRasDeviceNameTooLong           = ecRasRasBase + 58;
  ecRasDevicenameNotFound          = ecRasRasBase + 59;
  ecRasNoResponses                 = ecRasRasBase + 60;
  ecRasNoCommandFound              = ecRasRasBase + 61;
  ecRasWrongKeySpecified           = ecRasRasBase + 62;
  ecRasUnknownDeviceType           = ecRasRasBase + 63;
  ecRasAllocatingMemory            = ecRasRasBase + 64;
  ecRasPortNotConfigured           = ecRasRasBase + 65;
  ecRasDeviceNotReady              = ecRasRasBase + 66;
  ecRasErrorReadingIniFile         = ecRasRasBase + 67;
  ecRasNoConnection                = ecRasRasBase + 68;
  ecRasBadUsageInIniFile           = ecRasRasBase + 69;
  ecRasReadingSectionName          = ecRasRasBase + 70;
  ecRasReadingDeviceType           = ecRasRasBase + 71;
  ecRasReadingDeviceName           = ecRasRasBase + 72;
  ecRasReadingUsage                = ecRasRasBase + 73;
  ecRasReadingMaxConnectBPS        = ecRasRasBase + 74;
  ecRasReadingMaxCarrierBPS        = ecRasRasBase + 75;
  ecRasLineBusy                    = ecRasRasBase + 76;
  ecRasVoiceAnswer                 = ecRasRasBase + 77;
  ecRasNoAnswer                    = ecRasRasBase + 78;
  ecRasNoCarrier                   = ecRasRasBase + 79;
  ecRasNoDialtone                  = ecRasRasBase + 80;
  ecRasInCommand                   = ecRasRasBase + 81;
  ecRasWritingSectionName          = ecRasRasBase + 82;
  ecRasWritingDeviceType           = ecRasRasBase + 83;
  ecRasWritingDeviceName           = ecRasRasBase + 84;
  ecRasWritingMaxConnectBPS        = ecRasRasBase + 85;
  ecRasWritingMaxCarrierBPS        = ecRasRasBase + 86;
  ecRasWritingUsage                = ecRasRasBase + 87;
  ecRasWritingDefaultOff           = ecRasRasBase + 88;
  ecRasReadingDefaultOff           = ecRasRasBase + 89;
  ecRasEmptyIniFile                = ecRasRasBase + 90;
  ecRasAuthenticationFailure       = ecRasRasBase + 91;
  ecRasPortOrDevice                = ecRasRasBase + 92;
  ecRasNotBinaryMacro              = ecRasRasBase + 93;
  ecRasDCBNotFound                 = ecRasRasBase + 94;
  ecRasStateMachinesNotStarted     = ecRasRasBase + 95;
  ecRasStateMachinesAlreadyStarted = ecRasRasBase + 96;
  ecRasPartialResponseLooping      = ecRasRasBase + 97;
  ecRasUnknownResponseKey          = ecRasRasBase + 98;
  ecRasRecvBufFull                 = ecRasRasBase + 99;
  ecRasCmdTooLong                  = ecRasRasBase + 100;
  ecRasUnsupportedBPS              = ecRasRasBase + 101;
  ecRasUnexpectedResponse          = ecRasRasBase + 102;
  ecRasInteractiveMode             = ecRasRasBase + 103;
  ecRasBadCallbackNumber           = ecRasRasBase + 104;
  ecRasInvalidAuthState            = ecRasRasBase + 105;
  ecRasWritingInitBPS              = ecRasRasBase + 106;
  ecRasX25Diagnostic               = ecRasRasBase + 107;
  ecRasAcctExpired                 = ecRasRasBase + 108;
  ecRasChangingPassword            = ecRasRasBase + 109;
  ecRasOverrun                     = ecRasRasBase + 110;
  ecRasRasBaseManConnotInitialize  = ecRasRasBase + 111;
  ecRasBiplexPortNotAvailable      = ecRasRasBase + 112;
  ecRasNoActiveISDNLines           = ecRasRasBase + 113;
  ecRasNoISDNChannelsAvailable     = ecRasRasBase + 114;
  ecRasTooManyLineErrors           = ecRasRasBase + 115;
  ecRasIPConfiguration             = ecRasRasBase + 116;
  ecRasNoIPAddresses               = ecRasRasBase + 117;
  ecRasPPPTimeout                  = ecRasRasBase + 118;
  ecRasPPPRemoteTerminated         = ecRasRasBase + 119;
  ecRasPPPNoProtocolsConfigured    = ecRasRasBase + 120;
  ecRasPPPNoResponse               = ecRasRasBase + 121;
  ecRasPPPInvalidPacket            = ecRasRasBase + 122;
  ecRasPhoneNumberTooLong          = ecRasRasBase + 123;
  ecRasIPXCPNoDialOutConfigured    = ecRasRasBase + 124;
  ecRasIPXCPNoDialInConfigured     = ecRasRasBase + 125;
  ecRasIPXCPDialOutAlreadyActive   = ecRasRasBase + 126;
  ecRasAccessingTCPCFGDLL          = ecRasRasBase + 127;
  ecRasNOIPRasAdapter              = ecRasRasBase + 128;
  ecRasSlipRequiresIP              = ecRasRasBase + 129;
  ecRasProjectionNotComplete       = ecRasRasBase + 130;
  ecRasProtocolNotConfigured       = ecRasRasBase + 131;
  ecRasPPPNotConverging            = ecRasRasBase + 132;
  ecRasPPPCPRejected               = ecRasRasBase + 133;
  ecRasPPPLCPTerminated            = ecRasRasBase + 134;
  ecRasPPPRequiredAddressRejected  = ecRasRasBase + 135;
  ecRasPPPNCPTerminated            = ecRasRasBase + 136;
  ecRasPPPLoopbackDetected         = ecRasRasBase + 137;
  ecRasPPPNoAddressAssigned        = ecRasRasBase + 138;
  ecRasCannotUseLogonCredentials   = ecRasRasBase + 139;
  ecRasTapiConfiguration           = ecRasRasBase + 140;
  ecRasNoLocalEncryption           = ecRasRasBase + 141;
  ecRasNoRemoteEncryption          = ecRasRasBase + 142;
  ecRasRemoteRequiresEncryption    = ecRasRasBase + 143;
  ecRasIPXCPNetNumberConflict      = ecRasRasBase + 144;
  ecRasInvalidSMM                  = ecRasRasBase + 145;
  ecRasSMMUninitialized            = ecRasRasBase + 146;
  ecRasNoMACForPort                = ecRasRasBase + 147;
  ecRasSMMTimeOut                  = ecRasRasBase + 148;
  ecRasBadPhoneNumber              = ecRasRasBase + 149;
  ecRasWrongModule                 = ecRasRasBase + 150;
  ecRasInvalidCallBackNumber       = ecRasRasBase + 151;
  ecRasScriptSyntax                = ecRasRasBase + 152;
  ecRasHangupFailed                = ecRasRasBase + 153;
  ecRasRasEnd                      = ecRasRasBase + 153;

const {RAS Connection status codes}
  csRasBase                = 0;
  { status consts moved to OOMisc }                                      {!!.04}
  

type {Misc types}
  PHRasConn  = ^HRasConn;
  HRasConn   = THandle;
  TRasState  = DWord;
  TRasError  = DWord;
{  FARPROC    = Pointer; }                                           

type {RAS dial paramters}
  PRasDialParams = ^TRasDialParams;
  TRasDialParams = record
    dwSize           : DWord;
    szEntryName      : array [0..RasMaxEntryName] of Char;
    szPhoneNumber    : array [0..RasMaxPhoneNumber] of Char;
    szCallbackNumber : array [0..RasMaxCallBackNum] of Char;
    szUserName       : array [0..RasMaxUserName] of Char;
    szPassword       : array [0..RasMaxPassword] of Char;
    szDomain         : array [0..RasMaxDomain] of Char;
  end;

type {RAS Connection}
  PRasConn = ^TRasConn;
  TRasConn = record
    dwSize       : DWord;
    rasConn      : DWord;
    szEntryName  : array [0..RasMaxEntryName] of Char;
    szDeviceType : array [0..RasMaxDeviceType] of Char;
    szDeviceName : array [0..RasMaxDeviceName] of Char;
  end;
  PRasConnArray = ^TRasConnArray;
  TRasConnArray = array[0..RasMaxEntries] of TRasConn;

type {RAS Connect status}
  PRasConnStatus = ^TRasConnStatus;
  TRasConnStatus = record
    dwSize       : DWord;
    rasConnState : DWord;
    dwError      : DWord;
    szDeviceType : array [0..RasMaxDeviceType] of Char;
    szDeviceName : array [0..RasMaxDeviceName] of Char;
  end;

type {RAS phonebook entry name}
  PRasEntryName = ^TRasEntryName;
  TRasEntryName = record
    dwSize      : LongInt;
    szEntryName : array [0..RasMaxEntryName] of Char;
  end;
  PRasEntryNameArray = ^TRasEntryNameArray;
  TRasEntryNameArray = array[0..RasMaxEntries] of TRasEntryName;

type {RAS dial extended features (Windows NT)}
  PRasDialExtensions = ^TRasDialExtensions;
  TRasDialExtensions = record
    dwSize     : DWord;
    dwfOptions : DWord;
    hwndParent : HWnd;
    reserved   : DWord;
  end;

type {RAS TAPI device information}
  PRasDeviceInfo = ^TRasDeviceInfo;
  TRasDeviceInfo = record
    dwSize       : DWord;
    szDeviceType : array [0..RasMaxDeviceType] of Char;
    szDeviceName : array [0..RasMaxDeviceName] of Char;
  end;

type {RAS country dialing information}
  PRasCountryInfo = ^TRasCountryInfo;
  TRasCountryInfo = record
    dwSize              : DWord;
    dwCountryID	        : DWord;
    dwNextCountryID     : DWord;
    dwCountryCode       : DWord;
    dwCountryNameOffset : DWord;
  end;

{type {RAS IP address - "a.b.c.d"}
  {PRasIPAddr = ^TRasIPAddr;} { moved to OOMisc }                        {!!.06}

{type {RAS phonebook entry properties}
  {PRasEntry = ^TRasEntry;} { moved to OOMisc }                          {!!.06}

type {RAS dial dialog information - AdRasDialDlg}
  PRasDialDlgInfo = ^TRasDialDlgInfo;
  TRasDialDlgInfo = record
    dwSize     : DWord;
    hwndOwner  : Hwnd;