📄 soapconst.pas
字号:
HTMLTopTitleNoMargin = HTMLHead + '<title>%s</title></head>'+HTMLNoMargin+'<body>';
HTMLTopNoStyles = HTMLHead + '</head><body>';
HTMLTopTitle = HTMLHead + '<title>%s</title></head>'+HTMLStyles+'<body>';
HTMLTopTitleNoMarginWSIL = HTMLHead + HTMLServiceInspection + '<title>%s</title></head>'+HTMLNoMargin+'<body>';
const
HTMLEnd = '</body></html>';
InfoTitle1 = '<table class="MainBkgnd" border=0 cellpadding=0 cellspacing=0 width="100%">' +
'<tr><td> </td></tr>';
InfoTitle2 = '<tr><td class="h1Style" align="center">%s - %s</td></tr>' +
'</table>';
TblCls: array[Boolean] of string = ('TblRow0', 'TblRow1');
sTblRow = 'TblRow';
sTblHdrCls = 'TblHdr';
sQueryStringIntf = 'intf'; { Do not localize }
sQueryStringTypes= 'types'; { Do not localize }
sNBSP = ' '; { Do not localize }
var
XMLSchemaNameSpace: string = SXMLSchemaURI_2001; { Default namespace we publish under }
XMLSchemaInstNameSpace: string = SXMLSchemaInstURI;
resourcestring
SUnsupportedEncodingSyle = '不支持的 SOAP 编码样式 %s';
SInvalidSoapRequest = '无效的 SOAP 请求';
SInvalidSoapResponse = '无效的 SOAP 响应';
SMultiBodyNotSupported = '不支持的多重内容元素';
SUnsupportedCC = '不支持的调用习惯: %s';
SUnsupportedCCIntfMeth = '远程方法调用: 不支持的调用习惯 %s 在方法 %s 在接口 %s 里';
SInvClassNotRegistered = '实现接口 %s 的类没有注册,该类为 soap action %s 使用';
SInvInterfaceNotReg = 'soap action %s 的接口没有注册';
SInvInterfaceNotRegURL = 'URL %s 的接口没有注册';
SRemTypeNotRegistered = '远程类型 %s 没有注册';
STypeMismatchInParam = '参数 %s 与类型不匹配';
SNoSuchMethod = '不存在的方法 %s';
SInterfaceNotReg = '接口没注册, UUID = %s';
SInterfaceNoRTTI = '接口没有 RTTI, UUID = %s';
SNoWSDL = '没有 WSDL 文档同 WSDLView 关联';
SWSDLError = '无效的 WSDL 文档 ''%s'' - 请检查指定的位置是否正确!'#13#10'错误: %s';
SEmptyWSDL = '空的文档';
sNoWSDLURL = 'No WSDL or URL property was set in the THTTPRIO component. You must set the WSDL or URL property before invoking the Web Service';
sCantGetURL= 'Unable to retrieve the URL endpoint for Service/Port ''%s''/''%s'' from WSDL ''%s''';
SDataTypeNotSupported = 'Datatype of TypeKind: 远程启动不支持 %s 作为参数';
{$IFDEF LINUX}
SNoMatchingDelphiType = '没有找到相应的 Delphi 类型: URI = %s, Name = %s 在节点 %s 上';
{$ENDIF}
SUnknownSOAPAction = '未知的 SOAPAction %s';
SScalarFromTRemotableS = 'Classes that represent scalar types must descend from TRemotableXS, %s does not';
SNoSerializeGraphs = 'Must enable multiref output for objects when serializing a graph of objects - (%s)';
SUnsuportedClassType = 'Conversion from class %s to SOAP is not supported - SOAP classes must derive from TRemotable';
SUnexpectedDataType = 'Internal error: data type kind %s not expected in this context';
SInvalidContentType = 'Received content of invalid Content-Type setting: %s - SOAP expects "text/xml"';
SArrayTooManyElem = 'Array Node: %s has too many elements';
SWrongDocElem = 'DocumentElement %s:%s expected, %s:%s found';
STooManyParameters = 'Too many parameters in method %s';
SArrayExpected = 'Array type expected. Node %s';
SNoInterfaceGUID = 'Class %s does not implement interface GUID %s';
SNoArrayElemRTTI = 'Element of Array type %s has no RTTI';
SInvalidResponse = 'Invalid SOAP Response';
SInvalidArraySpec = 'Invalid SOAP array specification';
SCannotFindNodeID = 'Cannot find node referenced by ID %s';
SNoNativeNULL = 'Option not set to allow Native type to be set to NULL';
SFaultCodeOnlyAllowed = 'Only one FaultCode element allowed';
SFaultStringOnlyAllowed = 'Only one FaultString element allowed';
SMissingFaultValue = 'Missing FaultString or FaultCode element';
SNoInterfacesInClass = 'Invokable Class %s implements no interfaces';
SVariantCastNotSupported = 'Type cannot be cast as Variant';
SVarDateNotSupported = 'varDate type not supported';
SVarDispatchNotSupported = 'varDispatch type not supported';
SVarErrorNotSupported = 'varError type not supported';
SVarVariantNotSupported = 'varVariant type not supported';
SHeaderError = 'Error Processing Header (%s)%s';
SMissingSoapReturn = 'SOAP Response Packet: result element expected, received "%s"';
SInvalidPointer = 'Invalid Pointer';
SNoMessageConverter = 'No Native to Message converter set';
SNoMsgProcessingNode = 'No Message processing node set';
SHeaderAttributeError = 'Soap header %s with attribute ''mustUnderstand'' set to true was not handled';
{IntfInfo}
SNoRTTI = 'Interface %s has no RTTI';
SNoRTTIParam = 'Parameter %s on Method %s of Interface %s has no RTTI';
{XSBuiltIns}
SInvalidDateString = 'Invalid date string: %s';
SInvalidTimeString = 'Invalid time string: %s';
SInvalidHour = 'Invalid hour: %d';
SInvalidMinute = 'Invalid minute: %d';
SInvalidSecond = 'Invalid second: %d';
SInvalidFractionSecond = 'Invalid second: %f';
SInvalidMillisecond = 'Invalid millisecond: %d';
SInvalidFractionalSecond = 'Invalid fractional second: %f';
SInvalidHourOffset = 'Invalid hour offset: %d';
SInvalidDay = 'Invalid day: %d';
SInvalidMonth = 'Invalid month: %d';
SInvalidDuration = 'Invalid duration string: %s';
SMilSecRangeViolation = 'Millisecond Values must be between 000 - 999';
SInvalidYearConversion = 'Year portion of date too large for conversion';
SInvalidTimeOffset = 'Hour Offset portion of time invalid';
SInvalidDecimalString = 'Invalid decimal string: ''''%s''''';
SEmptyDecimalString = 'Cannot convert empty string to TBcd value';
SNoSciNotation = 'Cannot convert scientific notation to TBcd value';
SNoNAN = 'Cannot convert NAN to TBcd value';
SInvalidBcd = 'Invalid Bcd Precision (%d) or Scale (%d)';
SBcdStringTooBig = 'Cannot convert to TBcd: string has more than 64 digits: %s';
SInvalidHexValue = '%s is not a valid hex string';
SInvalidHTTPRequest = 'Invalid HTTP Request: Length is 0';
SInvalidHTTPResponse = 'Invalid HTTP Response: Length is 0';
{WebServExp}
SInvalidBooleanParameter = 'ByteBool, WordBool and LongBool cannot be exposed by WebServices. Please use ''Boolean''';
{WSDLIntf}
SWideStringOutOfBounds = 'WideString index out of bounds';
{WSDLPub}
IWSDLPublishDoc = 'Lists all the PortTypes published by this Service';
SNoServiceForURL = 'URL %s 处没有服务可用';
SNoInterfaceForURL = '没有指向 URL %s 的接口被注册';
SNoClassRegisteredForURL = '实现接口处 %s 没有类被注册';
SEmptyURL = 'No URL was specified for ''GET''';
SInvalidURL = '无效的url';
SNoClassRegistered = 'invokable接口处 %s 没有类被注册';
SNoDispatcher = '没有发报装置';
SMethNoRTTI = '方法没有 RTTI';
SUnsupportedVariant = '不支持的变量类型';
SNoVarDispatch = '不支持varDispatch类型';
SNoErrorDispatch = '不支持varError类型';
SUnknownInterface = '(Unknown)';
SInvalidTimeZone = '无效或未知的时区';
sUnknownError = 'Unknown Error';
sErrorColon = 'Error: ';
sServiceInfo = '%s - PortTypes:';
sInterfaceInfo= '<a href="%s">%s</a> > <span class="Off">%s</span>';
sWSILInfo = 'WSIL:';
sWSILLink = ' <span class="Tip">Link to WS-Inspection document of Services <a href="%s">here</a></span>';
sRegTypes = 'Registered Types';
sWebServiceListing = 'WebService Listing';
sWebServiceListingAdmin = 'WebService Listing Administrator';
sPortType = 'Port Type';
sNameSpaceURI = 'Namespace URI';
sDocumentation = 'Documentation';
sWSDL = 'WSDL';
sPortName = 'PortName';
sInterfaceNotFound = HTMLHead + '</head><body>' + '<h1>Error Encountered</h1><P>Interface %s not found</P>' +HTMLEnd;
sForbiddenAccess = HTMLHead + '</head><body>' + '<h1>Forbidden (403)</h1><P>Access Forbidden</P>' +HTMLEnd;
sWSDLPortsforPortType = 'WSDL Ports for PortType';
sWSDLFor = '';
sServiceInfoPage = 'Service Info Page';
{SOAPAttach}
SEmptyStream = 'TAggregateStream Error: no internal streams';
SMethodNotSupported = 'method not supported';
SInvalidMethod = 'Method not permitted in TSoapDataList';
SNoContentLength = 'Content-Length header not found';
SInvalidContentLength = 'Insufficient data for Content-Length';
SMimeReadError = 'Error reading from Mime Request Stream';
{$IFDEF MSWINDOWS}
STempFileAccessError = 'No access to temporary file';
{$ENDIF}
{$IFDEF LINUX}
STempFileAccessError = 'No access to temporary file: check TMPDIR setting';
{$ENDIF}
{SoapConn}
SSOAPServerIIDFmt = '%s - %s';
SNoURL = 'No URL property set - please specify the URL of the Service you wish to connect to';
SSOAPInterfaceNotRegistered = 'Interface (%s) is not registered - please include the unit that registers this interface to your project';
SSOAPInterfaceNotRemotable = 'Interface (%s) canno be remoted - please verify the interface declaration - specially the methods calling convention!';
SCantLoadLocation = 'Unable to load WSDL File/Location: %s. Error [%s]';
implementation
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -