📄 soapconst.pas
字号:
{*******************************************************}
{ }
{ Borland Delphi Visual Component Library }
{ SOAP Support }
{ }
{ Copyright (c) 2001 Borland Software Corporation }
{ }
{*******************************************************}
unit SOAPConst;
interface
uses TypInfo, XMLSchema;
const
SHTTPPrefix = 'http://'; { Do not localize }
SContentId = 'Content-ID'; { Do not localize }
SContentLocation = 'Content-Location'; { Do not localize }
SContentLength = 'Content-Length'; { Do not localize }
SContentType = 'Content-Type'; { Do not localize }
SWSDLMIMENamespace = 'http://schemas.xmlsoap.org/wsdl/mime/';{ Do not location }
SBorlandMimeBoundary = 'MIME_boundaryB0R9532143182121';
SSoapXMLHeader = '<?xml version="1.0" encoding=''UTF-8''?>'; { Do not localize }
SUTF8 = 'UTF-8'; { Do not localize }
ContentTypeTemplate = 'Content-Type: %s'; { Do not localize }
ContentTypeApplicationBinary = 'application/binary'; { Do not localize }
SBinaryEncoding = 'binary'; { Do not localize }
S8BitEncoding = '8bit'; { Do not localize }
ContentTypeTextPlain = 'text/plain'; { Do not localize }
SCharacterEncodingFormat = 'Content-transfer-encoding: %s'; { Do not localize }
SCharacterEncoding = 'Content-transfer-encoding'; { Do not localize }
SBoundary = 'boundary='; { Do not localize }
SMultiPartRelated = 'multipart/related'; { Do not localize }
SMultiPartRelatedNoSlash = 'multipartRelated'; { Do not localize }
ContentHeaderMime = SMultiPartRelated + '; boundary=%s'; { Do not localize }
SStart = '; start="<%s>"'; { Do not localize}
SBorlandSoapStart = 'http://www.borland.com/rootpart.xml'; { Do not localize}
SAttachmentIdPrefix = 'cid:'; { Do not localize }
MimeVersion = 'MIME-Version: 1.0';
sTextHtml = 'text/html'; { Do not localize }
sTextXML = 'text/xml'; { Do not localize }
ContentTypeUTF8 = 'text/xml; charset="utf-8"'; { Do not localize }
ContentTypeNoUTF8 = 'text/xml'; { Do not localize }
SSoapNameSpace = 'http://schemas.xmlsoap.org/soap/envelope/'; { do not localize}
SXMLNS = 'xmlns'; { do not localize}
SSoapEncodingAttr = 'encodingStyle'; { do not localize}
SSoap11EncodingS5 = 'http://schemas.xmlsoap.org/soap/encoding/'; { do not localize}
SSoapEncodingArray = 'Array'; { do not localize}
SSoapEncodingArrayType = 'arrayType'; { do not localize}
SSoapHTTPTransport = 'http://schemas.xmlsoap.org/soap/http'; { do not localize}
SSoapBodyUseEncoded = 'encoded'; { do not localize}
SSoapBodyUseLiteral = 'literal'; { do not localize}
SSoapEnvelope = 'Envelope'; { do not localize}
SSoapHeader = 'Header'; { do not localize}
SSoapBody = 'Body'; { do not localize}
SSoapResponseSuff = 'Response'; { do not localize}
SRequired = 'required'; { do not localize }
SSoapActor = 'actor'; { do not localize}
STrue = 'true'; { do not localize}
SSoapServerFaultCode = 'Server'; { do not localize}
SSoapServerFaultString = 'Server Error'; { do not localize}
SSoapFault = 'Fault'; { do not localize}
SSoapFaultCode = 'faultcode'; { do not localize}
SSoapFaultString = 'faultstring'; { do not localize}
SSoapFaultActor = 'faultactor'; { do not localize}
SSoapFaultDetails = 'detail'; { do not localize}
SFaultCodeMustUnderstand = 'MustUnderstand'; { do not localize}
SHTTPSoapAction = 'SOAPAction'; { do not localize}
SHeaderMustUnderstand = 'mustUnderstand'; { do not localize}
SHeaderActor = 'actor'; { do not localize}
SActorNext= 'http://schemas.xmlsoap.org/soap/actor/next';{ do not localize}
SSoapType = 'type'; { do not localize}
SSoapResponse = 'Response'; { do not localize}
SDefaultReturnName = 'return'; { do not localize}
SDefaultResultName = 'result'; { do not localize}
SXMLID = 'id'; { do not localize}
SXMLHREF = 'href'; { do not localize}
SSoapNULL = 'NULL'; { do not localize}
SSoapNIL = 'nil'; { do not localize}
SHREFPre = '#'; { do not localize}
SArrayIDPre = 'Array-'; { do not localize}
SDefVariantElemName = 'V'; { do not localize}
SDefaultBaseURI = 'thismessage:/'; { do not localize}
SDelphiTypeNamespace = 'http://www.borland.com/namespaces/Delphi/Types'; { do not localize}
SBorlandTypeNamespace= 'http://www.borland.com/namespaces/Types'; { do not localize}
SOperationNameSpecifier = '%operationName%'; { Do not localize }
SDefaultReturnParamNames= 'Result;Return'; { Do not localize }
sReturnParamDelimiters = ';,/:'; { Do not localize }
KindNameArray: array[tkUnknown..tkDynArray] of string =
('Unknown', 'Integer', 'Char', 'Enumeration', 'Float', { do not localize }
'String', 'Set', 'Class', 'Method', 'WChar', 'LString', 'WString', { do not localize }
'Variant', 'Array', 'Record', 'Interface', 'Int64', 'DynArray'); { do not localize }
SSoapNameSpacePre = 'SOAP-ENV'; { do not localize }
SXMLSchemaNameSpacePre = 'xsd'; { do not localize}
SXMLSchemaInstNameSpace99Pre = 'xsi'; { do not localize}
SSoapEncodingPre = 'SOAP-ENC'; { do not localize}
{$IFDEF D6_STYLE_COLORS}
sDefaultColor = '#006699';
sIntfColor = '#006699';
sTblHdrColor = '#CCCC99';
sTblColor1 = '#FFFFCC';
sTblColor0 = '#CCCC99';
sBkgndColor = '#CCCC99';
sTipColor = '#666666';
sWSDLColor = '#666699';
sOFFColor = '#A0A0A0';
sNavBarColor = '#006699';
sNavBkColor = '#cccccc';
{$ELSE}
sDefaultColor = '#333333';
sIntfColor = '#660000';
sTblHdrColor = '#CCCC99';
sTblColor1 = '#f5f5dc';
sTblColor0 = '#d9d4aa';
sBkgndColor = '#d9d4aa';
sTipColor = '#666666';
sWSDLColor = '#990000';
sOFFColor = '#A0A0A0';
sNavBarColor = '#660000';
sNavBkColor = '#f5f5dc';
{$ENDIF}
HTMLStylBeg = '<style type="text/css"><!--' + sLineBreak;
HTMLStylEnd = '--></style>' + sLineBreak;
BodyStyle1 = 'body {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; }' + sLineBreak;
BodyStyle2 = 'body {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; margin-left: 0px; margin-top: 0px; margin-right: 0px; }' + sLineBreak;
OtherStyles = 'h1 {color: '+sDefaultColor+'; font-size: 18pt; font-style: normal; font-weight: bold; }' + sLineBreak +
'h2 {color: '+sDefaultColor+'; font-size: 14pt; font-style: normal; font-weight: bold; }' + sLineBreak +
'h3 {color: '+sDefaultColor+'; font-size: 12pt; font-style: normal; font-weight: bold; }' + sLineBreak +
'.h1Style {color: '+sDefaultColor+'; font-size: 18pt; font-style: normal; font-weight: bold; }' + sLineBreak +
'.TblRow {color: '+sDefaultColor+'; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt; font-weight: normal; }' + sLineBreak +
'.TblRow1 {color: '+sDefaultColor+'; background-color: '+sTblColor1+'; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; font-weight: normal; }' + sLineBreak +
'.TblRow0 {color: '+sDefaultColor+'; background-color: '+sTblColor0+'; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; font-weight: normal; }' + sLineBreak +
'.TblHdr {color: '+sTblHdrColor+ '; background-color: '+sDefaultColor+'; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt; font-weight: bold; text-align: center;}' + sLineBreak +
'.IntfName {color: '+sIntfColor + '; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt; font-weight: bold; }' + sLineBreak +
'.MethName {color: '+sDefaultColor+'; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; text-decoration: none; }' + sLineBreak +
'.ParmName {color: '+sDefaultColor+'; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; text-decoration: none; }' + sLineBreak +
'.Namespace {color: '+sDefaultColor+'; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; font-style: italic; }' + sLineBreak +
'.WSDL {color: '+sWSDLColor+ '; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; }' + sLineBreak +
'.MainBkgnd {background-color : '+sBkgndColor+'; }' + sLineBreak +
'.Info {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12pt; font-weight: bold; }' + sLineBreak +
'.NavBar {color: '+sNavBarColor+'; background-color: '+sNavBkColor+'; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold;text-decoration: none; }'+ sLineBreak +
'.Off {color: '+sOFFColor+'; }' + sLineBreak +
'.Tip {color: '+sTipColor+'; font-family : Verdana, Arial, Helvetica, sans-serif; font-weight : normal; font-size : 9pt; }' + sLineBreak;
HTMLStyles = HTMLStylBeg + BodyStyle1 + OtherStyles + HTMLStylEnd;
HTMLNoMargin= HTMLStylBeg + BodyStyle2 + OtherStyles + HTMLStylEnd;
TableStyle = 'border=1 cellspacing=1 cellpadding=2 ';
resourcestring
HTMLContentLanguage = ''; // '<meta http-equiv="Content-Language" content="ja"><meta http-equiv="Content-Type" content="text/html; charset=shift_jis">';
const
HTMLHead = '<html><head>';
HTMLServiceInspection = '<META name="serviceInspection" content="inspection.wsil">';
{resourcestring - these are getting truncated as resources currently resulting in bad HTML pages!!}
HTMLTopPlain = HTMLHead + '</head><body>';
HTMLTop = HTMLHead + '</head>'+HTMLStyles+'<body>';
HTMLTopNoMargin = HTMLHead + '</head>'+HTMLNoMargin+'<body>';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -