📄 jwalpmapi.pas
字号:
PFlowDesc = ^FLOW_DESC;
//#define FdSenderTspec u1.stspec
//#define FdIsFlowSpec u1.isflow
//#define FdSenderTemplate u2.stemp
//#define FdFilterSpec u2.fspec
(*
* ADSPEC class object
*
* Opaque to RSVP -- Contents defined in rapi_lib.h
*)
const
ctype_ADSPEC_INTSERV = 2;
{$EXTERNALSYM ctype_ADSPEC_INTSERV}
(*
* Guaranteed service Adspec parameters -- fixed part
*)
type
Gads_parms_t = record
Gads_serv_hdr: IntServServiceHdr; // GUARANTEED, x, len
Gads_Ctot_hdr: IntServParmHdr; // GUAR_ADSPARM_Ctot
Gads_Ctot: ULONG;
Gads_Dtot_hdr: IntServParmHdr; // (GUAR_ADSPARM_Dtot
Gads_Dtot: ULONG;
Gads_Csum_hdr: IntServParmHdr; // GUAR_ADSPARM_Csum
Gads_Csum: ULONG;
Gads_Dsum_hdr: IntServParmHdr; // GUAR_ADSPARM_Dsum
Gads_Dsum: ULONG;
(*
* May be followed by override general param values
*)
end;
{$EXTERNALSYM Gads_parms_t}
TGadsParmsT = Gads_parms_t;
PGadsParmsT = ^Gads_parms_t;
(*
* General Path Characterization Parameters
*)
GenAdspecParams = record
gen_parm_hdr: IntServServiceHdr; // GENERAL_INFO, len
gen_parm_hopcnt_hdr: IntServParmHdr; // (IS_WKP_HOP_CNT
gen_parm_hopcnt: ULONG;
gen_parm_pathbw_hdr: IntServParmHdr; // IS_WKP_PATH_BW
gen_parm_path_bw: FLOAT;
gen_parm_minlat_hdr: IntServParmHdr; // IS_WKP_MIN_LATENCY
gen_parm_min_latency: ULONG;
gen_parm_compmtu_hdr: IntServParmHdr; // IS_WKP_COMPOSED_MTU
gen_parm_composed_MTU: ULONG;
end;
{$EXTERNALSYM GenAdspecParams}
TGenAdspecParams = GenAdspecParams;
PGenAdspecParams = ^GenAdspecParams;
(*
* Contents of (minimal) int-serv Adspec
*)
IS_ADSPEC_BODY = record
adspec_mh: IntServMainHdr; // Main header
adspec_genparms: GenAdspecParams;// General char parm fragment
(*
* Followed by variable-length fragments for some or all
* services. These can be minimal length fragments.
*)
end;
{$EXTERNALSYM IS_ADSPEC_BODY}
TIsAdSpecBody = IS_ADSPEC_BODY;
PIsAdSpecBody = ^IS_ADSPEC_BODY;
//const TODO Unknown Object_Header
// GEN_ADSPEC_LEN = SizeOf(Object_header) + SizeOf(IS_adsbody_t);
// {$EXTERNALSYM GEN_ADSPEC_LEN}
type
ADSPEC = record
adspec_header: RsvpObjHdr;
adspec_body: IS_ADSPEC_BODY; (* Defined in rapi_lib.h *)
end;
{$EXTERNALSYM ADSPEC}
TAdSpec = ADSPEC;
PAdSpec = ^ADSPEC;
// RSVP message types
const
RSVP_PATH = 1;
{$EXTERNALSYM RSVP_PATH}
RSVP_RESV = 2;
{$EXTERNALSYM RSVP_RESV}
RSVP_PATH_ERR = 3;
{$EXTERNALSYM RSVP_PATH_ERR}
RSVP_RESV_ERR = 4;
{$EXTERNALSYM RSVP_RESV_ERR}
RSVP_PATH_TEAR = 5;
{$EXTERNALSYM RSVP_PATH_TEAR}
RSVP_RESV_TEAR = 6;
{$EXTERNALSYM RSVP_RESV_TEAR}
(* RSVP error codes
*)
RSVP_Err_NONE = 0; (* No error (CONFIRM) *)
{$EXTERNALSYM RSVP_Err_NONE}
RSVP_Erv_Nonev = 0; (* No-error Error Value *)
{$EXTERNALSYM RSVP_Erv_Nonev}
(* Admission Control failure *)
RSVP_Err_ADMISSION = 1;
{$EXTERNALSYM RSVP_Err_ADMISSION}
(* Globally-defined sub-codes for : Admission Control failure *)
RSVP_Erv_Other = 0; (* Unspecified cause *)
{$EXTERNALSYM RSVP_Erv_Other}
RSVP_Erv_DelayBnd = 1; (* Cannot meet delay bound req *)
{$EXTERNALSYM RSVP_Erv_DelayBnd}
RSVP_Erv_Bandwidth = 2; (* Insufficient bandwidth *)
{$EXTERNALSYM RSVP_Erv_Bandwidth}
RSVP_Erv_MTU = 3; (* MTU in flowspec too large *)
{$EXTERNALSYM RSVP_Erv_MTU}
// Microsoft specific error values
RSVP_Erv_Flow_Rate = $8001;
{$EXTERNALSYM RSVP_Erv_Flow_Rate}
RSVP_Erv_Bucket_szie = $8002;
{$EXTERNALSYM RSVP_Erv_Bucket_szie}
RSVP_Erv_Peak_Rate = $8003;
{$EXTERNALSYM RSVP_Erv_Peak_Rate}
RSVP_Erv_Min_Policied_size = $8004;
{$EXTERNALSYM RSVP_Erv_Min_Policied_size}
(* Policy control failure *)
RSVP_Err_POLICY = 2;
{$EXTERNALSYM RSVP_Err_POLICY}
// Policy error values from Identity draft
POLICY_ERRV_NO_MORE_INFO = 1;
{$EXTERNALSYM POLICY_ERRV_NO_MORE_INFO}
POLICY_ERRV_UNSUPPORTED_CREDENTIAL_TYPE = 2;
{$EXTERNALSYM POLICY_ERRV_UNSUPPORTED_CREDENTIAL_TYPE}
POLICY_ERRV_INSUFFICIENT_PRIVILEGES = 3;
{$EXTERNALSYM POLICY_ERRV_INSUFFICIENT_PRIVILEGES}
POLICY_ERRV_EXPIRED_CREDENTIALS = 4;
{$EXTERNALSYM POLICY_ERRV_EXPIRED_CREDENTIALS}
POLICY_ERRV_IDENTITY_CHANGED = 5;
{$EXTERNALSYM POLICY_ERRV_IDENTITY_CHANGED}
// Microsoft specific policy error values
POLICY_ERRV_UNKNOWN = 0;
{$EXTERNALSYM POLICY_ERRV_UNKNOWN}
POLICY_ERRV_GLOBAL_DEF_FLOW_COUNT = 1;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_DEF_FLOW_COUNT}
POLICY_ERRV_GLOBAL_GRP_FLOW_COUNT = 2;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_GRP_FLOW_COUNT}
POLICY_ERRV_GLOBAL_USER_FLOW_COUNT = 3;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_USER_FLOW_COUNT}
POLICY_ERRV_GLOBAL_UNAUTH_USER_FLOW_COUNT = 4;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_UNAUTH_USER_FLOW_COUNT}
POLICY_ERRV_SUBNET_DEF_FLOW_COUNT = 5;
{$EXTERNALSYM POLICY_ERRV_SUBNET_DEF_FLOW_COUNT}
POLICY_ERRV_SUBNET_GRP_FLOW_COUNT = 6;
{$EXTERNALSYM POLICY_ERRV_SUBNET_GRP_FLOW_COUNT}
POLICY_ERRV_SUBNET_USER_FLOW_COUNT = 7;
{$EXTERNALSYM POLICY_ERRV_SUBNET_USER_FLOW_COUNT}
POLICY_ERRV_SUBNET_UNAUTH_USER_FLOW_COUNT = 8;
{$EXTERNALSYM POLICY_ERRV_SUBNET_UNAUTH_USER_FLOW_COUNT}
POLICY_ERRV_GLOBAL_DEF_FLOW_DURATION = 9;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_DEF_FLOW_DURATION}
POLICY_ERRV_GLOBAL_GRP_FLOW_DURATION = 10;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_GRP_FLOW_DURATION}
POLICY_ERRV_GLOBAL_USER_FLOW_DURATION = 11;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_USER_FLOW_DURATION}
POLICY_ERRV_GLOBAL_UNAUTH_USER_FLOW_DURATION = 12;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_UNAUTH_USER_FLOW_DURATION}
POLICY_ERRV_SUBNET_DEF_FLOW_DURATION = 13;
{$EXTERNALSYM POLICY_ERRV_SUBNET_DEF_FLOW_DURATION}
POLICY_ERRV_SUBNET_GRP_FLOW_DURATION = 14;
{$EXTERNALSYM POLICY_ERRV_SUBNET_GRP_FLOW_DURATION}
POLICY_ERRV_SUBNET_USER_FLOW_DURATION = 15;
{$EXTERNALSYM POLICY_ERRV_SUBNET_USER_FLOW_DURATION}
POLICY_ERRV_SUBNET_UNAUTH_USER_FLOW_DURATION = 16;
{$EXTERNALSYM POLICY_ERRV_SUBNET_UNAUTH_USER_FLOW_DURATION}
POLICY_ERRV_GLOBAL_DEF_FLOW_RATE = 17;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_DEF_FLOW_RATE}
POLICY_ERRV_GLOBAL_GRP_FLOW_RATE = 18;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_GRP_FLOW_RATE}
POLICY_ERRV_GLOBAL_USER_FLOW_RATE = 19;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_USER_FLOW_RATE}
POLICY_ERRV_GLOBAL_UNAUTH_USER_FLOW_RATE = 20;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_UNAUTH_USER_FLOW_RATE}
POLICY_ERRV_SUBNET_DEF_FLOW_RATE = 21;
{$EXTERNALSYM POLICY_ERRV_SUBNET_DEF_FLOW_RATE}
POLICY_ERRV_SUBNET_GRP_FLOW_RATE = 22;
{$EXTERNALSYM POLICY_ERRV_SUBNET_GRP_FLOW_RATE}
POLICY_ERRV_SUBNET_USER_FLOW_RATE = 23;
{$EXTERNALSYM POLICY_ERRV_SUBNET_USER_FLOW_RATE}
POLICY_ERRV_SUBNET_UNAUTH_USER_FLOW_RATE = 24;
{$EXTERNALSYM POLICY_ERRV_SUBNET_UNAUTH_USER_FLOW_RATE}
POLICY_ERRV_GLOBAL_DEF_PEAK_RATE = 25;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_DEF_PEAK_RATE}
POLICY_ERRV_GLOBAL_GRP_PEAK_RATE = 26;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_GRP_PEAK_RATE}
POLICY_ERRV_GLOBAL_USER_PEAK_RATE = 27;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_USER_PEAK_RATE}
POLICY_ERRV_GLOBAL_UNAUTH_USER_PEAK_RATE = 28;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_UNAUTH_USER_PEAK_RATE}
POLICY_ERRV_SUBNET_DEF_PEAK_RATE = 29;
{$EXTERNALSYM POLICY_ERRV_SUBNET_DEF_PEAK_RATE}
POLICY_ERRV_SUBNET_GRP_PEAK_RATE = 30;
{$EXTERNALSYM POLICY_ERRV_SUBNET_GRP_PEAK_RATE}
POLICY_ERRV_SUBNET_USER_PEAK_RATE = 31;
{$EXTERNALSYM POLICY_ERRV_SUBNET_USER_PEAK_RATE}
POLICY_ERRV_SUBNET_UNAUTH_USER_PEAK_RATE = 32;
{$EXTERNALSYM POLICY_ERRV_SUBNET_UNAUTH_USER_PEAK_RATE}
POLICY_ERRV_GLOBAL_DEF_SUM_FLOW_RATE = 33;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_DEF_SUM_FLOW_RATE}
POLICY_ERRV_GLOBAL_GRP_SUM_FLOW_RATE = 34;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_GRP_SUM_FLOW_RATE}
POLICY_ERRV_GLOBAL_USER_SUM_FLOW_RATE = 35;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_USER_SUM_FLOW_RATE}
POLICY_ERRV_GLOBAL_UNAUTH_USER_SUM_FLOW_RATE = 36;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_UNAUTH_USER_SUM_FLOW_RATE}
POLICY_ERRV_SUBNET_DEF_SUM_FLOW_RATE = 37;
{$EXTERNALSYM POLICY_ERRV_SUBNET_DEF_SUM_FLOW_RATE}
POLICY_ERRV_SUBNET_GRP_SUM_FLOW_RATE = 38;
{$EXTERNALSYM POLICY_ERRV_SUBNET_GRP_SUM_FLOW_RATE}
POLICY_ERRV_SUBNET_USER_SUM_FLOW_RATE = 39;
{$EXTERNALSYM POLICY_ERRV_SUBNET_USER_SUM_FLOW_RATE}
POLICY_ERRV_SUBNET_UNAUTH_USER_SUM_FLOW_RATE = 40;
{$EXTERNALSYM POLICY_ERRV_SUBNET_UNAUTH_USER_SUM_FLOW_RATE}
POLICY_ERRV_GLOBAL_DEF_SUM_PEAK_RATE = 41;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_DEF_SUM_PEAK_RATE}
POLICY_ERRV_GLOBAL_GRP_SUM_PEAK_RATE = 42;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_GRP_SUM_PEAK_RATE}
POLICY_ERRV_GLOBAL_USER_SUM_PEAK_RATE = 43;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_USER_SUM_PEAK_RATE}
POLICY_ERRV_GLOBAL_UNAUTH_USER_SUM_PEAK_RATE = 44;
{$EXTERNALSYM POLICY_ERRV_GLOBAL_UNAUTH_USER_SUM_PEAK_RATE}
POLICY_ERRV_SUBNET_DEF_SUM_PEAK_RATE = 45;
{$EXTERNALSYM POLICY_ERRV_SUBNET_DEF_SUM_PEAK_RATE}
POLICY_ERRV_SUBNET_GRP_SUM_PEAK_RATE = 46;
{$EXTERNALSYM POLICY_ERRV_SUBNET_GRP_SUM_PEAK_RATE}
POLICY_ERRV_SUBNET_USER_SUM_PEAK_RATE = 47;
{$EXTERNALSYM POLICY_ERRV_SUBNET_USER_SUM_PEAK_RATE}
POLICY_ERRV_SUBNET_UNAUTH_USER_SUM_PEAK_RATE = 48;
{$EXTERNALSYM POLICY_ERRV_SUBNET_UNAUTH_USER_SUM_PEAK_RATE}
POLICY_ERRV_UNKNOWN_USER = 49;
{$EXTERNALSYM POLICY_ERRV_UNKNOWN_USER}
POLICY_ERRV_NO_PRIVILEGES = 50;
{$EXTERNALSYM POLICY_ERRV_NO_PRIVILEGES}
POLICY_ERRV_EXPIRED_USER_TOKEN = 51;
{$EXTERNALSYM POLICY_ERRV_EXPIRED_USER_TOKEN}
POLICY_ERRV_NO_RESOURCES = 52;
{$EXTERNALSYM POLICY_ERRV_NO_RESOURCES}
POLICY_ERRV_PRE_EMPTED = 53;
{$EXTERNALSYM POLICY_ERRV_PRE_EMPTED}
POLICY_ERRV_USER_CHANGED = 54;
{$EXTERNALSYM POLICY_ERRV_USER_CHANGED}
POLICY_ERRV_NO_ACCEPTS = 55;
{$EXTERNALSYM POLICY_ERRV_NO_ACCEPTS}
POLICY_ERRV_NO_MEMORY = 56;
{$EXTERNALSYM POLICY_ERRV_NO_MEMORY}
POLICY_ERRV_CRAZY_FLOWSPEC = 57;
{$EXTERNALSYM POLICY_ERRV_CRAZY_FLOWSPEC}
// Other RSVP defined Error codes
RSVP_Err_NO_PATH = 3; (* No path state for Resv *)
{$EXTERNALSYM RSVP_Err_NO_PATH}
RSVP_Err_NO_SENDER = 4; (* No sender info for Resv *)
{$EXTERNALSYM RSVP_Err_NO_SENDER}
RSVP_Err_BAD_STYLE = 5; (* Conflicting style *)
{$EXTERNALSYM RSVP_Err_BAD_STYLE}
RSVP_Err_UNKNOWN_STYLE = 6; (* Unknown reservation style *)
{$EXTERNALSYM RSVP_Err_UNKNOWN_STYLE}
RSVP_Err_BAD_DSTPORT = 7; (* Conflicting DstPort in Sess *)
{$EXTERNALSYM RSVP_Err_BAD_DSTPORT}
RSVP_Err_BAD_SNDPORT = 8; (* Conflicting Sender port *)
{$EXTERNALSYM RSVP_Err_BAD_SNDPORT}
RSVP_Err_AMBIG_FILTER = 9; (* Ambiguous Filter spec in Resv*)
{$EXTERNALSYM RSVP_Err_AMBIG_FILTER}
RSVP_Err_PREEMPTED = 12; (* Service Preempted *)
{$EXTERNALSYM RSVP_Err_PREEMPTED}
(* Unknown object Class-Num *)
RSVP_Err_UNKN_OBJ_CLASS = 13;
{$EXTERNALSYM RSVP_Err_UNKN_OBJ_CLASS}
(* ErrVal = Class_num, CType *)
(* Unknown object C-Type *)
RSVP_Err_UNKNOWN_CTYPE = 14;
{$EXTERNALSYM RSVP_Err_UNKNOWN_CTYPE}
(* ErrVal = Class_num, CType *)
RSVP_Err_API_ERROR = 20; (* API client error *)
{$EXTERNALSYM RSVP_Err_API_ERROR}
(* ErrVal = API error code *)
(* Traffic Control error *)
RSVP_Err_TC_ERROR = 21;
{$EXTERNALSYM RSVP_Err_TC_ERROR}
(* Globally-defined sub-codes for : Traffic Control errors *)
RSVP_Erv_Conflict_Serv = 01; (* Service Conflict *)
{$EXTERNALSYM RSVP_Erv_Conflict_Serv}
RSVP_Erv_No_Serv = 02; (* Unknown Service *)
{$EXTERNALSYM RSVP_Erv_No_Serv}
RSVP_Erv_Crazy_Flowspec = 03; (* Unreasonable Flowspec *)
{$EXTERNALSYM RSVP_Erv_Crazy_Flowspec}
RSVP_Erv_Crazy_Tspec = 04; (* Unreasonable Tspec *)
{$EXTERNALSYM RSVP_Erv_Crazy_Tspec}
RSVP_Err_TC_SYS_ERROR = 22; (* Traffic control system error *)
{$EXTERNALSYM RSVP_Err_TC_SYS_ERROR}
(* ErrVal = kernel error code *)
(* RSVP System error *)
RSVP_Err_RSVP_SYS_ERROR = 23;
{$EXTERNALSYM RSVP_Err_RSVP_SYS_ERROR}
(* Globally-defined sub-codes for : RSVP system errors *)
RSVP_Erv_MEMORY = 1; (* Out of memory *)
{$EXTERNALSYM RSVP_Erv_MEMORY}
RSVP_Erv_API = 2; (* API logic error *)
{$EXTERNALSYM RSVP_Erv_API}
// Identity Policy elements related defines
// Reseved Identity PE types
LPM_PE_USER_IDENTITY = 2;
{$EXTERNALSYM LPM_PE_USER_IDENTITY}
LPM_PE_APP_IDENTITY = 3;
{$EXTERNALSYM LPM_PE_APP_IDENTITY}
// Defines for Identity error values
ERROR_NO_MORE_INFO = 1;
{$EXTERNALSYM ERROR_NO_MORE_INFO}
UNSUPPORTED_CREDENTIAL_TYPE = 2;
{$EXTERNALSYM UNSUPPORTED_CREDENTIAL_TYPE}
INSUFFICIENT_PRIVILEGES = 3;
{$EXTERNALSYM INSUFFICIENT_PRIVILEGES}
EXPIRED_CREDENTIAL = 4;
{$EXTERNALSYM EXPIRED_CREDENTIAL}
IDENTITY_CHANGED = 5;
{$EXTERNALSYM IDENTITY_CHANGED}
type
ID_ERROR_OBJECT = record
usIdErrLength: USHORT;
ucAType: UCHAR;
ucSubType: UCHAR;
usReserved: USHORT;
usIdErrorValue: USHORT;
ucIdErrData: array [0..3] of UCHAR;
end;
{$EXTERNALSYM ID_ERROR_OBJECT}
TIdErrorObject = ID_ERROR_OBJECT;
PIdErrorObject = ^ID_ERROR_OBJECT;
const
ID_ERR_OBJ_HDR_LEN = SizeOf(ID_ERROR_OBJECT) - 4 * SizeOf(UCHAR);
{$EXTERNALSYM ID_ERR_OBJ_HDR_LEN}
(*
LPM API specific definitions
*)
(**************************************
LPM_Initialize
***************************************)
type
LPM_HANDLE = HANDLE;
{$EXTERNALSYM LPM_HANDLE}
RHANDLE = HANDLE;
{$EXTERNALSYM RHANDLE}
LPV = ULONG;
{$EXTERNALSYM LPV}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -