📄 jwarpcdce.pas
字号:
ImpersonationType: Cardinal;
AdditionalSecurityInfoType: Cardinal;
u: record
case Integer of
0: (HttpCredentials: PRPC_HTTP_TRANSPORT_CREDENTIALS_A);
end;
Sid: Pointer;
end;
{$EXTERNALSYM _RPC_SECURITY_QOS_V3_A}
RPC_SECURITY_QOS_V3_A = _RPC_SECURITY_QOS_V3_A;
{$EXTERNALSYM RPC_SECURITY_QOS_V3_A}
PRPC_SECURITY_QOS_V3_A = ^RPC_SECURITY_QOS_V3_A;
{$EXTERNALSYM PRPC_SECURITY_QOS_V3_A}
TRpcSecurityQosV3A = RPC_SECURITY_QOS_V3_A;
PRpcSecurityQosV3A = PRPC_SECURITY_QOS_V3_A;
{$IFDEF UNICODE}
RPC_SECURITY_QOS_V2 = RPC_SECURITY_QOS_V2_W;
{$EXTERNALSYM RPC_SECURITY_QOS_V2}
PRPC_SECURITY_QOS_V2 = PRPC_SECURITY_QOS_V2_W;
{$EXTERNALSYM PRPC_SECURITY_QOS_V2}
_RPC_SECURITY_QOS_V2 = _RPC_SECURITY_QOS_V2_W;
{$EXTERNALSYM _RPC_SECURITY_QOS_V2}
TRpcSecurityQosV2 = TRpcSecurityQosV2W;
PRpcSecurityQosV2 = PRpcSecurityQosV2W;
RPC_HTTP_TRANSPORT_CREDENTIALS = RPC_HTTP_TRANSPORT_CREDENTIALS_W;
{$EXTERNALSYM RPC_HTTP_TRANSPORT_CREDENTIALS}
PRPC_HTTP_TRANSPORT_CREDENTIALS = PRPC_HTTP_TRANSPORT_CREDENTIALS_W;
{$EXTERNALSYM PRPC_HTTP_TRANSPORT_CREDENTIALS}
_RPC_HTTP_TRANSPORT_CREDENTIALS = _RPC_HTTP_TRANSPORT_CREDENTIALS_W;
{$EXTERNALSYM _RPC_HTTP_TRANSPORT_CREDENTIALS}
TRpcHttpTransportCredentials = TRpcHttpTransportCredentialsW;
PRpcHttpTransportCredentials = PRpcHttpTransportCredentialsW;
RPC_SECURITY_QOS_V3 = RPC_SECURITY_QOS_V3_W;
{$EXTERNALSYM RPC_SECURITY_QOS_V3}
PRPC_SECURITY_QOS_V3 = PRPC_SECURITY_QOS_V3_W;
{$EXTERNALSYM PRPC_SECURITY_QOS_V3}
_RPC_SECURITY_QOS_V3 = _RPC_SECURITY_QOS_V3_W;
{$EXTERNALSYM _RPC_SECURITY_QOS_V3}
TRpcSecurityQosV3 = TRpcSecurityQosV3W;
PRpcSecurityQosV3 = PRpcSecurityQosV3W;
{$ELSE}
RPC_SECURITY_QOS_V2 = RPC_SECURITY_QOS_V2_A;
{$EXTERNALSYM RPC_SECURITY_QOS_V2}
PRPC_SECURITY_QOS_V2 = PRPC_SECURITY_QOS_V2_A;
{$EXTERNALSYM PRPC_SECURITY_QOS_V2}
_RPC_SECURITY_QOS_V2 = _RPC_SECURITY_QOS_V2_A;
{$EXTERNALSYM _RPC_SECURITY_QOS_V2}
TRpcSecurityQosV2 = TRpcSecurityQosV2A;
PRpcSecurityQosV2 = PRpcSecurityQosV2A;
RPC_HTTP_TRANSPORT_CREDENTIALS = RPC_HTTP_TRANSPORT_CREDENTIALS_A;
{$EXTERNALSYM RPC_HTTP_TRANSPORT_CREDENTIALS}
PRPC_HTTP_TRANSPORT_CREDENTIALS = PRPC_HTTP_TRANSPORT_CREDENTIALS_A;
{$EXTERNALSYM PRPC_HTTP_TRANSPORT_CREDENTIALS}
_RPC_HTTP_TRANSPORT_CREDENTIALS = _RPC_HTTP_TRANSPORT_CREDENTIALS_A;
{$EXTERNALSYM _RPC_HTTP_TRANSPORT_CREDENTIALS}
TRpcHttpTransportCredentials = TRpcHttpTransportCredentialsA;
PRpcHttpTransportCredentials = PRpcHttpTransportCredentialsA;
RPC_SECURITY_QOS_V3 = RPC_SECURITY_QOS_V3_A;
{$EXTERNALSYM RPC_SECURITY_QOS_V3}
PRPC_SECURITY_QOS_V3 = PRPC_SECURITY_QOS_V3_A;
{$EXTERNALSYM PRPC_SECURITY_QOS_V3}
_RPC_SECURITY_QOS_V3 = _RPC_SECURITY_QOS_V3_A;
{$EXTERNALSYM _RPC_SECURITY_QOS_V3}
TRpcSecurityQosV3 = TRpcSecurityQosV3A;
PRpcSecurityQosV3 = PRpcSecurityQosV3A;
{$ENDIF}
type
RPC_NEW_HTTP_PROXY_CHANNEL = function (ServerName: PWideChar; ServerPort: PWord; RemoteUser: PByte; out NewServerName: PWord): RPC_STATUS; stdcall;
{$EXTERNALSYM RPC_NEW_HTTP_PROXY_CHANNEL}
RPC_HTTP_PROXY_FREE_STRING = procedure (ServerName: PWideChar); stdcall;
{$EXTERNALSYM RPC_HTTP_PROXY_FREE_STRING}
const
RPC_C_AUTHZ_NONE = 0;
{$EXTERNALSYM RPC_C_AUTHZ_NONE}
RPC_C_AUTHZ_NAME = 1;
{$EXTERNALSYM RPC_C_AUTHZ_NAME}
RPC_C_AUTHZ_DCE = 2;
{$EXTERNALSYM RPC_C_AUTHZ_DCE}
RPC_C_AUTHZ_DEFAULT = DWORD($ffffffff);
{$EXTERNALSYM RPC_C_AUTHZ_DEFAULT}
function RpcImpersonateClient(BindingHandle: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcImpersonateClient}
function RpcRevertToSelfEx(BindingHandle: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcRevertToSelfEx}
function RpcRevertToSelf: RPC_STATUS; stdcall;
{$EXTERNALSYM RpcRevertToSelf}
function RpcBindingInqAuthClientA(ClientBinding: RPC_BINDING_HANDLE;
Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPChar; AuthnLevel, AuthnSvc,
AuthzSvc: PCardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthClientA}
function RpcBindingInqAuthClientW(ClientBinding: RPC_BINDING_HANDLE;
Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc,
AuthzSvc: PCardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthClientW}
function RpcBindingInqAuthClientExA(ClientBinding: RPC_BINDING_HANDLE;
Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPChar; AuthnLevel, AuthnSvc,
AuthzSvc: PCardinal; Flags: Cardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthClientExA}
function RpcBindingInqAuthClientExW(ClientBinding: RPC_BINDING_HANDLE;
Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc,
AuthzSvc: PCardinal; Flags: Cardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthClientExW}
function RpcBindingInqAuthInfoA(Binding: RPC_BINDING_HANDLE; ServerPrincName: PPChar;
AuthnLevel, AuthnSvc: PCardinal; AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE;
AuthzSvc: PCardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthInfoA}
function RpcBindingInqAuthInfoW(Binding: RPC_BINDING_HANDLE; ServerPrincName: PPWideChar;
AuthnLevel, AuthnSvc: PCardinal; AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE;
AuthzSvc: PCardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthInfoW}
function RpcBindingSetAuthInfoA(Binding: RPC_BINDING_HANDLE; ServerPrincName: PChar;
AuthnLevel, AuthnSvc: Cardinal; AuthIdentity: RPC_AUTH_IDENTITY_HANDLE;
AuthzSvc: Cardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingSetAuthInfoA}
function RpcBindingSetAuthInfoW(Binding: RPC_BINDING_HANDLE; ServerPrincName: PWideChar;
AuthnLevel, AuthnSvc: Cardinal; AuthIdentity: RPC_AUTH_IDENTITY_HANDLE;
AuthzSvc: Cardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingSetAuthInfoW}
function RpcBindingSetAuthInfoExA(Binding: RPC_BINDING_HANDLE;
ServerPrincName: PChar; AuthnLevel, AuthnSvc: Cardinal;
AuthIdentity: RPC_AUTH_IDENTITY_HANDLE; AuthzSvc: Cardinal;
const SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingSetAuthInfoExA}
function RpcBindingSetAuthInfoExW(Binding: RPC_BINDING_HANDLE;
ServerPrincName: PWideChar; AuthnLevel, AuthnSvc: Cardinal;
AuthIdentity: RPC_AUTH_IDENTITY_HANDLE; AuthzSvc: Cardinal;
const SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingSetAuthInfoExW}
function RpcBindingInqAuthInfoExA(Binding: RPC_BINDING_HANDLE;
ServerPrincName: PPChar; AuthnLevel, AuthnSvc: PCardinal;
AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE; AuthzSvc: PCardinal;
RpcQosVersion: Cardinal; var SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthInfoExA}
function RpcBindingInqAuthInfoExW(Binding: RPC_BINDING_HANDLE;
ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc: PCardinal;
AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE; AuthzSvc: PCardinal;
RpcQosVersion: Cardinal; var SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthInfoExW}
type
RPC_AUTH_KEY_RETRIEVAL_FN = procedure (Arg: Pointer; ServerPrincName: PWideChar;
KeyVer: Cardinal; var Key: Pointer; var Status: RPC_STATUS); stdcall;
{$EXTERNALSYM RPC_AUTH_KEY_RETRIEVAL_FN}
TRpcAuthKeyRetrievalFn = RPC_AUTH_KEY_RETRIEVAL_FN;
function RpcServerRegisterAuthInfoA(ServerPrincName: PChar; AuthnSvc: Cardinal;
GetKeyFn: RPC_AUTH_KEY_RETRIEVAL_FN; Arg: Pointer): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcServerRegisterAuthInfoA}
function RpcServerRegisterAuthInfoW(ServerPrincName: PWideChar; AuthnSvc: Cardinal;
GetKeyFn: RPC_AUTH_KEY_RETRIEVAL_FN; Arg: Pointer): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcServerRegisterAuthInfoW}
{$IFDEF UNICODE}
function RpcBindingInqAuthClient(ClientBinding: RPC_BINDING_HANDLE;
Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc,
AuthzSvc: PCardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthClient}
function RpcBindingInqAuthClientEx(ClientBinding: RPC_BINDING_HANDLE;
Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc,
AuthzSvc: PCardinal; Flags: Cardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthClientEx}
function RpcBindingInqAuthInfo(Binding: RPC_BINDING_HANDLE; ServerPrincName: PPWideChar;
AuthnLevel, AuthnSvc: PCardinal; AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE;
AuthzSvc: PCardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthInfo}
function RpcBindingSetAuthInfo(Binding: RPC_BINDING_HANDLE; ServerPrincName: PWideChar;
AuthnLevel, AuthnSvc: Cardinal; AuthIdentity: RPC_AUTH_IDENTITY_HANDLE;
AuthzSvc: Cardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingSetAuthInfo}
function RpcBindingSetAuthInfoEx(Binding: RPC_BINDING_HANDLE;
ServerPrincName: PWideChar; AuthnLevel, AuthnSvc: Cardinal;
AuthIdentity: RPC_AUTH_IDENTITY_HANDLE; AuthzSvc: Cardinal;
const SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingSetAuthInfoEx}
function RpcBindingInqAuthInfoEx(Binding: RPC_BINDING_HANDLE;
ServerPrincName: PPWideChar; AuthnLevel, AuthnSvc: PCardinal;
AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE; AuthzSvc: PCardinal;
RpcQosVersion: Cardinal; var SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthInfoEx}
function RpcServerRegisterAuthInfo(ServerPrincName: PWideChar; AuthnSvc: Cardinal;
GetKeyFn: RPC_AUTH_KEY_RETRIEVAL_FN; Arg: Pointer): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcServerRegisterAuthInfo}
{$ELSE}
function RpcBindingInqAuthClient(ClientBinding: RPC_BINDING_HANDLE;
Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPChar; AuthnLevel, AuthnSvc,
AuthzSvc: PCardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthClient}
function RpcBindingInqAuthClientEx(ClientBinding: RPC_BINDING_HANDLE;
Privs: PRPC_AUTHZ_HANDLE; ServerPrincName: PPChar; AuthnLevel, AuthnSvc,
AuthzSvc: PCardinal; Flags: Cardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthClientEx}
function RpcBindingInqAuthInfo(Binding: RPC_BINDING_HANDLE; ServerPrincName: PPChar;
AuthnLevel, AuthnSvc: PCardinal; AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE;
AuthzSvc: PCardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthInfo}
function RpcBindingSetAuthInfo(Binding: RPC_BINDING_HANDLE; ServerPrincName: PChar;
AuthnLevel, AuthnSvc: Cardinal; AuthIdentity: RPC_AUTH_IDENTITY_HANDLE;
AuthzSvc: Cardinal): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingSetAuthInfo}
function RpcBindingSetAuthInfoEx(Binding: RPC_BINDING_HANDLE;
ServerPrincName: PChar; AuthnLevel, AuthnSvc: Cardinal;
AuthIdentity: RPC_AUTH_IDENTITY_HANDLE; AuthzSvc: Cardinal;
const SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingSetAuthInfoEx}
function RpcBindingInqAuthInfoEx(Binding: RPC_BINDING_HANDLE;
ServerPrincName: PPChar; AuthnLevel, AuthnSvc: PCardinal;
AuthIdentity: PRPC_AUTH_IDENTITY_HANDLE; AuthzSvc: PCardinal;
RpcQosVersion: Cardinal; var SecurityQOS: RPC_SECURITY_QOS): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingInqAuthInfoEx}
function RpcServerRegisterAuthInfo(ServerPrincName: PChar; AuthnSvc: Cardinal;
GetKeyFn: RPC_AUTH_KEY_RETRIEVAL_FN; Arg: Pointer): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcServerRegisterAuthInfo}
{$ENDIF}
type
RPC_CLIENT_INFORMATION1 = record
UserName: PChar;
ComputerName: PChar;
Privilege: Word;
AuthFlags: Longword;
end;
{$EXTERNALSYM RPC_CLIENT_INFORMATION1}
PRPC_CLIENT_INFORMATION1 = ^RPC_CLIENT_INFORMATION1;
{$EXTERNALSYM PRPC_CLIENT_INFORMATION1}
TRpcClientInformation1 = RPC_CLIENT_INFORMATION1;
PRpcClientInformation1 = PRPC_CLIENT_INFORMATION1;
function RpcBindingServerFromClient(ClientBinding: RPC_BINDING_HANDLE;
var ServerBinding: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcBindingServerFromClient}
procedure RpcRaiseException(exception: RPC_STATUS); stdcall;
{$EXTERNALSYM RpcRaiseException}
function RpcTestCancel: RPC_STATUS; stdcall;
{$EXTERNALSYM RpcTestCancel}
function RpcServerTestCancel(BindingHandle: RPC_BINDING_HANDLE): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcServerTestCancel}
function RpcCancelThread(Thread: Pointer): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcCancelThread}
function RpcCancelThreadEx(Thread: Pointer; Timeout: Longint): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcCancelThreadEx}
function UuidCreate(var Uuid: UUID): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidCreate}
function UuidCreateSequential(Uuid: UUID): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidCreateSequential}
function UuidFromStringA(StringUuid: PChar; var Uuid: UUID): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidFromStringA}
function UuidFromStringW(StringUuid: PWideChar; var Uuid: UUID): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidFromStringW}
{$IFDEF UNICODE}
function UuidFromString(StringUuid: PWideChar; var Uuid: UUID): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidFromString}
{$ELSE}
function UuidFromString(StringUuid: PChar; var Uuid: UUID): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidFromString}
{$ENDIF}
function UuidToStringA(const Uuid: UUID; var StringUuid: PChar): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidToStringA}
function UuidToStringW(const Uuid: UUID; var StringUuid: PWideChar): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidToStringW}
{$IFDEF UNICODE}
function UuidToString(const Uuid: UUID; var StringUuid: PWideChar): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidToString}
{$ELSE}
function UuidToString(const Uuid: UUID; var StringUuid: PChar): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidToString}
{$ENDIF}
function UuidCompare(const Uuid1, Uuid2: UUID; var Status: RPC_STATUS): Integer; stdcall;
{$EXTERNALSYM UuidCompare}
function UuidCreateNil(var NilUuid: UUID): RPC_STATUS; stdcall;
{$EXTERNALSYM UuidCreateNil}
function UuidEqual(const Uuid1, Uuid2: UUID; var Status: RPC_STATUS): Integer; stdcall;
{$EXTERNALSYM UuidEqual}
function UuidHash(const Uuid: UUID; var Status: RPC_STATUS): Word; stdcall;
{$EXTERNALSYM UuidHash}
function UuidIsNil(const Uuid: UUID; var Status: RPC_STATUS): Integer; stdcall;
{$EXTERNALSYM UuidIsNil}
function RpcEpRegisterNoReplaceA(IfSpec: RPC_IF_HANDLE;
BindingVector: PRPC_BINDING_VECTOR; UuidVector: PUUID_VECTOR;
Annotation: PChar): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcEpRegisterNoReplaceA}
function RpcEpRegisterNoReplaceW(IfSpec: RPC_IF_HANDLE;
BindingVector: PRPC_BINDING_VECTOR; UuidVector: PUUID_VECTOR;
Annotation: PWideChar): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcEpRegisterNoReplaceW}
{$IFDEF UNICODE}
function RpcEpRegisterNoReplace(IfSpec: RPC_IF_HANDLE;
BindingVector: PRPC_BINDING_VECTOR; UuidVector: PUUID_VECTOR;
Annotation: PWideChar): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcEpRegisterNoReplace}
{$ELSE}
function RpcEpRegisterNoReplace(IfSpec: RPC_IF_HANDLE;
BindingVector: PRPC_BINDING_VECTOR; UuidVector: PUUID_VECTOR;
Annotation: PChar): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcEpRegisterNoReplace}
{$ENDIF}
function RpcEpRegisterA(IfSpec: RPC_IF_HANDLE; BindingVector: PRPC_BINDING_VECTOR;
UuidVector: PUUID_VECTOR; Annotation: PChar): RPC_STATUS; stdcall;
{$EXTERNALSYM RpcEpRegisterA}
function RpcEpRegisterW(IfSpec: RPC_IF_HANDLE; BindingVector: PRPC_BINDING_VECTOR;
UuidVector: PUUID_VECTOR; Annotation: PWideChar): RPC_STATUS; stdcall;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -