Ajustes Controller / SQL

Author: glprog

MiniREST.Controller.Base.pas

@@ -9,6 +9,7 @@   TMiniRESTControllerBase = class(TInterfacedObject, IMiniRESTController)
   protected
     FActionContext : IMiniRESTActionContext;
     FLogger : IMiniRESTLogger;
+    procedure InitController; virtual;
   public
     function GetActionContext: IMiniRESTActionContext;
     procedure SetActionContext(AContext: IMiniRESTActionContext);
@@ -49,6 +50,11 @@ function TMiniRESTControllerBase.GetLogger: IMiniRESTLogger;
   Result := FLogger;
 end;
 
+procedure TMiniRESTControllerBase.InitController;
+begin
+  Exit;
+end;
+
 function TMiniRESTControllerBase.PathVariable(AVariable: string): string;
 begin
   Result := GetActionContext.GetPathVariable(AVariable);

MiniREST.Controller.Intf.pas

@@ -7,6 +7,7 @@ interface
 type
   IMiniRESTController = interface
   ['{16EA18CD-7AF3-4851-A85B-B2D9E0B22EB5}']
+    procedure InitController;
     function GetActionContext : IMiniRESTActionContext;
     procedure SetActionContext(AContext : IMiniRESTActionContext);
     procedure Response(AContent : string; AContentType : TMiniRESTResponseType = rtTextHtml; AStatusCode : Integer = 200);

MiniREST.SQL.DBX.pas

@@ -92,6 +92,7 @@   TMiniRESTSQLQueryDBX = class(TInterfacedObject, IMiniRESTSQLQuery)
     procedure Close;
     function AddParam(AParam: IMiniRESTSQLParam): IMiniRESTSQLQuery;
     function ParamByName(const AParamName: string): IMiniRESTSQLParam;
+    function FieldByName(const AFieldName: string): TField;
     procedure Append;
     procedure Insert;
     procedure Post;
@@ -173,6 +174,11 @@ function TMiniRESTSQLQueryDBX.Eof: Boolean;
   Result := FQry.Eof;
 end;
 
+function TMiniRESTSQLQueryDBX.FieldByName(const AFieldName: string): TField;
+begin
+  Result := FQry.FieldByName(AFieldName);
+end;
+
 function TMiniRESTSQLQueryDBX.GetDataSet: TDataSet;
 begin
   Result := FQry;

MiniREST.SQL.Intf.pas

@@ -13,6 +13,7 @@ interface
     function AddParam(AParam: IMiniRESTSQLParam): IMiniRESTSQLQuery;
     function GetValue(AField: string) : Variant; overload;
     function GetValue(AField: string; ADefault: Variant): Variant; overload;
+    function FieldByName(const AFieldName: string): TField;
     function Eof: Boolean;
     procedure Next;
     function IsEmpty: Boolean;

MiniREST.Server.Base.pas

@@ -172,6 +172,7 @@ procedure TMiniRESTServerBase.FindController(AContext: IMiniRESTActionContext);
           LController := LMiniRESTActionInfo.&Class.Create;
         if Supports(LController, IMiniRESTController, LControllerIntf) then
         begin
+          LControllerIntf.InitController;
           LControllerIntf.SetLogger(GetLogger);
           LControllerIntf.SetActionContext(AContext);
           if (Length(LMiniRESTActionInfo.Method.GetParameters) = 1) and (LMiniRESTActionInfo.Method.GetParameters[0].ParamType.QualifiedName = 'MiniREST.Intf.IMiniRESTActionContext') then