paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:25:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Mario Ray Mahardika to remove need for TypeCasts (bug ID 30252)

Browse Source 
git-svn-id: trunk@35623 -
This commit is contained in:
michael 2017-03-18 19:38:37 +00:00
parent cd03ec93fe
commit 2469aa48c1
1 changed files with 40 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
packages/fcl-web/src/base/fpweb.pp
View File

@ -50,13 +50,20 @@ Type
TFPWebActions = Class(TCustomWebActions) TFPWebActions = Class(TCustomWebActions)
private private
FCurrentAction : TCustomWebAction; FCurrentAction : TFPWebAction;
function GetFPWebActions(Index : Integer): TFPWebAction;
procedure SetFPWebActions(Index : Integer; const AValue: TFPWebAction);
protected protected
Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse; Var Handled : Boolean); virtual; Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse; Var Handled : Boolean); virtual;
Procedure GetContent(ARequest : TRequest; Content : TStream; Var Handled : Boolean); virtual; Procedure GetContent(ARequest : TRequest; Content : TStream; Var Handled : Boolean); virtual;
Function GetRequestAction(ARequest: TRequest) : TFPWebAction;
Public Public
Function Add : TFPWebAction;
Function ActionByName(const AName : String) : TFPWebAction;
Function FindAction(const AName : String): TFPWebAction;
Property FPWebActions[Index : Integer] : TFPWebAction Read GetFPWebActions Write SetFPWebActions; Default;
Property ActionVar; Property ActionVar;
Property CurrentAction: TCustomWebAction read FCurrentAction; Property CurrentAction: TFPWebAction read FCurrentAction;
end; end;
{ TTemplateVar } { TTemplateVar }
@ -553,10 +560,40 @@ end;
{ TFPWebActions } { TFPWebActions }
Function TFPWebActions.GetRequestAction(ARequest: TRequest) : TFPWebAction;
begin
Result := inherited GetRequestAction(ARequest) as TFPWebAction;
end;
Function TFPWebActions.Add : TFPWebAction;
begin
Result := inherited Add as TFPWebAction;
end;
Function TFPWebActions.ActionByName(const AName : String) : TFPWebAction;
begin
Result := inherited ActionByName(AName) as TFPWebAction;
end;
Function TFPWebActions.FindAction(const AName : String): TFPWebAction;
begin
Result := inherited FindAction(AName) as TFPWebAction;
end;
function TFPWebActions.GetFPWebActions(Index : Integer): TFPWebAction;
begin
Result := Actions[Index] as TFPWebAction;
end;
procedure TFPWebActions.SetFPWebActions(Index : Integer; const AValue: TFPWebAction);
begin
Actions[Index] := AValue;
end;
procedure TFPWebActions.HandleRequest(ARequest: TRequest; AResponse: TResponse; Var Handled : Boolean); procedure TFPWebActions.HandleRequest(ARequest: TRequest; AResponse: TResponse; Var Handled : Boolean);
Var Var
A : TCustomWebAction; A : TFPWebAction;
begin begin
{$ifdef cgidebug}SendMethodEnter('FPWebActions.handlerequest');{$endif cgidebug} {$ifdef cgidebug}SendMethodEnter('FPWebActions.handlerequest');{$endif cgidebug}