david
47aaf11578
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@38 05c56307-c608-d34a-929d-697000501d7a
1011 lines
36 KiB
ObjectPascal
1011 lines
36 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ ExpressWeb Framework by Developer Express }
|
|
{ Pascal script global importers }
|
|
{ }
|
|
{ Copyright (c) 2000-2009 Developer Express Inc. }
|
|
{ ALL RIGHTS RESERVED }
|
|
{ }
|
|
{ The entire contents of this file is protected by U.S. and }
|
|
{ International Copyright Laws. Unauthorized reproduction, }
|
|
{ reverse-engineering, and distribution of all or any portion of }
|
|
{ the code contained in this file is strictly prohibited and may }
|
|
{ result in severe civil and criminal penalties and will be }
|
|
{ prosecuted to the maximum extent possible under the law. }
|
|
{ }
|
|
{ RESTRICTIONS }
|
|
{ }
|
|
{ THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES }
|
|
{ (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE }
|
|
{ SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }
|
|
{ LICENSED TO DISTRIBUTE THE EXPRESSWEB FRAMEWORK AND ALL }
|
|
{ ACCOMPANYING VCL CLASSES AS PART OF AN EXECUTABLE WEB }
|
|
{ APPLICATION ONLY. }
|
|
{ }
|
|
{ THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED }
|
|
{ FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE }
|
|
{ COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE }
|
|
{ AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT }
|
|
{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }
|
|
{ }
|
|
{ CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON }
|
|
{ ADDITIONAL RESTRICTIONS. }
|
|
{ }
|
|
{*******************************************************************}
|
|
unit cxWebPasGlobalImp;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, ifps3, ifpscomp, ifps3common, ifps3utl, ifpiclass, ifpiclassruntime,
|
|
cxWebPasImpFactory;
|
|
|
|
type
|
|
TcxWebPascalScriptProducerImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebRequestImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebContextImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxAbstractWebSessionImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebSessionsImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebPageModuleImporter = class(TcxPascalScriptImporter)
|
|
private
|
|
class function FindGlobalComponent(AName: string): TComponent;
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebSessionItemImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure DeclareTypes(ACompiler: TIFPSPascalCompiler); override;
|
|
class procedure EnumDependentClasses(Proc: TClassEnumProc; AObject: TObject); override;
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TcxWebNamedVariantsImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
TAbstractWebPageInfoImporter = class(TcxPascalScriptImporter)
|
|
protected
|
|
class procedure DeclareClassMembers(ACTClass: TIFPSCompileTimeClass); override;
|
|
class procedure RegisterClassMembers(ARTClass: TIFPSRuntimeClass); override;
|
|
public
|
|
class function ObjectClass: TClass; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, HTTPApp, WebCntxt,
|
|
cxWebScript, cxWebPasScript, cxWebModule, cxWebSess, cxWebVariants;
|
|
|
|
{ TcxWebPascalScriptProducerImporter }
|
|
|
|
type
|
|
TcxWebPascalScriptProducerAccess = class(TcxWebPascalScriptProducer);
|
|
|
|
class procedure TcxWebPascalScriptProducerImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('Content', scxStringType, iptRW);
|
|
RegisterMethod('procedure WriteItem(Index: Integer);');
|
|
RegisterMethod('procedure Write(const Value: string);');
|
|
end;
|
|
end;
|
|
|
|
class function TcxWebPascalScriptProducerImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebPascalScriptProducer;
|
|
end;
|
|
|
|
procedure TcxWebPascalScriptProducerContent_R(ASelf: TcxWebPascalScriptProducer; var AValue: string);
|
|
begin
|
|
AValue := TcxWebPascalScriptProducerAccess(ASelf).GetContent;
|
|
end;
|
|
|
|
procedure TcxWebPascalScriptProducerContent_W(ASelf: TcxWebPascalScriptProducer; AValue: string);
|
|
begin
|
|
TcxWebPascalScriptProducerAccess(ASelf).SetContent(AValue);
|
|
end;
|
|
|
|
class procedure TcxWebPascalScriptProducerImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TcxWebPascalScriptProducerContent_R, @TcxWebPascalScriptProducerContent_W, UpperCase('Content'));
|
|
RegisterMethod(@TcxWebPascalScriptProducerAccess.WriteItem, UpperCase('WriteItem'));
|
|
RegisterMethod(@TcxWebPascalScriptProducerAccess.WriteString, UpperCase('Write'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebRequestImporter }
|
|
|
|
class procedure TcxWebRequestImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('ContentFields', scxStringsType, iptR);
|
|
RegisterProperty('CookieFields', scxStringsType, iptR);
|
|
RegisterProperty('QueryFields', scxStringsType, iptR);
|
|
RegisterProperty('Method', scxStringType,iptR);
|
|
RegisterProperty('ProtocolVersion', scxStringType, iptR);
|
|
RegisterProperty('URL', scxStringType, iptR);
|
|
RegisterProperty('Query', scxStringType, iptR);
|
|
RegisterProperty('PathInfo', scxStringType, iptR);
|
|
RegisterProperty('PathTranslated', scxStringType, iptR);
|
|
RegisterProperty('Authorization', scxStringType, iptR);
|
|
RegisterProperty('CacheControl', scxStringType, iptR);
|
|
RegisterProperty('Cookie', scxStringType, iptR);
|
|
RegisterProperty('Date', scxDateTimeType, iptR);
|
|
RegisterProperty('Accept', scxStringType, iptR);
|
|
RegisterProperty('From', scxStringType, iptR);
|
|
RegisterProperty('Host', scxStringType, iptR);
|
|
RegisterProperty('IfModifiedSince',scxDateTimeType, iptR);
|
|
RegisterProperty('Referer', scxStringType, iptR);
|
|
RegisterProperty('UserAgent', scxStringType, iptR);
|
|
RegisterProperty('ContentEncoding', scxStringType, iptR);
|
|
RegisterProperty('ContentType', scxStringType, iptR);
|
|
RegisterProperty('ContentLength', scxIntegerType, iptR);
|
|
RegisterProperty('ContentVersion', scxStringType, iptR);
|
|
RegisterProperty('Content', scxStringType, iptR);
|
|
RegisterProperty('Connection', scxStringType, iptR);
|
|
RegisterProperty('DerivedFrom', scxStringType, iptR);
|
|
RegisterProperty('Expires', scxDateTimeType, iptR);
|
|
RegisterProperty('Title', scxStringType, iptR);
|
|
RegisterProperty('RemoteAddr', scxStringType, iptR);
|
|
RegisterProperty('RemoteHost', scxStringType, iptR);
|
|
RegisterProperty('ScriptName', scxStringType, iptR);
|
|
RegisterProperty('ServerPort', scxIntegerType, iptR);
|
|
RegisterProperty('Intern alPathInfo', scxStringType, iptR);
|
|
RegisterProperty('InternalScriptName', scxStringType, iptR);
|
|
end;
|
|
end;
|
|
|
|
class function TcxWebRequestImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TWebRequest;
|
|
end;
|
|
|
|
procedure TWebRequestContentFields_R(ASelf: TWebRequest; var AValue: TStrings);
|
|
begin
|
|
AValue := ASelf.ContentFields;
|
|
end;
|
|
|
|
procedure TWebRequestCookieFields_R(ASelf: TWebRequest; var AValue: TStrings);
|
|
begin
|
|
AValue := ASelf.CookieFields;
|
|
end;
|
|
|
|
procedure TWebRequestQueryFields_R(ASelf: TWebRequest; var AValue: TStrings);
|
|
begin
|
|
AValue := ASelf.QueryFields;
|
|
end;
|
|
|
|
procedure TWebRequestMethod_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Method;
|
|
end;
|
|
|
|
procedure TWebRequestProtocolVersion_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.ProtocolVersion;
|
|
end;
|
|
|
|
procedure TWebRequestURL_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.URL;
|
|
end;
|
|
|
|
procedure TWebRequestQuery_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Query;
|
|
end;
|
|
|
|
procedure TWebRequestPathInfo_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.PathInfo;
|
|
end;
|
|
|
|
procedure TWebRequestPathTranslated_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.PathTranslated;
|
|
end;
|
|
|
|
procedure TWebRequestAuthorization_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Authorization;
|
|
end;
|
|
|
|
procedure TWebRequestCacheControl_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.CacheControl;
|
|
end;
|
|
|
|
procedure TWebRequestCookie_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Cookie;
|
|
end;
|
|
|
|
procedure TWebRequestDate_R(ASelf: TWebRequest; var AValue: TDateTime);
|
|
begin
|
|
AValue := ASelf.Date;
|
|
end;
|
|
|
|
procedure TWebRequestAccept_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Accept;
|
|
end;
|
|
|
|
procedure TWebRequestFrom_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.From;
|
|
end;
|
|
|
|
procedure TWebRequestHost_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Host;
|
|
end;
|
|
|
|
procedure TWebRequestIfModifiedSince_R(ASelf: TWebRequest; var AValue: TDateTime);
|
|
begin
|
|
AValue := ASelf.IfModifiedSince;
|
|
end;
|
|
|
|
procedure TWebRequestReferer_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Referer;
|
|
end;
|
|
|
|
procedure TWebRequestUserAgent_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.UserAgent;
|
|
end;
|
|
|
|
procedure TWebRequestContentEncoding_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.ContentEncoding;
|
|
end;
|
|
|
|
procedure TWebRequestContentType_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.ContentType;
|
|
end;
|
|
|
|
procedure TWebRequestContentLength_R(ASelf: TWebRequest; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.ContentLength;
|
|
end;
|
|
|
|
procedure TWebRequestContentVersion_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.ContentVersion;
|
|
end;
|
|
|
|
procedure TWebRequestContent_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Content;
|
|
end;
|
|
|
|
procedure TWebRequestConnection_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Connection;
|
|
end;
|
|
|
|
procedure TWebRequestDerivedFrom_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.DerivedFrom;
|
|
end;
|
|
|
|
procedure TWebRequestExpires_R(ASelf: TWebRequest; var AValue: TDateTime);
|
|
begin
|
|
AValue := ASelf.Expires;
|
|
end;
|
|
|
|
procedure TWebRequestTitle_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.Title;
|
|
end;
|
|
|
|
procedure TWebRequestRemoteAddr_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.RemoteAddr;
|
|
end;
|
|
|
|
procedure TWebRequestRemoteHost_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.RemoteHost;
|
|
end;
|
|
|
|
procedure TWebRequestScriptName_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.ScriptName;
|
|
end;
|
|
|
|
procedure TWebRequestServerPort_R(ASelf: TWebRequest; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.ServerPort;
|
|
end;
|
|
|
|
procedure TWebRequestInternalPathInfo_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.InternalPathInfo;
|
|
end;
|
|
|
|
procedure TWebRequestInternalScriptName_R(ASelf: TWebRequest; var AValue: string);
|
|
begin
|
|
AValue := ASelf.InternalScriptName;
|
|
end;
|
|
|
|
class procedure TcxWebRequestImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TWebRequestContentFields_R, nil, UpperCase('ContentFields'));
|
|
RegisterPropertyHelper(@TWebRequestCookieFields_R, nil, UpperCase('CookieFields'));
|
|
RegisterPropertyHelper(@TWebRequestQueryFields_R, nil, UpperCase('QueryFields'));
|
|
RegisterPropertyHelper(@TWebRequestMethod_R, nil, UpperCase('Method'));
|
|
RegisterPropertyHelper(@TWebRequestProtocolVersion_R, nil, UpperCase('ProtocolVersion'));
|
|
RegisterPropertyHelper(@TWebRequestURL_R, nil, UpperCase('URL'));
|
|
RegisterPropertyHelper(@TWebRequestQuery_R, nil, UpperCase('Query'));
|
|
RegisterPropertyHelper(@TWebRequestPathInfo_R, nil, UpperCase('PathInfo'));
|
|
RegisterPropertyHelper(@TWebRequestPathTranslated_R, nil, UpperCase('PathTranslated'));
|
|
RegisterPropertyHelper(@TWebRequestAuthorization_R, nil, UpperCase('Authorization'));
|
|
RegisterPropertyHelper(@TWebRequestCacheControl_R, nil, UpperCase('CacheControl'));
|
|
RegisterPropertyHelper(@TWebRequestCookie_R, nil, UpperCase('Cookie'));
|
|
RegisterPropertyHelper(@TWebRequestDate_R, nil, UpperCase('Date'));
|
|
RegisterPropertyHelper(@TWebRequestAccept_R, nil, UpperCase('Accept'));
|
|
RegisterPropertyHelper(@TWebRequestFrom_R, nil, UpperCase('From'));
|
|
RegisterPropertyHelper(@TWebRequestHost_R, nil, UpperCase('Host'));
|
|
RegisterPropertyHelper(@TWebRequestIfModifiedSince_R, nil, UpperCase('IfModifiedSince'));
|
|
RegisterPropertyHelper(@TWebRequestReferer_R, nil, UpperCase('Referer'));
|
|
RegisterPropertyHelper(@TWebRequestUserAgent_R, nil, UpperCase('UserAgent'));
|
|
RegisterPropertyHelper(@TWebRequestContentEncoding_R, nil, UpperCase('ContentEncoding'));
|
|
RegisterPropertyHelper(@TWebRequestContentType_R, nil, UpperCase('ContentType'));
|
|
RegisterPropertyHelper(@TWebRequestContentLength_R, nil, UpperCase('ContentLength'));
|
|
RegisterPropertyHelper(@TWebRequestContentVersion_R, nil, UpperCase('ContentVersion'));
|
|
RegisterPropertyHelper(@TWebRequestContent_R, nil, UpperCase('Content'));
|
|
RegisterPropertyHelper(@TWebRequestConnection_R, nil, UpperCase('Connection'));
|
|
RegisterPropertyHelper(@TWebRequestDerivedFrom_R, nil, UpperCase('DerivedFrom'));
|
|
RegisterPropertyHelper(@TWebRequestExpires_R, nil, UpperCase('Expires'));
|
|
RegisterPropertyHelper(@TWebRequestTitle_R, nil, UpperCase('Title'));
|
|
RegisterPropertyHelper(@TWebRequestRemoteAddr_R, nil, UpperCase('RemoteAddr'));
|
|
RegisterPropertyHelper(@TWebRequestRemoteHost_R, nil, UpperCase('RemoteHost'));
|
|
RegisterPropertyHelper(@TWebRequestScriptName_R, nil, UpperCase('ScriptName'));
|
|
RegisterPropertyHelper(@TWebRequestServerPort_R, nil, UpperCase('ServerPort'));
|
|
RegisterPropertyHelper(@TWebRequestInternalPathInfo_R, nil, UpperCase('InternalPathInfo'));
|
|
RegisterPropertyHelper(@TWebRequestInternalScriptName_R, nil, UpperCase('InternalScriptName'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebContextImporter }
|
|
|
|
class procedure TcxWebContextImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('Page', 'TAbstractWebPageInfo', iptR);
|
|
RegisterProperty('PageCount', scxIntegerType, iptR);
|
|
RegisterProperty('Pages', 'TAbstractWebPageInfo' + ' ' + scxIntegerType, iptR);
|
|
RegisterProperty('Request', 'TWebRequest', iptR);
|
|
RegisterProperty('Session', 'TAbstractWebSession', iptR);
|
|
RegisterProperty('WebModuleCount', scxIntegerType, iptR);
|
|
RegisterProperty('WebModules', scxComponentType + ' ' + scxIntegerType, iptR);
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebContextImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TWebRequest, AObject);
|
|
Proc(TcxWebPascalScriptProducer, AObject);
|
|
Proc(TAbstractWebSession, AObject);
|
|
Proc(TAbstractWebPageInfo, AObject);
|
|
end;
|
|
|
|
class function TcxWebContextImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TWebContext;
|
|
end;
|
|
|
|
procedure TWebContextPages_R(ASelf: TWebContext; var AValue: TAbstractWebPageInfo; Index: Integer);
|
|
begin
|
|
AValue := nil;
|
|
while (AValue = nil) and (Index < ASelf.WebModules.FactoryCount) do
|
|
begin
|
|
AValue := ASelf.WebModules.Factory[Index].WebPageInfo;
|
|
Inc(Index);
|
|
end;
|
|
end;
|
|
|
|
procedure TWebContextPageCount_R(ASelf: TWebContext; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.PageCount;
|
|
end;
|
|
|
|
procedure TWebContextPage_R(ASelf: TWebContext; var AValue: TAbstractWebPageInfo);
|
|
begin
|
|
ASelf.FindPageInfo(ASelf.DispatchedPageName, [], AValue)
|
|
end;
|
|
|
|
procedure TWebContextWebModules_R(ASelf: TWebContext; var AValue: TComponent; Index: Integer);
|
|
begin
|
|
AValue := ASelf.WebModules.Items[Index];
|
|
end;
|
|
|
|
procedure TWebContextRequest_R(ASelf: TWebContext; var AValue: TWebRequest);
|
|
begin
|
|
AValue := ASelf.Request;
|
|
end;
|
|
|
|
procedure TWebContextSession_R(ASelf: TWebContext; var AValue: TAbstractWebSession);
|
|
begin
|
|
AValue := ASelf.Session;
|
|
end;
|
|
|
|
procedure TWebContextWebModuleCount_R(ASelf: TWebContext; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.WebModules.ItemCount;
|
|
end;
|
|
|
|
class procedure TcxWebContextImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TWebContextPages_R, nil, UpperCase('Pages'));
|
|
RegisterPropertyHelper(@TWebContextPageCount_R, nil, UpperCase('PageCount'));
|
|
RegisterPropertyHelper(@TWebContextPage_R, nil, UpperCase('Page'));
|
|
RegisterPropertyHelper(@TWebContextRequest_R, nil, UpperCase('Request'));
|
|
RegisterPropertyHelper(@TWebContextSession_R, nil, UpperCase('Session'));
|
|
RegisterPropertyHelper(@TWebContextWebModuleCount_R, nil, UpperCase('WebModuleCount'));
|
|
RegisterPropertyHelper(@TWebContextWebModules_R, nil, UpperCase('WebModules'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebPageModuleImporter }
|
|
|
|
class procedure TcxWebPageModuleImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('function FindGlobalComponent(AName: string): TComponent;');
|
|
RegisterMethod('function IsFirstRequest: Boolean;');
|
|
RegisterMethod('function CreateComponent(AClassName: string): TComponent;')
|
|
end;
|
|
end;
|
|
|
|
class function TcxWebPageModuleImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebPageModule;
|
|
end;
|
|
|
|
class function TcxWebPageModuleImporter.FindGlobalComponent(AName: string): TComponent;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
Result := nil;
|
|
for I := 0 to WebContext.WebModules.ItemCount - 1 do
|
|
if SameText(WebContext.WebModules[I].Name, AName) then
|
|
begin
|
|
Result := WebContext.WebModules[I];
|
|
break;
|
|
end;
|
|
end;
|
|
|
|
type
|
|
TcxWebPageModuleAccess = class(TcxWebPageModule);
|
|
|
|
class procedure TcxWebPageModuleImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxWebPageModuleImporter.FindGlobalComponent, UpperCase('FindGlobalComponent'));
|
|
RegisterMethod(@TcxWebPageModuleAccess.GetIsFirstRequest, UpperCase('IsFirstRequest'));
|
|
RegisterMethod(@TcxWebPageModuleAccess.CreateComponent, UpperCase('CreateComponent'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebSessionsImporter }
|
|
|
|
class procedure TcxWebSessionsImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('Count', scxIntegerType, iptR);
|
|
RegisterProperty('ActiveCount', scxIntegerType, iptR);
|
|
RegisterProperty('Items', 'TcxWebSessionItem' + ' ' + scxIntegerType, iptR);
|
|
RegisterProperty('MaxSessions', scxIntegerType, iptRW);
|
|
RegisterMethod('procedure StartSession(var ASessionID: string);');
|
|
RegisterMethod('function Terminate(const ASessionID: string): Boolean;');
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebSessionsImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebSessionItem, AObject);
|
|
end;
|
|
|
|
class function TcxWebSessionsImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebSessions;
|
|
end;
|
|
|
|
procedure TcxWebSessionsCount_R(ASelf: TcxWebSessions; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.Count;
|
|
end;
|
|
|
|
procedure TcxWebSessionsActiveCount_R(ASelf: TcxWebSessions; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.ActiveCount;
|
|
end;
|
|
|
|
procedure TcxWebSessionsItems_R(ASelf: TcxWebSessions; var AValue: TcxWebSessionItem; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Items[Index];
|
|
end;
|
|
|
|
procedure TcxWebSessionsMaxSessions_R(ASelf: TcxWebSessions; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.MaxSessions;
|
|
end;
|
|
|
|
procedure TcxWebSessionsMaxSessions_W(ASelf: TcxWebSessions; AValue: Integer);
|
|
begin
|
|
ASelf.MaxSessions := AValue;
|
|
end;
|
|
|
|
class procedure TcxWebSessionsImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TcxWebSessionsCount_R, nil, UpperCase('Count'));
|
|
RegisterPropertyHelper(@TcxWebSessionsActiveCount_R, nil, UpperCase('ActiveCount'));
|
|
RegisterPropertyHelper(@TcxWebSessionsItems_R, nil, UpperCase('Items'));
|
|
RegisterPropertyHelper(@TcxWebSessionsMaxSessions_R, @TcxWebSessionsMaxSessions_W, UpperCase('MaxSessions'));
|
|
RegisterMethod(@TcxWebSessions.StartSession, UpperCase('StartSession'));
|
|
RegisterMethod(@TcxWebSessions.Terminate, UpperCase('Terminate'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxAbstractWebSessionImporter }
|
|
|
|
class procedure TcxAbstractWebSessionImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('procedure Terminate;');
|
|
RegisterProperty('TimeoutMinutes', scxIntegerType, iptRW);
|
|
RegisterProperty('Values', scxVariantType + ' ' +scxStringType, iptRW);
|
|
RegisterProperty('SessionID', scxStringType, iptR);
|
|
end;
|
|
end;
|
|
|
|
class function TcxAbstractWebSessionImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TAbstractWebSession;
|
|
end;
|
|
|
|
procedure TAbstractWebSessionTimeoutMinutes_R(ASelf: TAbstractWebSession; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.TimeoutMinutes;
|
|
end;
|
|
|
|
procedure TAbstractWebSessionTimeoutMinutes_W(ASelf: TAbstractWebSession; AValue: Integer);
|
|
begin
|
|
ASelf.TimeoutMinutes := AValue;
|
|
end;
|
|
|
|
procedure TAbstractWebSessionValues_R(ASelf: TAbstractWebSession; var AValue: Variant; AName: string);
|
|
begin
|
|
AValue := ASelf.Values[AName];
|
|
end;
|
|
|
|
procedure TAbstractWebSessionValues_W(ASelf: TAbstractWebSession; AValue: Variant; AName: string);
|
|
begin
|
|
ASelf.Values[AName] := AValue;
|
|
end;
|
|
|
|
procedure TAbstractWebSessionSessionID_R(ASelf: TAbstractWebSession; var AValue: string);
|
|
begin
|
|
AValue := ASelf.SessionID;
|
|
end;
|
|
|
|
class procedure TcxAbstractWebSessionImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxWebSession.Terminate, UpperCase('Terminate'));
|
|
RegisterPropertyHelper(@TAbstractWebSessionTimeoutMinutes_R, @TAbstractWebSessionTimeoutMinutes_W, UpperCase('TimeoutMinutes'));
|
|
RegisterPropertyHelper(@TAbstractWebSessionValues_R, @TAbstractWebSessionValues_W, UpperCase('Values'));
|
|
RegisterPropertyHelper(@TAbstractWebSessionSessionID_R, nil, UpperCase('SessionID'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebSessionItemImporter }
|
|
|
|
class procedure TcxWebSessionItemImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('Expired', scxBooleanType, iptRW);
|
|
RegisterProperty('ExpTime', scxDateTimeType, iptR);
|
|
RegisterProperty('ID', scxStringType, iptR);
|
|
RegisterProperty('IsActive', scxBooleanType, iptR);
|
|
RegisterProperty('Items', 'TcxWebNamedVariants', iptRW);
|
|
RegisterProperty('LastTouchTime', scxDateTimeType, iptRW);
|
|
RegisterProperty('StartTime', scxDateTimeType, iptRW);
|
|
RegisterProperty('Status', 'TcxWebSessionStatus', iptRW);
|
|
RegisterProperty('Terminated', scxBooleanType, iptRW);
|
|
RegisterProperty('TimeoutMinutes', scxIntegerType, iptRW);
|
|
end;
|
|
end;
|
|
|
|
class procedure TcxWebSessionItemImporter.DeclareTypes(
|
|
ACompiler: TIFPSPascalCompiler);
|
|
begin
|
|
inherited;
|
|
ACompiler.AddTypeS('TcxWebSessionStatus', '(wssStarting, wssStarted, wssTerminating, wssTerminated)');
|
|
end;
|
|
|
|
class procedure TcxWebSessionItemImporter.EnumDependentClasses(
|
|
Proc: TClassEnumProc; AObject: TObject);
|
|
begin
|
|
inherited;
|
|
Proc(TcxWebNamedVariants, AObject);
|
|
end;
|
|
|
|
class function TcxWebSessionItemImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebSessionItem;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemExpired_R(ASelf: TcxWebSessionItem; var AValue: Boolean);
|
|
begin
|
|
AValue := ASelf.Expired;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemExpired_W(ASelf: TcxWebSessionItem; AValue: Boolean);
|
|
begin
|
|
ASelf.Expired := AValue;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemExpTime_R(ASelf: TcxWebSessionItem; var AValue: TDateTime);
|
|
begin
|
|
AValue := ASelf.ExpTime;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemID_R(ASelf: TcxWebSessionItem; var AValue: string);
|
|
begin
|
|
AValue := ASelf.ID;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemIsActive_R(ASelf: TcxWebSessionItem; var AValue: Boolean);
|
|
begin
|
|
AValue := ASelf.IsActive;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemItems_R(ASelf: TcxWebSessionItem; var AValue: TcxWebNamedVariants);
|
|
begin
|
|
AValue := ASelf.Items;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemItems_W(ASelf: TcxWebSessionItem; AValue: TcxWebNamedVariants);
|
|
begin
|
|
ASelf.Items := AValue;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemLastTouchTime_R(ASelf: TcxWebSessionItem; var AValue: TDateTime);
|
|
begin
|
|
AValue := ASelf.LastTouchTime;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemLastTouchTime_W(ASelf: TcxWebSessionItem; AValue: TDateTime);
|
|
begin
|
|
ASelf.LastTouchTime := AValue;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemStartTime_R(ASelf: TcxWebSessionItem; var AValue: TDateTime);
|
|
begin
|
|
AValue := ASelf.StartTime;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemStartTime_W(ASelf: TcxWebSessionItem; AValue: TDateTime);
|
|
begin
|
|
ASelf.StartTime := AValue;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemStatus_R(ASelf: TcxWebSessionItem; var AValue: TcxWebSessionStatus);
|
|
begin
|
|
AValue := ASelf.Status;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemStatus_W(ASelf: TcxWebSessionItem; AValue: TcxWebSessionStatus);
|
|
begin
|
|
ASelf.Status := AValue;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemTerminated_R(ASelf: TcxWebSessionItem; var AValue: Boolean);
|
|
begin
|
|
AValue := ASelf.Terminated;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemTerminated_W(ASelf: TcxWebSessionItem; AValue: Boolean);
|
|
begin
|
|
ASelf.Terminated := AValue;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemTimeoutMinutes_R(ASelf: TcxWebSessionItem; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.TimeoutMinutes;
|
|
end;
|
|
|
|
procedure TcxWebSessionItemTimeoutMinutes_W(ASelf: TcxWebSessionItem; AValue: Integer);
|
|
begin
|
|
ASelf.TimeoutMinutes := AValue;
|
|
end;
|
|
|
|
class procedure TcxWebSessionItemImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TcxWebSessionItemExpired_R, @TcxWebSessionItemExpired_W, UpperCase('Expired'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemExpTime_R, nil, UpperCase('ExpTime'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemID_R, nil, UpperCase('ID'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemIsActive_R, nil, UpperCase('IsActive'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemItems_R, @TcxWebSessionItemItems_W, UpperCase('Items'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemLastTouchTime_R, @TcxWebSessionItemLastTouchTime_W, UpperCase('LastTouchTime'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemStartTime_R, @TcxWebSessionItemStartTime_W, UpperCase('StartTime'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemStatus_R, @TcxWebSessionItemStatus_W, UpperCase('Status'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemTerminated_R, @TcxWebSessionItemTerminated_W, UpperCase('Terminated'));
|
|
RegisterPropertyHelper(@TcxWebSessionItemTimeoutMinutes_R, @TcxWebSessionItemTimeoutMinutes_W, UpperCase('TimeoutMinutes'));
|
|
end;
|
|
end;
|
|
|
|
{ TcxWebNamedVariantsImporter }
|
|
|
|
class procedure TcxWebNamedVariantsImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterMethod('function Add(const S: string; const AValue: Variant): Integer;');
|
|
RegisterMethod('procedure Assign(Source: TPersistent);');
|
|
RegisterMethod('procedure Clear;');
|
|
RegisterMethod('procedure Delete(Index: Integer);');
|
|
RegisterMethod('function IndexOfName(const Name: string): Integer;');
|
|
RegisterMethod('procedure Insert(Index: Integer; const S: string; const AValue: Variant);');
|
|
RegisterMethod('procedure LoadFromStream(Stream: TStream);');
|
|
RegisterMethod('procedure SaveToStream(Stream: TStream);');
|
|
|
|
RegisterProperty('Count', scxIntegerType, iptR);
|
|
RegisterProperty('Names', scxStringType + ' ' + scxIntegerType, iptR);
|
|
RegisterProperty('Values', scxVariantType + ' ' + scxStringType, iptRW);
|
|
RegisterProperty('Variants', scxVariantType + ' ' + scxIntegerType, iptRW);
|
|
end;
|
|
end;
|
|
|
|
class function TcxWebNamedVariantsImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TcxWebNamedVariants;
|
|
end;
|
|
|
|
procedure TcxWebNamedVariantsCount_R(ASelf: TcxWebNamedVariants; var AValue: Integer);
|
|
begin
|
|
AValue := ASelf.Count;
|
|
end;
|
|
|
|
procedure TcxWebNamedVariantsNames_R(ASelf: TcxWebNamedVariants; var AValue: string; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Names[Index];
|
|
end;
|
|
|
|
procedure TcxWebNamedVariantsValues_R(ASelf: TcxWebNamedVariants; var AValue: Variant; Index: Integer);
|
|
begin
|
|
AValue := ASelf.Variants[Index];
|
|
end;
|
|
|
|
procedure TcxWebNamedVariantsValues_W(ASelf: TcxWebNamedVariants; AValue: Variant; Index: Integer);
|
|
begin
|
|
ASelf.Variants[Index] := AValue;
|
|
end;
|
|
|
|
procedure TcxWebNamedVariantsVariants_R(ASelf: TcxWebNamedVariants; var AValue: Variant; AName: string);
|
|
begin
|
|
AValue := ASelf.Values[AName];
|
|
end;
|
|
|
|
procedure TcxWebNamedVariantsVariants_W(ASelf: TcxWebNamedVariants; AValue: Variant; AName: string);
|
|
begin
|
|
ASelf.Values[AName] := AValue;
|
|
end;
|
|
|
|
class procedure TcxWebNamedVariantsImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterMethod(@TcxWebNamedVariants.Add, UpperCase('Add'));
|
|
RegisterMethod(@TcxWebNamedVariants.Assign, UpperCase('Assign'));
|
|
RegisterMethod(@TcxWebNamedVariants.Clear, UpperCase('Clear'));
|
|
RegisterMethod(@TcxWebNamedVariants.Delete, UpperCase('Delete'));
|
|
RegisterMethod(@TcxWebNamedVariants.IndexOfName, UpperCase('IndexOfName'));
|
|
RegisterMethod(@TcxWebNamedVariants.Insert, UpperCase('Insert'));
|
|
RegisterMethod(@TcxWebNamedVariants.LoadFromStream, UpperCase('LoadFromStream'));
|
|
RegisterMethod(@TcxWebNamedVariants.SaveToStream, UpperCase('SaveToStream'));
|
|
|
|
RegisterPropertyHelper(@TcxWebNamedVariantsCount_R, nil, UpperCase('Count'));
|
|
RegisterPropertyHelper(@TcxWebNamedVariantsNames_R, nil, UpperCase('Names'));
|
|
RegisterPropertyHelper(@TcxWebNamedVariantsValues_R, @TcxWebNamedVariantsValues_W, UpperCase('Values'));
|
|
RegisterPropertyHelper(@TcxWebNamedVariantsVariants_R, @TcxWebNamedVariantsVariants_W, UpperCase('Variants'));
|
|
end;
|
|
end;
|
|
|
|
{ TAbstractWebPageInfoImporter }
|
|
|
|
class procedure TAbstractWebPageInfoImporter.DeclareClassMembers(
|
|
ACTClass: TIFPSCompileTimeClass);
|
|
begin
|
|
inherited;
|
|
with ACTClass do
|
|
begin
|
|
RegisterProperty('Name', scxStringType, iptR);
|
|
RegisterProperty('HREF', scxStringType, iptR);
|
|
RegisterProperty('Title', scxStringType, iptR);
|
|
RegisterProperty('Description', scxStringType, iptR);
|
|
RegisterProperty('IsPublished', scxBooleanType, iptR);
|
|
RegisterProperty('LoginRequired', scxBooleanType, iptR);
|
|
RegisterProperty('HasViewAccess', scxBooleanType, iptR);
|
|
end;
|
|
end;
|
|
|
|
class function TAbstractWebPageInfoImporter.ObjectClass: TClass;
|
|
begin
|
|
Result := TAbstractWebPageInfo;
|
|
end;
|
|
|
|
procedure TAbstractWebPageInfoName_R(ASelf: TAbstractWebPageInfo; var AValue: string);
|
|
begin
|
|
AValue := ASelf.PageName;
|
|
end;
|
|
|
|
procedure TAbstractWebPageInfoHREF_R(ASelf: TAbstractWebPageInfo; var AValue: string);
|
|
begin
|
|
AValue := ASelf.PageHREF;
|
|
end;
|
|
|
|
procedure TAbstractWebPageInfoTitle_R(ASelf: TAbstractWebPageInfo; var AValue: string);
|
|
begin
|
|
AValue := ASelf.PageTitle;
|
|
if AValue = '' then
|
|
TAbstractWebPageInfoName_R(ASelf, AValue);
|
|
end;
|
|
|
|
procedure TAbstractWebPageInfoDescription_R(ASelf: TAbstractWebPageInfo; var AValue: string);
|
|
begin
|
|
AValue := ASelf.PageDescription;
|
|
end;
|
|
|
|
procedure TAbstractWebPageInfoIsPublished_R(ASelf: TAbstractWebPageInfo; var AValue: Boolean);
|
|
begin
|
|
AValue := ASelf.IsPublished;
|
|
end;
|
|
|
|
procedure TAbstractWebPageInfoLoginRequired_R(ASelf: TAbstractWebPageInfo; var AValue: Boolean);
|
|
begin
|
|
AValue := False; //TODO
|
|
end;
|
|
|
|
procedure TAbstractWebPageInfoHasViewAccess_R(ASelf: TAbstractWebPageInfo; var AValue: Boolean);
|
|
begin
|
|
AValue := True; //TODO
|
|
end;
|
|
|
|
class procedure TAbstractWebPageInfoImporter.RegisterClassMembers(
|
|
ARTClass: TIFPSRuntimeClass);
|
|
begin
|
|
inherited;
|
|
with ARTClass do
|
|
begin
|
|
RegisterPropertyHelper(@TAbstractWebPageInfoName_R, nil, UpperCase('Name'));
|
|
RegisterPropertyHelper(@TAbstractWebPageInfoHREF_R, nil, UpperCase('HREF'));
|
|
RegisterPropertyHelper(@TAbstractWebPageInfoTitle_R, nil, UpperCase('Title'));
|
|
RegisterPropertyHelper(@TAbstractWebPageInfoDescription_R, nil, UpperCase('Description'));
|
|
RegisterPropertyHelper(@TAbstractWebPageInfoIsPublished_R, nil, UpperCase('IsPublished'));
|
|
RegisterPropertyHelper(@TAbstractWebPageInfoLoginRequired_R, nil, UpperCase('LoginRequired'));
|
|
RegisterPropertyHelper(@TAbstractWebPageInfoHasViewAccess_R, nil, UpperCase('HasViewAccess'));
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebPascalScriptProducerImporter, '');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebRequestImporter, '');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebContextImporter, '');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxAbstractWebSessionImporter, '');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebPageModuleImporter, '');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebSessionsImporter, '');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebSessionItemImporter, '');
|
|
cxPasScriptImpFactory.RegisterImporter(TcxWebNamedVariantsImporter, '');
|
|
cxPasScriptImpFactory.RegisterImporter(TAbstractWebPageInfoImporter, '');
|
|
|
|
end.
|