1 {******************************************************************************} 2 { } 3 { RPC Error Codes API interface Unit for Object Pascal } 4 { } 5 { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft } 6 { Corporation. All Rights Reserved. } 7 { } 8 { The original file is: rpcnterr.h, released June 2000. The original Pascal } 9 { code is: RpcNtErr.pas, released December 2000. The initial developer of the } 10 { Pascal code is Marcel van Brakel (brakelm att chello dott nl). } 11 { } 12 { Portions created by Marcel van Brakel are Copyright (C) 1999-2001 } 13 { Marcel van Brakel. All Rights Reserved. } 14 { } 15 { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) } 16 { } 17 { You may retrieve the latest version of this file at the Project JEDI } 18 { APILIB home page, located at http://jedi-apilib.sourceforge.net } 19 { } 20 { The contents of this file are used with permission, subject to the Mozilla } 21 { Public License Version 1.1 (the "License"); you may not use this file except } 22 { in compliance with the License. You may obtain a copy of the License at } 23 { http://www.mozilla.org/MPL/MPL-1.1.html } 24 { } 25 { Software distributed under the License is distributed on an "AS IS" basis, } 26 { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for } 27 { the specific language governing rights and limitations under the License. } 28 { } 29 { Alternatively, the contents of this file may be used under the terms of the } 30 { GNU Lesser General Public License (the "LGPL License"), in which case the } 31 { provisions of the LGPL License are applicable instead of those above. } 32 { If you wish to allow use of your version of this file only under the terms } 33 { of the LGPL License and not to allow others to use your version of this file } 34 { under the MPL, indicate your decision by deleting the provisions above and } 35 { replace them with the notice and other provisions required by the LGPL } 36 { License. If you do not delete the provisions above, a recipient may use } 37 { your version of this file under either the MPL or the LGPL License. } 38 { } 39 { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html } 40 { } 41 {******************************************************************************} 42 43 // $Id: JwaRpcNtErr.pas,v 1.9 2007/09/05 11:58:52 dezipaitor Exp $ 44 {$IFNDEF JWA_OMIT_SECTIONS} 45 unit JwaRpcNtErr; 46 47 {$WEAKPACKAGEUNIT} 48 {$ENDIF JWA_OMIT_SECTIONS} 49 50 {$HPPEMIT ''} 51 {$HPPEMIT '#include "RpcNtErr.h"'} 52 {$HPPEMIT ''} 53 54 {$IFNDEF JWA_OMIT_SECTIONS} 55 {$I jediapilib.inc} 56 57 interface 58 59 uses 60 JwaWinError; 61 {$ENDIF JWA_OMIT_SECTIONS} 62 63 {$IFNDEF JWA_IMPLEMENTATIONSECTION} 64 65 {*********************************************************/ 66 /** Microsoft LAN Manager **/ 67 /** Copyright(c) Microsoft Corp., 1987-1999 **/ 68 /** **/ 69 /** Rpc Error Codes from the compiler and runtime **/ 70 /** **/ 71 /*********************************************************} 72 73 const 74 RPC_S_OK = ERROR_SUCCESS; 75 {$EXTERNALSYM RPC_S_OK} 76 RPC_S_INVALID_ARG = ERROR_INVALID_PARAMETER; 77 {$EXTERNALSYM RPC_S_INVALID_ARG} 78 RPC_S_OUT_OF_MEMORY = ERROR_OUTOFMEMORY; 79 {$EXTERNALSYM RPC_S_OUT_OF_MEMORY} 80 RPC_S_OUT_OF_THREADS = ERROR_MAX_THRDS_REACHED; 81 {$EXTERNALSYM RPC_S_OUT_OF_THREADS} 82 RPC_S_INVALID_LEVEL = ERROR_INVALID_PARAMETER; 83 {$EXTERNALSYM RPC_S_INVALID_LEVEL} 84 RPC_S_BUFFER_TOO_SMALL = ERROR_INSUFFICIENT_BUFFER; 85 {$EXTERNALSYM RPC_S_BUFFER_TOO_SMALL} 86 RPC_S_INVALID_SECURITY_DESC = ERROR_INVALID_SECURITY_DESCR; 87 {$EXTERNALSYM RPC_S_INVALID_SECURITY_DESC} 88 RPC_S_ACCESS_DENIED = ERROR_ACCESS_DENIED; 89 {$EXTERNALSYM RPC_S_ACCESS_DENIED} 90 RPC_S_SERVER_OUT_OF_MEMORY = ERROR_NOT_ENOUGH_SERVER_MEMORY; 91 {$EXTERNALSYM RPC_S_SERVER_OUT_OF_MEMORY} 92 RPC_S_ASYNC_CALL_PENDING = ERROR_IO_PENDING; 93 {$EXTERNALSYM RPC_S_ASYNC_CALL_PENDING} 94 RPC_S_UNKNOWN_PRINCIPAL = ERROR_NONE_MAPPED; 95 {$EXTERNALSYM RPC_S_UNKNOWN_PRINCIPAL} 96 RPC_S_TIMEOUT = ERROR_TIMEOUT; 97 {$EXTERNALSYM RPC_S_TIMEOUT} 98 99 RPC_X_NO_MEMORY = RPC_S_OUT_OF_MEMORY; 100 {$EXTERNALSYM RPC_X_NO_MEMORY} 101 RPC_X_INVALID_BOUND = RPC_S_INVALID_BOUND; 102 {$EXTERNALSYM RPC_X_INVALID_BOUND} 103 RPC_X_INVALID_TAG = RPC_S_INVALID_TAG; 104 {$EXTERNALSYM RPC_X_INVALID_TAG} 105 RPC_X_ENUM_VALUE_TOO_LARGE = RPC_X_ENUM_VALUE_OUT_OF_RANGE; 106 {$EXTERNALSYM RPC_X_ENUM_VALUE_TOO_LARGE} 107 RPC_X_SS_CONTEXT_MISMATCH = ERROR_INVALID_HANDLE; 108 {$EXTERNALSYM RPC_X_SS_CONTEXT_MISMATCH} 109 RPC_X_INVALID_BUFFER = ERROR_INVALID_USER_BUFFER; 110 {$EXTERNALSYM RPC_X_INVALID_BUFFER} 111 RPC_X_PIPE_APP_MEMORY = ERROR_OUTOFMEMORY; 112 {$EXTERNALSYM RPC_X_PIPE_APP_MEMORY} 113 RPC_X_INVALID_PIPE_OPERATION = RPC_X_WRONG_PIPE_ORDER; 114 {$EXTERNALSYM RPC_X_INVALID_PIPE_OPERATION} 115 116 {$ENDIF JWA_IMPLEMENTATIONSECTION} 117 118 119 120 {$IFNDEF JWA_OMIT_SECTIONS} 121 implementation 122 //uses ... 123 {$ENDIF JWA_OMIT_SECTIONS} 124 125 126 127 {$IFNDEF JWA_INTERFACESECTION} 128 129 //your implementation here 130 {$ENDIF JWA_INTERFACESECTION} 131 132 133 134 {$IFNDEF JWA_OMIT_SECTIONS} 135 end. 136 {$ENDIF JWA_OMIT_SECTIONS} 137