Diff of /ServerController.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/ServerController.pas




Diff of /ServerController.pas



 Parent Directory

|  Revision Log



|  Patch














revision 1 by yamat0jp,
Sun Nov 22 11:18:44 2015 UTC




revision 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC






#

Line 5 
 interface


Line 5 
 interface












5
 uses
 uses

















6
   SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,
   SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,

















7
   // For OnNewSession Event
   // For OnNewSession Event















8


   UserSessionUnit, IWApplication, IWAppForm;


   UserSessionUnit, IWApplication, IWAppForm, IW.Browser.Browser;















9
 
 

















10
 type
 type

















11
   TIWServerController = class(TIWServerControllerBase)
   TIWServerController = class(TIWServerControllerBase)

















12
     procedure IWServerControllerBaseNewSession(ASession: TIWApplication);
     procedure IWServerControllerBaseNewSession(ASession: TIWApplication);














     procedure IWServerControllerBaseBeforeRender(ASession: TIWApplication;
 










       AForm: TIWBaseForm; var VNewForm: TIWBaseForm);
 













13
 
 

















14
   private
   private

















15
     
     











#

Line 27 
 implementation


Line 25 
 implementation












25
 {$R *.dfm}
 {$R *.dfm}

















26
 
 

















27
 uses
 uses















28


   IWInit, IWGlobal, Unit5, Unit7;


   IWInit, IWGlobal;















29
 
 

















30
 function IWServerController: TIWServerController;
 function IWServerController: TIWServerController;

















31
 begin
 begin

















32
   Result := TIWServerController(GServerController);
   Result := TIWServerController(GServerController);

















33
 end;
 end;

















34
 
 












35
 
 







36
 
 












37
 function UserSession: TIWUserSession;
 function UserSession: TIWUserSession;

















38
 begin
 begin

















39
   Result := TIWUserSession(WebApplication.Data);
   Result := TIWUserSession(WebApplication.Data);

















40
 end;
 end;

















41
 
 














 procedure TIWServerController.IWServerControllerBaseBeforeRender(
 










   ASession: TIWApplication; AForm: TIWBaseForm; var VNewForm: TIWBaseForm);
 










 begin
 










   VNewForm:=TCartForm.Create(WebApplication);
 










   AForm.Release;
 










 end;
 










 
 













42
 procedure TIWServerController.IWServerControllerBaseNewSession(
 procedure TIWServerController.IWServerControllerBaseNewSession(

















43
   ASession: TIWApplication);
   ASession: TIWApplication);

















44
 begin
 begin















45


   ASession.Data := TIWUserSession.Create(nil);


   ASession.Data := TIWUserSession.Create(nil, ASession);















46
 end;
 end;

















47
 
 

















48
 
 





























Legend:



Removed from v.1
 


changed lines


 
Added in v.2













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/ServerController.pas
-revision 1 by yamat0jp,
Sun Nov 22 11:18:44 2015 UTC
+revision 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC
 Line 5 
 interface
  uses
    SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,
    // For OnNewSession Event
-   UserSessionUnit, IWApplication, IWAppForm;
+   UserSessionUnit, IWApplication, IWAppForm, IW.Browser.Browser;
  type
    TIWServerController = class(TIWServerControllerBase)
      procedure IWServerControllerBaseNewSession(ASession: TIWApplication);
-     procedure IWServerControllerBaseBeforeRender(ASession: TIWApplication;
-       AForm: TIWBaseForm; var VNewForm: TIWBaseForm);
    private
-Line 27 
 implementation
+Line 25 
 implementation
  {$R *.dfm}
  uses
-   IWInit, IWGlobal, Unit5, Unit7;
+   IWInit, IWGlobal;
  function IWServerController: TIWServerController;
  begin
    Result := TIWServerController(GServerController);
  end;
  function UserSession: TIWUserSession;
  begin
    Result := TIWUserSession(WebApplication.Data);
  end;
- procedure TIWServerController.IWServerControllerBaseBeforeRender(
-   ASession: TIWApplication; AForm: TIWBaseForm; var VNewForm: TIWBaseForm);
- begin
-   VNewForm:=TCartForm.Create(WebApplication);
-   AForm.Release;
- end;
  procedure TIWServerController.IWServerControllerBaseNewSession(
    ASession: TIWApplication);
  begin
-   ASession.Data := TIWUserSession.Create(nil);
+   ASession.Data := TIWUserSession.Create(nil, ASession);
  end;
 Legend:



Removed from v.1
 


changed lines


 
Added in v.2
 Legend:



Removed from v.1
 


changed lines


 
Added in v.2
-Removed from v.1
+Added in v.2
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository