Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/ServerController.pas

Diff of /ServerController.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by yamat0jp, Sat Dec 19 14:35:42 2015 UTC revision 19 by yamat0jp, Sat Aug 27 13:22:00 2016 UTC
# Line 10  uses Line 10  uses
10  type  type
11    TIWServerController = class(TIWServerControllerBase)    TIWServerController = class(TIWServerControllerBase)
12      procedure IWServerControllerBaseNewSession(ASession: TIWApplication);      procedure IWServerControllerBaseNewSession(ASession: TIWApplication);
13        procedure IWServerControllerBaseBeforeRender(ASession: TIWApplication;
14          AForm: TIWBaseForm; var VNewForm: TIWBaseForm);
15    
16    private    private
17        
18    public    public
19    end;    end;
20    
21    function UserSession: TIWUserSession;
22    function UserSession: TIWUserSession;  function IWServerController: TIWServerController;
   function IWServerController: TIWServerController;  
23    
24  implementation  implementation
25    
26  {$R *.dfm}  {$R *.dfm}
27    
28  uses  uses
29    IWInit, IWGlobal;    IWInit, IWGlobal, Unit14, Unit3, Unit13;
30    
31  function IWServerController: TIWServerController;  function IWServerController: TIWServerController;
32  begin  begin
33    Result := TIWServerController(GServerController);    Result := TIWServerController(GServerController);
34  end;  end;
35    
   
   
36  function UserSession: TIWUserSession;  function UserSession: TIWUserSession;
37  begin  begin
38    Result := TIWUserSession(WebApplication.Data);    Result := TIWUserSession(WebApplication.Data);
39  end;  end;
40    
41  procedure TIWServerController.IWServerControllerBaseNewSession(  procedure TIWServerController.IWServerControllerBaseBeforeRender
42    ASession: TIWApplication);    (ASession: TIWApplication; AForm: TIWBaseForm; var VNewForm: TIWBaseForm);
43  begin  begin
44    ASession.Data := TIWUserSession.Create(nil, ASession);    if (AForm is TMasterFOrm = false)and(DM.FDTable3.FieldByName('ENABLE').AsBoolean = false) then
45      begin
46        VNewForm := TMentenance.Create(WebApplication);
47        AForm.Release;
48        AForm := nil;
49      end;
50  end;  end;
51    
52    procedure TIWServerController.IWServerControllerBaseNewSession
53      (ASession: TIWApplication);
54    begin
55      ASession.Data := TIWUserSession.Create(nil, ASession);
56    end;
57    
58  initialization  initialization
   TIWServerController.SetServerControllerClass;  
59    
60  end.  TIWServerController.SetServerControllerClass;
61    
62    end.
Legend:
Removed from v.2  
changed lines
  Added in v.19
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help