Changeset 81 for trunk


Ignore:
Timestamp:
Jun 21, 2012, 12:21:50 PM (12 years ago)
Author:
chronos
Message:
  • Přejmenování jednotky UMainModule na UCore.
Location:
trunk
Files:
19 edited

Legend:

Unmodified
Added
Removed

  • trunk/Common/UUtils.pas

    r80 r81  
    2121
    2222uses
    23   UMainModule;
     23  UCore;
    2424
    2525function HtmlLink(Text, Target: string): string;
    … …  
    9797begin
    9898  if (Length(URL) > 0) and (URL[1] = '/') then
    99     Result := MainModule.BaseURL + URL
     99    Result := Core.BaseURL + URL
    100100    else Result := URL;
    101101end;

  • trunk/Pages/UAboutPage.pas

    r80 r81  
    2828
    2929uses
    30   UMainModule, UUtils;
     30  UCore, UUtils;
    3131
    3232{ TAboutPage }

  • trunk/Pages/UContactPage.pas

    r78 r81  
    2828
    2929uses
    30   UMainModule;
     30  UCore;
    3131
    3232procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);

  • trunk/Pages/UDocumentsPage.pas

    r80 r81  
    2828
    2929uses
    30   UMainModule, UUtils;
     30  UCore, UUtils;
    3131
    3232{ TDocumentsPage }

  • trunk/Pages/UHistoryPage.pas

    r80 r81  
    2828
    2929uses
    30   UMainModule, UUtils;
     30  UCore, UUtils;
    3131
    3232{ THistoryPage }

  • trunk/Pages/UHostingPage.pas

    r78 r81  
    2929
    3030uses
    31   UMainModule;
     31  UCore;
    3232
    3333{ THostingPage }

  • trunk/Pages/UInternetPage.pas

    r78 r81  
    2828
    2929uses
    30   UMainModule, UHtmlClasses;
     30  UCore, UHtmlClasses;
    3131
    3232{ TInternetPage }

  • trunk/Pages/ULinksPage.pas

    r78 r81  
    2828
    2929uses
    30   UMainModule;
     30  UCore;
    3131
    3232{ TLinksPage }

  • trunk/Pages/UNetworkPage.pas

    r80 r81  
    2828
    2929uses
    30   UMainModule, UUtils;
     30  UCore, UUtils;
    3131
    3232{ TNetworkPage }

  • trunk/Pages/UPlansPage.pas

    r79 r81  
    2828
    2929uses
    30   UMainModule;
     30  UCore;
    3131
    3232{ TPlansPage }

  • trunk/Pages/UProjectsPage.pas

    r79 r81  
    2828
    2929uses
    30   UMainModule;
     30  UCore;
    3131
    3232{ TProjectsPage }

  • trunk/Pages/UServerInfoPage.pas

    r78 r81  
    2828
    2929uses
    30   UMainModule;
     30  UCore;
    3131
    3232{ TServerInfoPage }

  • trunk/Pages/UUserControlPage.lfm

    r56 r81  
    66  HorizontalOffset = 259
    77  VerticalOffset = 250
    8   Width = 50
     8  Width = 104
    99end

  • trunk/Pages/UUserControlPage.pas

    r80 r81  
    3232
    3333uses
    34   UMainModule, UUtils, UUser;
     34  UCore, UUtils, UUser;
    3535
    3636  { TUserControlPage }
    … …  
    6363  UserId: Integer;
    6464begin
    65   with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     65  with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
    6666    Form := TQueryForm.Create;
    6767    with Form do begin
    … …  
    108108  UserId: Integer;
    109109begin
    110   with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     110  with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
    111111    Form := TQueryForm.Create;
    112112    with Form do begin
    … …  
    165165procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData);
    166166begin
    167   with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     167  with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
    168168    UserOnline.Logout;
    169169    with THtmlString(SubItems.AddNew(THtmlString.Create)) do

  • trunk/Pages/UVoIPPage.pas

    r78 r81  
    2828
    2929uses
    30   UMainModule;
     30  UCore;
    3131
    3232{ TVoIPPage }

  • trunk/Pages/UWebCamPage.pas

    r80 r81  
    2828
    2929uses
    30   UMainModule, UUtils;
     30  UCore, UUtils;
    3131
    3232

  • trunk/UCore.pas

    r80 r81  
    1 unit UMainModule;
     1unit UCore;
    22
    33{$mode delphi}
    … …  
    1616
    1717type
    18   TMainModule = class;
     18  TCore = class;
    1919
    2020  { TWebSession }
    … …  
    2525    procedure Footer;
    2626  public
    27     MainModule: TMainModule;
     27    MainModule: TCore;
    2828    Database: TSqlDatabase;
    2929    SessionStorage: THTTPSessionStorageMySQL;
    … …  
    4040  end;
    4141
    42   { TMainModule }
    43 
    44   TMainModule = class(TDataModule)
     42  { TCore }
     43
     44  TCore = class(TDataModule)
    4545    WebApp1: TWebApp;
    4646    procedure WebApp1PageProduce(HandlerData: THTTPHandlerData);
    … …  
    7474
    7575var
    76   MainModule: TMainModule;
     76  Core: TCore;
    7777
    7878
    … …  
    162162
    163163
    164 { TMainModule }
    165 
    166 constructor TMainModule.Create(AOwner: TComponent);
     164{ TCore }
     165
     166constructor TCore.Create(AOwner: TComponent);
    167167begin
    168168  inherited;
    … …  
    195195end;
    196196
    197 destructor TMainModule.Destroy;
     197destructor TCore.Destroy;
    198198begin
    199199  //SaveToRegistry;
    … …  
    244244end;
    245245
    246 procedure TMainModule.Show(Content: string);
     246procedure TCore.Show(Content: string);
    247247begin
    248248  //HtmlDocument.Title := ;
    … …  
    308308end;
    309309
    310 procedure TMainModule.WebApp1PageProduce(HandlerData: THTTPHandlerData);
     310procedure TCore.WebApp1PageProduce(HandlerData: THTTPHandlerData);
    311311var
    312312  FileName: string;
    … …  
    349349end;
    350350
    351 procedure TMainModule.LoadFromRegistry;
     351procedure TCore.LoadFromRegistry;
    352352const
    353353  SectionGeneral = 'General';
    … …  
    366366    DatabasePassword := ReadString(SectionDatabase, 'DatabasePassword', 'password');
    367367    FormatHTML := ReadBool(SectionGeneral, 'FormatHTML', False);
    368     //MainModule.WebApp1.LogException := not ReadBool(SectionGeneral, 'ShowException', False);
     368    //Core.WebApp1.LogException := not ReadBool(SectionGeneral, 'ShowException', False);
    369369    NetworkAddress := ReadString(SectionHTTPServer, 'NetworkAddress', 'localhost');
    370370    NetworkPort := ReadInteger(SectionHTTPServer, 'NetworkPort', 80);
    … …  
    375375end;
    376376
    377 procedure TMainModule.SaveToRegistry;
     377procedure TCore.SaveToRegistry;
    378378const
    379379  SectionGeneral = 'General';
    … …  
    392392    WriteString(SectionDatabase, 'DatabasePassword', DatabasePassword);
    393393    WriteBool(SectionGeneral, 'FormatHTML', FormatHTML);
    394     //WriteBool(SectionGeneral, 'ShowException', not MainModule.WebApp1.LogException);
     394    //WriteBool(SectionGeneral, 'ShowException', not Core.WebApp1.LogException);
    395395    WriteString(SectionHTTPServer, 'NetworkAddress', NetworkAddress);
    396396    WriteInteger(SectionHTTPServer, 'NetworkPort', NetworkPort);
    … …  
    401401end;
    402402
    403 procedure TMainModule.Run;
     403procedure TCore.Run;
    404404begin
    405405  WebApp1.HTTPServer.DocumentRoot := ExtractFileDir(ParamStrUTF8(0));
    … …  
    409409
    410410initialization
    411   {$I UMainModule.lrs}
     411  {$I UCore.lrs}
    412412
    413413end.

  • trunk/ZdechovNET.lpi

    r80 r81  
    8484      </Unit4>
    8585      <Unit5>
    86         <Filename Value="Modules/UMainModule.pas"/>
    87         <IsPartOfProject Value="True"/>
    88         <ComponentName Value="MainModule"/>
    89         <HasResources Value="True"/>
    90         <ResourceBaseClass Value="DataModule"/>
    91         <UnitName Value="UMainModule"/>
     86        <Filename Value="Pages/UContactPage.pas"/>
     87        <IsPartOfProject Value="True"/>
     88        <ComponentName Value="ContactPage"/>
     89        <ResourceBaseClass Value="DataModule"/>
     90        <UnitName Value="UContactPage"/>
    9291      </Unit5>
    9392      <Unit6>
    94         <Filename Value="Pages/UContactPage.pas"/>
    95         <IsPartOfProject Value="True"/>
    96         <ComponentName Value="ContactPage"/>
    97         <ResourceBaseClass Value="DataModule"/>
    98         <UnitName Value="UContactPage"/>
     93        <Filename Value="Pages/UInternetPage.pas"/>
     94        <IsPartOfProject Value="True"/>
     95        <ComponentName Value="InternetPage"/>
     96        <ResourceBaseClass Value="DataModule"/>
     97        <UnitName Value="UInternetPage"/>
    9998      </Unit6>
    10099      <Unit7>
    101         <Filename Value="Pages/UInternetPage.pas"/>
    102         <IsPartOfProject Value="True"/>
    103         <ComponentName Value="InternetPage"/>
    104         <ResourceBaseClass Value="DataModule"/>
    105         <UnitName Value="UInternetPage"/>
     100        <Filename Value="Pages/UHostingPage.pas"/>
     101        <IsPartOfProject Value="True"/>
     102        <ComponentName Value="HostingPage"/>
     103        <ResourceBaseClass Value="DataModule"/>
     104        <UnitName Value="UHostingPage"/>
    106105      </Unit7>
    107106      <Unit8>
    108         <Filename Value="Pages/UHostingPage.pas"/>
    109         <IsPartOfProject Value="True"/>
    110         <ComponentName Value="HostingPage"/>
    111         <ResourceBaseClass Value="DataModule"/>
    112         <UnitName Value="UHostingPage"/>
     107        <Filename Value="Pages/UHistoryPage.pas"/>
     108        <IsPartOfProject Value="True"/>
     109        <ComponentName Value="HistoryPage"/>
     110        <ResourceBaseClass Value="DataModule"/>
     111        <UnitName Value="UHistoryPage"/>
    113112      </Unit8>
    114113      <Unit9>
    115         <Filename Value="Pages/UHistoryPage.pas"/>
    116         <IsPartOfProject Value="True"/>
    117         <ComponentName Value="HistoryPage"/>
    118         <ResourceBaseClass Value="DataModule"/>
    119         <UnitName Value="UHistoryPage"/>
     114        <Filename Value="Pages/UDocumentsPage.pas"/>
     115        <IsPartOfProject Value="True"/>
     116        <ComponentName Value="DocumentsPage"/>
     117        <ResourceBaseClass Value="DataModule"/>
     118        <UnitName Value="UDocumentsPage"/>
    120119      </Unit9>
    121120      <Unit10>
    122         <Filename Value="Pages/UDocumentsPage.pas"/>
    123         <IsPartOfProject Value="True"/>
    124         <ComponentName Value="DocumentsPage"/>
    125         <ResourceBaseClass Value="DataModule"/>
    126         <UnitName Value="UDocumentsPage"/>
     121        <Filename Value="Pages/UVoIPPage.pas"/>
     122        <IsPartOfProject Value="True"/>
     123        <ComponentName Value="VoIPPage"/>
     124        <ResourceBaseClass Value="DataModule"/>
     125        <UnitName Value="UVoIPPage"/>
    127126      </Unit10>
    128127      <Unit11>
    129         <Filename Value="Pages/UVoIPPage.pas"/>
    130         <IsPartOfProject Value="True"/>
    131         <ComponentName Value="VoIPPage"/>
    132         <ResourceBaseClass Value="DataModule"/>
    133         <UnitName Value="UVoIPPage"/>
     128        <Filename Value="Pages/UPlansPage.pas"/>
     129        <IsPartOfProject Value="True"/>
     130        <ComponentName Value="PlansPage"/>
     131        <HasResources Value="True"/>
     132        <ResourceBaseClass Value="DataModule"/>
     133        <UnitName Value="UPlansPage"/>
    134134      </Unit11>
    135135      <Unit12>
    136         <Filename Value="Pages/UPlansPage.pas"/>
    137         <IsPartOfProject Value="True"/>
    138         <ComponentName Value="PlansPage"/>
    139         <HasResources Value="True"/>
    140         <ResourceBaseClass Value="DataModule"/>
    141         <UnitName Value="UPlansPage"/>
     136        <Filename Value="Pages/ULinksPage.pas"/>
     137        <IsPartOfProject Value="True"/>
     138        <ComponentName Value="LinksPage"/>
     139        <ResourceBaseClass Value="DataModule"/>
     140        <UnitName Value="ULinksPage"/>
    142141      </Unit12>
    143142      <Unit13>
    144         <Filename Value="Pages/ULinksPage.pas"/>
    145         <IsPartOfProject Value="True"/>
    146         <ComponentName Value="LinksPage"/>
    147         <ResourceBaseClass Value="DataModule"/>
    148         <UnitName Value="ULinksPage"/>
     143        <Filename Value="Pages/UServerInfoPage.pas"/>
     144        <IsPartOfProject Value="True"/>
     145        <ComponentName Value="ServerInfoPage"/>
     146        <ResourceBaseClass Value="DataModule"/>
     147        <UnitName Value="UServerInfoPage"/>
    149148      </Unit13>
    150149      <Unit14>
    151         <Filename Value="Pages/UServerInfoPage.pas"/>
    152         <IsPartOfProject Value="True"/>
    153         <ComponentName Value="ServerInfoPage"/>
    154         <ResourceBaseClass Value="DataModule"/>
    155         <UnitName Value="UServerInfoPage"/>
     150        <Filename Value="Pages/UWebCamPage.pas"/>
     151        <IsPartOfProject Value="True"/>
     152        <ComponentName Value="WebCamPage"/>
     153        <ResourceBaseClass Value="DataModule"/>
     154        <UnitName Value="UWebCamPage"/>
    156155      </Unit14>
    157156      <Unit15>
    158         <Filename Value="Pages/UWebCamPage.pas"/>
    159         <IsPartOfProject Value="True"/>
    160         <ComponentName Value="WebCamPage"/>
    161         <ResourceBaseClass Value="DataModule"/>
    162         <UnitName Value="UWebCamPage"/>
     157        <Filename Value="Pages/UUserControlPage.pas"/>
     158        <IsPartOfProject Value="True"/>
     159        <ComponentName Value="UserControlPage"/>
     160        <HasResources Value="True"/>
     161        <ResourceBaseClass Value="DataModule"/>
     162        <UnitName Value="UUserControlPage"/>
    163163      </Unit15>
    164164      <Unit16>
    165         <Filename Value="Pages/UUserControlPage.pas"/>
    166         <IsPartOfProject Value="True"/>
    167         <ComponentName Value="UserControlPage"/>
    168         <HasResources Value="True"/>
    169         <ResourceBaseClass Value="DataModule"/>
    170         <UnitName Value="UUserControlPage"/>
     165        <Filename Value="Pages/UNetworkPage.pas"/>
     166        <IsPartOfProject Value="True"/>
     167        <ComponentName Value="NetworkPage"/>
     168        <HasResources Value="True"/>
     169        <ResourceBaseClass Value="DataModule"/>
     170        <UnitName Value="UNetworkPage"/>
    171171      </Unit16>
    172172      <Unit17>
    173         <Filename Value="Pages/UNetworkPage.pas"/>
    174         <IsPartOfProject Value="True"/>
    175         <ComponentName Value="NetworkPage"/>
    176         <HasResources Value="True"/>
    177         <ResourceBaseClass Value="DataModule"/>
    178         <UnitName Value="UNetworkPage"/>
     173        <Filename Value="Pages/UAboutPage.pas"/>
     174        <IsPartOfProject Value="True"/>
     175        <ComponentName Value="AboutPage"/>
     176        <HasResources Value="True"/>
     177        <ResourceBaseClass Value="DataModule"/>
     178        <UnitName Value="UAboutPage"/>
    179179      </Unit17>
    180180      <Unit18>
    181         <Filename Value="Pages/UAboutPage.pas"/>
    182         <IsPartOfProject Value="True"/>
    183         <ComponentName Value="AboutPage"/>
    184         <HasResources Value="True"/>
    185         <ResourceBaseClass Value="DataModule"/>
    186         <UnitName Value="UAboutPage"/>
     181        <Filename Value="ReadMe.txt"/>
     182        <IsPartOfProject Value="True"/>
    187183      </Unit18>
    188184      <Unit19>
    189         <Filename Value="ReadMe.txt"/>
    190         <IsPartOfProject Value="True"/>
     185        <Filename Value="Application/UApplicationInfo.pas"/>
     186        <IsPartOfProject Value="True"/>
     187        <UnitName Value="UApplicationInfo"/>
    191188      </Unit19>
    192189      <Unit20>
    193         <Filename Value="Application/UApplicationInfo.pas"/>
    194         <IsPartOfProject Value="True"/>
    195         <UnitName Value="UApplicationInfo"/>
     190        <Filename Value="Pages/UProjectsPage.pas"/>
     191        <IsPartOfProject Value="True"/>
     192        <ComponentName Value="ProjectsPage"/>
     193        <ResourceBaseClass Value="DataModule"/>
     194        <UnitName Value="UProjectsPage"/>
    196195      </Unit20>
    197196      <Unit21>
    198         <Filename Value="Pages/UProjectsPage.pas"/>
    199         <IsPartOfProject Value="True"/>
    200         <ComponentName Value="ProjectsPage"/>
    201         <ResourceBaseClass Value="DataModule"/>
    202         <UnitName Value="UProjectsPage"/>
     197        <Filename Value="Modules/User/UModuleUser.pas"/>
     198        <IsPartOfProject Value="True"/>
     199        <UnitName Value="UModuleUser"/>
    203200      </Unit21>
    204201      <Unit22>
    205         <Filename Value="Modules/User/UModuleUser.pas"/>
    206         <IsPartOfProject Value="True"/>
    207         <UnitName Value="UModuleUser"/>
     202        <Filename Value="Common/UModule.pas"/>
     203        <IsPartOfProject Value="True"/>
     204        <UnitName Value="UModule"/>
    208205      </Unit22>
    209206      <Unit23>
    210         <Filename Value="Common/UModule.pas"/>
    211         <IsPartOfProject Value="True"/>
    212         <UnitName Value="UModule"/>
     207        <Filename Value="UCore.pas"/>
     208        <IsPartOfProject Value="True"/>
     209        <HasResources Value="True"/>
     210        <UnitName Value="UCore"/>
    213211      </Unit23>
    214212    </Units>
    … …  
    220218    </Target>
    221219    <SearchPaths>
    222       <OtherUnitFiles Value="/usr/lib/mysql;/usr/lib64/mysql;Application;WebServer;Network;Modules;Pages;Modules/User;Common"/>
     220      <OtherUnitFiles Value="/usr/lib/mysql;/usr/lib64/mysql;Application;WebServer;Network;Pages;Modules/User;Common"/>
    223221      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    224222    </SearchPaths>

  • trunk/ZdechovNET.lpr

    r80 r81  
    1010  UUser, UHTTPSessionMySQL, UHTTPSessionFile,
    1111  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
    12   UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule, UWebApp;
     12  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UCore, UWebApp;
    1313
    1414begin
    1515  with Application do begin
    1616    Initialize;
    17     MainModule := TMainModule.Create(Application);
    18     MainModule.Run;
     17    Core := TCore.Create(Application);
     18    Core.Run;
    1919    Run;
    2020  end;
Note: See TracChangeset for help on using the changeset viewer.