Changeset 50


Ignore:
Timestamp:
Apr 30, 2011, 10:56:05 PM (13 years ago)
Author:
george
Message:
  • Added: MainModule component of non visual type TDataModule. Now THTTPServer and session systems are components.
Location:
trunk
Files:
4 added
1 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/CGI.lpi

    r49 r50  
    3939      </local>
    4040    </RunParams>
    41     <RequiredPackages Count="4">
     41    <RequiredPackages Count="3">
    4242      <Item1>
    43         <PackageName Value="LCLBase"/>
     43        <PackageName Value="LCL"/>
    4444      </Item1>
    4545      <Item2>
    46         <PackageName Value="LCL"/>
     46        <PackageName Value="CoolWeb"/>
    4747      </Item2>
    4848      <Item3>
    49         <PackageName Value="CoolWeb"/>
     49        <PackageName Value="TemplateGenerics"/>
    5050      </Item3>
    51       <Item4>
    52         <PackageName Value="TemplateGenerics"/>
    53       </Item4>
    5451    </RequiredPackages>
    55     <Units Count="72">
     52    <Units Count="84">
    5653      <Unit0>
    5754        <Filename Value="CGI.lpr"/>
    5855        <IsPartOfProject Value="True"/>
    5956        <UnitName Value="CGI"/>
    60         <EditorIndex Value="3"/>
    61         <WindowIndex Value="0"/>
    62         <TopLine Value="9"/>
    63         <CursorPos X="15" Y="18"/>
     57        <EditorIndex Value="1"/>
     58        <WindowIndex Value="0"/>
     59        <TopLine Value="1"/>
     60        <CursorPos X="13" Y="15"/>
    6461        <UsageCount Value="203"/>
    6562        <Loaded Value="True"/>
    … …  
    7370        <WindowIndex Value="0"/>
    7471        <TopLine Value="417"/>
    75         <CursorPos X="42" Y="419"/>
     72        <CursorPos X="47" Y="432"/>
    7673        <UsageCount Value="200"/>
    7774        <Loaded Value="True"/>
    … …  
    9693        <IsPartOfProject Value="True"/>
    9794        <UnitName Value="UCore"/>
    98         <EditorIndex Value="6"/>
     95        <EditorIndex Value="10"/>
    9996        <WindowIndex Value="0"/>
    10097        <TopLine Value="1"/>
    … …  
    163160        <CursorPos X="10" Y="110"/>
    164161        <UsageCount Value="60"/>
     162        <DefaultSyntaxHighlighter Value="Delphi"/>
    165163      </Unit11>
    166164      <Unit12>
    … …  
    168166        <IsPartOfProject Value="True"/>
    169167        <UnitName Value="UConfig"/>
     168        <EditorIndex Value="8"/>
    170169        <WindowIndex Value="0"/>
    171170        <TopLine Value="7"/>
    172         <CursorPos X="76" Y="8"/>
     171        <CursorPos X="41" Y="24"/>
    173172        <UsageCount Value="294"/>
     173        <Loaded Value="True"/>
    174174        <DefaultSyntaxHighlighter Value="Delphi"/>
    175175      </Unit12>
    … …  
    228228      <Unit19>
    229229        <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/>
    230         <EditorIndex Value="2"/>
    231230        <WindowIndex Value="0"/>
    232231        <TopLine Value="677"/>
    233232        <CursorPos X="14" Y="691"/>
    234233        <UsageCount Value="62"/>
    235         <Loaded Value="True"/>
     234        <DefaultSyntaxHighlighter Value="Delphi"/>
    236235      </Unit19>
    237236      <Unit20>
    … …  
    241240        <CursorPos X="22" Y="23"/>
    242241        <UsageCount Value="61"/>
     242        <DefaultSyntaxHighlighter Value="Delphi"/>
    243243      </Unit20>
    244244      <Unit21>
    … …  
    249249        <CursorPos X="26" Y="1143"/>
    250250        <UsageCount Value="61"/>
     251        <DefaultSyntaxHighlighter Value="Delphi"/>
    251252      </Unit21>
    252253      <Unit22>
    … …  
    256257        <CursorPos X="5" Y="61"/>
    257258        <UsageCount Value="61"/>
     259        <DefaultSyntaxHighlighter Value="Delphi"/>
    258260      </Unit22>
    259261      <Unit23>
    … …  
    263265        <CursorPos X="10" Y="63"/>
    264266        <UsageCount Value="61"/>
     267        <DefaultSyntaxHighlighter Value="Delphi"/>
    265268      </Unit23>
    266269      <Unit24>
    … …  
    333336        <CursorPos X="14" Y="78"/>
    334337        <UsageCount Value="60"/>
     338        <DefaultSyntaxHighlighter Value="Delphi"/>
    335339      </Unit31>
    336340      <Unit32>
    … …  
    340344        <CursorPos X="23" Y="526"/>
    341345        <UsageCount Value="56"/>
     346        <DefaultSyntaxHighlighter Value="Delphi"/>
    342347      </Unit32>
    343348      <Unit33>
    … …  
    469474      <Unit47>
    470475        <Filename Value="Application/UCustomApplication.pas"/>
    471         <IsPartOfProject Value="True"/>
    472476        <UnitName Value="UCustomApplication"/>
    473         <IsVisibleTab Value="True"/>
    474         <EditorIndex Value="1"/>
    475         <WindowIndex Value="0"/>
    476         <TopLine Value="129"/>
    477         <CursorPos X="5" Y="155"/>
     477        <WindowIndex Value="0"/>
     478        <TopLine Value="1"/>
     479        <CursorPos X="1" Y="15"/>
    478480        <UsageCount Value="339"/>
    479         <Loaded Value="True"/>
    480481        <DefaultSyntaxHighlighter Value="Delphi"/>
    481482      </Unit47>
    … …  
    486487        <CursorPos X="3" Y="695"/>
    487488        <UsageCount Value="41"/>
     489        <DefaultSyntaxHighlighter Value="Delphi"/>
    488490      </Unit48>
    489491      <Unit49>
    … …  
    530532        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    531533        <UnitName Value="CoolWeb"/>
    532         <WindowIndex Value="0"/>
    533         <TopLine Value="1"/>
    534         <CursorPos X="34" Y="13"/>
     534        <EditorIndex Value="3"/>
     535        <WindowIndex Value="0"/>
     536        <TopLine Value="1"/>
     537        <CursorPos X="32" Y="10"/>
    535538        <UsageCount Value="11"/>
     539        <Loaded Value="True"/>
    536540      </Unit54>
    537541      <Unit55>
    … …  
    554558        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/>
    555559        <UnitName Value="UXmlClasses"/>
    556         <EditorIndex Value="7"/>
     560        <EditorIndex Value="11"/>
    557561        <WindowIndex Value="0"/>
    558562        <TopLine Value="144"/>
    … …  
    564568        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    565569        <UnitName Value="UHtmlClasses"/>
    566         <EditorIndex Value="8"/>
    567         <WindowIndex Value="0"/>
    568         <TopLine Value="744"/>
     570        <EditorIndex Value="12"/>
     571        <WindowIndex Value="0"/>
     572        <TopLine Value="731"/>
    569573        <CursorPos X="38" Y="434"/>
    570574        <UsageCount Value="21"/>
    … …  
    575579        <IsPartOfProject Value="True"/>
    576580        <UnitName Value="UWebObjects"/>
    577         <EditorIndex Value="4"/>
    578         <WindowIndex Value="0"/>
    579         <TopLine Value="30"/>
    580         <CursorPos X="3" Y="44"/>
    581         <UsageCount Value="36"/>
     581        <EditorIndex Value="6"/>
     582        <WindowIndex Value="0"/>
     583        <TopLine Value="1"/>
     584        <CursorPos X="1" Y="1"/>
     585        <UsageCount Value="39"/>
    582586        <Loaded Value="True"/>
    583587        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    602606        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
    603607        <UnitName Value="UHTTPServer"/>
    604         <EditorIndex Value="9"/>
    605         <WindowIndex Value="0"/>
    606         <TopLine Value="410"/>
    607         <CursorPos X="5" Y="31"/>
     608        <EditorIndex Value="13"/>
     609        <WindowIndex Value="0"/>
     610        <TopLine Value="196"/>
     611        <CursorPos X="1" Y="213"/>
    608612        <UsageCount Value="10"/>
    609613        <Loaded Value="True"/>
    … …  
    623627        <CursorPos X="23" Y="185"/>
    624628        <UsageCount Value="8"/>
     629        <DefaultSyntaxHighlighter Value="Delphi"/>
    625630      </Unit64>
    626631      <Unit65>
    … …  
    665670        <Filename Value="../../../lazarus/library/synapse/source/lib/cryptlib.pas"/>
    666671        <UnitName Value="cryptlib"/>
    667         <EditorIndex Value="5"/>
    668672        <WindowIndex Value="0"/>
    669673        <TopLine Value="1531"/>
    670674        <CursorPos X="1" Y="1545"/>
    671675        <UsageCount Value="13"/>
    672         <Loaded Value="True"/>
    673676      </Unit70>
    674677      <Unit71>
    … …  
    680683        <UsageCount Value="11"/>
    681684      </Unit71>
     685      <Unit72>
     686        <Filename Value="/usr/lib/lazarus/0.9.30/ide/lazconf.pp"/>
     687        <UnitName Value="LazConf"/>
     688        <WindowIndex Value="0"/>
     689        <TopLine Value="1"/>
     690        <CursorPos X="1" Y="1"/>
     691        <UsageCount Value="10"/>
     692        <DefaultSyntaxHighlighter Value="Delphi"/>
     693      </Unit72>
     694      <Unit73>
     695        <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/UCDWindowList.pas"/>
     696        <UnitName Value="UCDWindowList"/>
     697        <WindowIndex Value="0"/>
     698        <TopLine Value="10"/>
     699        <CursorPos X="54" Y="31"/>
     700        <UsageCount Value="10"/>
     701      </Unit73>
     702      <Unit74>
     703        <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/UCDClient.pas"/>
     704        <UnitName Value="UCDClient"/>
     705        <EditorIndex Value="7"/>
     706        <WindowIndex Value="0"/>
     707        <TopLine Value="1"/>
     708        <CursorPos X="42" Y="14"/>
     709        <UsageCount Value="10"/>
     710        <Loaded Value="True"/>
     711      </Unit74>
     712      <Unit75>
     713        <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/CoolDocking.pas"/>
     714        <UnitName Value="CoolDocking"/>
     715        <EditorIndex Value="9"/>
     716        <WindowIndex Value="0"/>
     717        <TopLine Value="1"/>
     718        <CursorPos X="1" Y="1"/>
     719        <UsageCount Value="10"/>
     720        <Loaded Value="True"/>
     721      </Unit75>
     722      <Unit76>
     723        <Filename Value="Modules/UMainModule.pas"/>
     724        <IsPartOfProject Value="True"/>
     725        <ComponentName Value="MainModule"/>
     726        <ResourceBaseClass Value="DataModule"/>
     727        <UnitName Value="UMainModule"/>
     728        <IsVisibleTab Value="True"/>
     729        <EditorIndex Value="5"/>
     730        <WindowIndex Value="0"/>
     731        <TopLine Value="1"/>
     732        <CursorPos X="23" Y="14"/>
     733        <UsageCount Value="21"/>
     734        <Loaded Value="True"/>
     735        <LoadedDesigner Value="True"/>
     736        <DefaultSyntaxHighlighter Value="Delphi"/>
     737      </Unit76>
     738      <Unit77>
     739        <Filename Value="../../../lazarus/lcl/interfaces/android/androidobject.inc"/>
     740        <WindowIndex Value="0"/>
     741        <TopLine Value="291"/>
     742        <CursorPos X="1" Y="1"/>
     743        <UsageCount Value="10"/>
     744      </Unit77>
     745      <Unit78>
     746        <Filename Value="../../../lazarus/packager/registration/registerfcl.pas"/>
     747        <UnitName Value="RegisterFCL"/>
     748        <WindowIndex Value="0"/>
     749        <TopLine Value="55"/>
     750        <CursorPos X="8" Y="80"/>
     751        <UsageCount Value="10"/>
     752      </Unit78>
     753      <Unit79>
     754        <Filename Value="../../../lazarus/packager/registration/lazaruspackageintf.pas"/>
     755        <UnitName Value="LazarusPackageIntf"/>
     756        <WindowIndex Value="0"/>
     757        <TopLine Value="59"/>
     758        <CursorPos X="10" Y="61"/>
     759        <UsageCount Value="10"/>
     760      </Unit79>
     761      <Unit80>
     762        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerTCP.pas"/>
     763        <UnitName Value="UHTTPServerTCP"/>
     764        <EditorIndex Value="4"/>
     765        <WindowIndex Value="0"/>
     766        <TopLine Value="10"/>
     767        <CursorPos X="1" Y="35"/>
     768        <UsageCount Value="10"/>
     769        <Loaded Value="True"/>
     770      </Unit80>
     771      <Unit81>
     772        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionFile.pas"/>
     773        <UnitName Value="UHTTPSessionFile"/>
     774        <WindowIndex Value="0"/>
     775        <TopLine Value="22"/>
     776        <CursorPos X="1" Y="43"/>
     777        <UsageCount Value="10"/>
     778      </Unit81>
     779      <Unit82>
     780        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas"/>
     781        <UnitName Value="UHTTPSessionMySQL"/>
     782        <WindowIndex Value="0"/>
     783        <TopLine Value="21"/>
     784        <CursorPos X="58" Y="42"/>
     785        <UsageCount Value="10"/>
     786      </Unit82>
     787      <Unit83>
     788        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebPage.pas"/>
     789        <UnitName Value="UWebPage"/>
     790        <EditorIndex Value="2"/>
     791        <WindowIndex Value="0"/>
     792        <TopLine Value="1"/>
     793        <CursorPos X="17" Y="16"/>
     794        <UsageCount Value="10"/>
     795        <Loaded Value="True"/>
     796      </Unit83>
    682797    </Units>
    683798    <JumpHistory Count="30" HistoryIndex="29">
    684799      <Position1>
    685         <Filename Value="Pages/UMainPage.pas"/>
    686         <Caret Line="368" Column="52" TopLine="344"/>
     800        <Filename Value="Modules/UMainModule.pas"/>
     801        <Caret Line="51" Column="20" TopLine="34"/>
    687802      </Position1>
    688803      <Position2>
    689         <Filename Value="Pages/UMainPage.pas"/>
    690         <Caret Line="391" Column="55" TopLine="367"/>
     804        <Filename Value="Modules/UMainModule.pas"/>
     805        <Caret Line="24" Column="3" TopLine="7"/>
    691806      </Position2>
    692807      <Position3>
    693         <Filename Value="Pages/UMainPage.pas"/>
    694         <Caret Line="416" Column="55" TopLine="392"/>
     808        <Filename Value="Modules/UMainModule.pas"/>
     809        <Caret Line="113" Column="8" TopLine="96"/>
    695810      </Position3>
    696811      <Position4>
    697         <Filename Value="Pages/UMainPage.pas"/>
    698         <Caret Line="419" Column="58" TopLine="395"/>
     812        <Filename Value="Modules/UMainModule.pas"/>
     813        <Caret Line="92" Column="23" TopLine="75"/>
    699814      </Position4>
    700815      <Position5>
    701         <Filename Value="Pages/UMainPage.pas"/>
    702         <Caret Line="422" Column="40" TopLine="398"/>
     816        <Filename Value="Modules/UMainModule.pas"/>
     817        <Caret Line="163" Column="25" TopLine="146"/>
    703818      </Position5>
    704819      <Position6>
    705         <Filename Value="Pages/UMainPage.pas"/>
    706         <Caret Line="424" Column="39" TopLine="400"/>
     820        <Filename Value="Modules/UMainModule.pas"/>
     821        <Caret Line="60" Column="44" TopLine="60"/>
    707822      </Position6>
    708823      <Position7>
    709         <Filename Value="Application/UCustomApplication.pas"/>
    710         <Caret Line="7" Column="62" TopLine="1"/>
     824        <Filename Value="Pages/UMainPage.pas"/>
     825        <Caret Line="25" Column="1" TopLine="1"/>
    711826      </Position7>
    712827      <Position8>
    713         <Filename Value="Application/UCustomApplication.pas"/>
    714         <Caret Line="72" Column="12" TopLine="48"/>
     828        <Filename Value="Pages/UMainPage.pas"/>
     829        <Caret Line="8" Column="54" TopLine="1"/>
    715830      </Position8>
    716831      <Position9>
    717         <Filename Value="Application/UCustomApplication.pas"/>
    718         <Caret Line="109" Column="26" TopLine="85"/>
     832        <Filename Value="Pages/UMainPage.pas"/>
     833        <Caret Line="23" Column="36" TopLine="1"/>
    719834      </Position9>
    720835      <Position10>
    721         <Filename Value="Application/UCustomApplication.pas"/>
    722         <Caret Line="110" Column="27" TopLine="86"/>
     836        <Filename Value="Pages/UMainPage.pas"/>
     837        <Caret Line="28" Column="34" TopLine="11"/>
    723838      </Position10>
    724839      <Position11>
    725         <Filename Value="Application/UCustomApplication.pas"/>
    726         <Caret Line="109" Column="26" TopLine="87"/>
     840        <Filename Value="Pages/UMainPage.pas"/>
     841        <Caret Line="30" Column="16" TopLine="13"/>
    727842      </Position11>
    728843      <Position12>
    729         <Filename Value="Application/UCustomApplication.pas"/>
    730         <Caret Line="110" Column="27" TopLine="87"/>
     844        <Filename Value="Pages/UMainPage.pas"/>
     845        <Caret Line="28" Column="11" TopLine="11"/>
    731846      </Position12>
    732847      <Position13>
    733         <Filename Value="Application/UCustomApplication.pas"/>
    734         <Caret Line="111" Column="27" TopLine="87"/>
     848        <Filename Value="Pages/UMainPage.pas"/>
     849        <Caret Line="11" Column="35" TopLine="11"/>
    735850      </Position13>
    736851      <Position14>
    737         <Filename Value="Application/UCustomApplication.pas"/>
    738         <Caret Line="123" Column="35" TopLine="99"/>
     852        <Filename Value="Pages/UMainPage.pas"/>
     853        <Caret Line="64" Column="37" TopLine="47"/>
    739854      </Position14>
    740855      <Position15>
    741         <Filename Value="Application/UCustomApplication.pas"/>
    742         <Caret Line="171" Column="65" TopLine="147"/>
     856        <Filename Value="Pages/UMainPage.pas"/>
     857        <Caret Line="23" Column="37" TopLine="12"/>
    743858      </Position15>
    744859      <Position16>
    745         <Filename Value="Application/UCustomApplication.pas"/>
    746         <Caret Line="176" Column="57" TopLine="150"/>
     860        <Filename Value="Pages/UMainPage.pas"/>
     861        <Caret Line="90" Column="35" TopLine="73"/>
    747862      </Position16>
    748863      <Position17>
    749         <Filename Value="Application/UCustomApplication.pas"/>
    750         <Caret Line="180" Column="49" TopLine="156"/>
     864        <Filename Value="Pages/UMainPage.pas"/>
     865        <Caret Line="127" Column="38" TopLine="110"/>
    751866      </Position17>
    752867      <Position18>
    753         <Filename Value="Application/UCustomApplication.pas"/>
    754         <Caret Line="182" Column="57" TopLine="158"/>
     868        <Filename Value="Pages/UMainPage.pas"/>
     869        <Caret Line="153" Column="36" TopLine="136"/>
    755870      </Position18>
    756871      <Position19>
    757         <Filename Value="Application/UCustomApplication.pas"/>
    758         <Caret Line="187" Column="51" TopLine="163"/>
     872        <Filename Value="Pages/UMainPage.pas"/>
     873        <Caret Line="199" Column="34" TopLine="182"/>
    759874      </Position19>
    760875      <Position20>
    761         <Filename Value="Application/UCustomApplication.pas"/>
    762         <Caret Line="189" Column="59" TopLine="165"/>
     876        <Filename Value="Pages/UMainPage.pas"/>
     877        <Caret Line="233" Column="37" TopLine="216"/>
    763878      </Position20>
    764879      <Position21>
    765         <Filename Value="Application/UCustomApplication.pas"/>
    766         <Caret Line="194" Column="51" TopLine="170"/>
     880        <Filename Value="Pages/UMainPage.pas"/>
     881        <Caret Line="297" Column="37" TopLine="280"/>
    767882      </Position21>
    768883      <Position22>
    769         <Filename Value="Application/UCustomApplication.pas"/>
    770         <Caret Line="196" Column="59" TopLine="172"/>
     884        <Filename Value="Pages/UMainPage.pas"/>
     885        <Caret Line="312" Column="35" TopLine="295"/>
    771886      </Position22>
    772887      <Position23>
    773         <Filename Value="Application/UCustomApplication.pas"/>
    774         <Caret Line="197" Column="73" TopLine="173"/>
     888        <Filename Value="Pages/UMainPage.pas"/>
     889        <Caret Line="364" Column="39" TopLine="347"/>
    775890      </Position23>
    776891      <Position24>
    777         <Filename Value="Application/UCustomApplication.pas"/>
    778         <Caret Line="224" Column="35" TopLine="200"/>
     892        <Filename Value="Pages/UMainPage.pas"/>
     893        <Caret Line="388" Column="37" TopLine="371"/>
    779894      </Position24>
    780895      <Position25>
    781         <Filename Value="Application/UCustomApplication.pas"/>
    782         <Caret Line="123" Column="27" TopLine="104"/>
     896        <Filename Value="Pages/UMainPage.pas"/>
     897        <Caret Line="406" Column="41" TopLine="389"/>
    783898      </Position25>
    784899      <Position26>
    785         <Filename Value="Application/UCustomApplication.pas"/>
    786         <Caret Line="125" Column="5" TopLine="104"/>
     900        <Filename Value="Application/UWebObjects.pas"/>
     901        <Caret Line="1" Column="1" TopLine="1"/>
    787902      </Position26>
    788903      <Position27>
    789         <Filename Value="Application/UCustomApplication.pas"/>
    790         <Caret Line="120" Column="17" TopLine="109"/>
     904        <Filename Value="CGI.lpr"/>
     905        <Caret Line="7" Column="14" TopLine="1"/>
    791906      </Position27>
    792907      <Position28>
    793908        <Filename Value="CGI.lpr"/>
    794         <Caret Line="18" Column="15" TopLine="9"/>
     909        <Caret Line="15" Column="13" TopLine="1"/>
    795910      </Position28>
    796911      <Position29>
    797         <Filename Value="Pages/UMainPage.pas"/>
    798         <Caret Line="419" Column="42" TopLine="417"/>
     912        <Filename Value="Modules/UMainModule.pas"/>
     913        <Caret Line="61" Column="55" TopLine="44"/>
    799914      </Position29>
    800915      <Position30>
    801         <Filename Value="Application/UCustomApplication.pas"/>
    802         <Caret Line="25" Column="55" TopLine="10"/>
     916        <Filename Value="Modules/UMainModule.pas"/>
     917        <Caret Line="15" Column="47" TopLine="1"/>
    803918      </Position30>
    804919    </JumpHistory>
    … …  
    810925    </Target>
    811926    <SearchPaths>
    812       <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Pages;Common;Application;WebServer;Network"/>
     927      <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Pages;Common;Application;WebServer;Network;Modules"/>
    813928      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    814929    </SearchPaths>
    … …  
    828943        <StackChecks Value="True"/>
    829944      </Checks>
     945      <VerifyObjMethodCallValidity Value="True"/>
    830946    </CodeGeneration>
    831947    <Other>

  • trunk/CGI.lpr

    r48 r50  
    55uses
    66  UCore, USqlDatabase, SysUtils, Contnrs,
    7   UMainPage, UCustomApplication, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
     7  UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
    88  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
    9   UMemoryStreamEx, UMIMEType, UPageList, Interfaces;
    10 
    11 var
    12   Application: TCustomApplication;
     9  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule;
    1310
    1411begin
    15   Application := TCustomApplication.Create;
    16   with Application do
     12  MainModule := TMainModule.Create(nil);
     13  with MainModule do
    1714  try
    1815    RegisterPage('internet', Internet);
    … …  
    2926    RegisterPage('sit', Network);
    3027    RegisterPage('', About);
    31     HTTPServer := THTTPServerCGI.Create;
    32     HTTPServer.OnRequest := Execute;
    3328    Run;
    3429  finally

  • trunk/Pages/UMainPage.pas

    r48 r50  
    66
    77uses
    8   Classes, SysUtils, USqlDatabase, UCore, UCustomApplication, UHtmlClasses,
     8  Classes, SysUtils, USqlDatabase, UCore, UMainModule, UHtmlClasses,
    99  UHTTPServer, UWebObjects;
    1010
    11 procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
    12 procedure History(App: TCustomApplication; HandlerData: THTTPHandlerData);
    13 procedure Internet(App: TCustomApplication; HandlerData: THTTPHandlerData);
    14 procedure VoIP(App: TCustomApplication; HandlerData: THTTPHandlerData);
    15 procedure Hosting(App: TCustomApplication; HandlerData: THTTPHandlerData);
    16 procedure About(App: TCustomApplication; HandlerData: THTTPHandlerData);
    17 procedure Documents(App: TCustomApplication; HandlerData: THTTPHandlerData);
    18 procedure Contact(App: TCustomApplication; HandlerData: THTTPHandlerData);
    19 procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
    20 procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
    21 procedure UserControl(App: TCustomApplication; HandlerData: THTTPHandlerData);
    22 procedure Plans(App: TCustomApplication; HandlerData: THTTPHandlerData);
    23 procedure Network(App: TCustomApplication; HandlerData: THTTPHandlerData);
     11procedure Links(App: TMainModule; HandlerData: THTTPHandlerData);
     12procedure History(App: TMainModule; HandlerData: THTTPHandlerData);
     13procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData);
     14procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData);
     15procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData);
     16procedure About(App: TMainModule; HandlerData: THTTPHandlerData);
     17procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData);
     18procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData);
     19procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData);
     20procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData);
     21procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData);
     22procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData);
     23procedure Network(App: TMainModule; HandlerData: THTTPHandlerData);
     24
    2425
    2526implementation
    2627
    27 procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
     28procedure Links(App: TMainModule; HandlerData: THTTPHandlerData);
    2829begin
    2930  App.HtmlDocument.Title := 'Odkazy';
    … …  
    6162end;
    6263
    63 procedure History(App: TCustomApplication; HandlerData: THTTPHandlerData);
     64procedure History(App: TMainModule; HandlerData: THTTPHandlerData);
    6465var
    6566  DbRows: TDbRows;
    … …  
    8788end;
    8889
    89 procedure Plans(App: TCustomApplication; HandlerData: THTTPHandlerData);
     90procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData);
    9091var
    9192  DbRows: TDbRows;
    … …  
    124125end;
    125126
    126 procedure Internet(App: TCustomApplication; HandlerData: THTTPHandlerData);
     127procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData);
    127128begin
    128129  with App do begin
    … …  
    150151end;
    151152
    152 procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
     153procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData);
    153154const
    154155  WebCamImage = 'images/webcam/webcam.jpg';
    … …  
    196197end;
    197198
    198 procedure VoIP(App: TCustomApplication; HandlerData: THTTPHandlerData);
     199procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData);
    199200begin
    200201  with App do begin
    … …  
    230231end;
    231232
    232 procedure Hosting(App: TCustomApplication; HandlerData: THTTPHandlerData);
     233procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData);
    233234var
    234235  I: Integer;
    … …  
    294295end;
    295296
    296 procedure Network(App: TCustomApplication; HandlerData: THTTPHandlerData);
     297procedure Network(App: TMainModule; HandlerData: THTTPHandlerData);
    297298var
    298299  TextBlock: THtmlString;
    … …  
    309310end;
    310311
    311 procedure About(App: TCustomApplication; HandlerData: THTTPHandlerData);
     312procedure About(App: TMainModule; HandlerData: THTTPHandlerData);
    312313var
    313314  TextBlock: THtmlString;
    … …  
    361362end;
    362363
    363 procedure Documents(App: TCustomApplication; HandlerData: THTTPHandlerData);
     364procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData);
    364365begin
    365366  with App do begin
    … …  
    385386end;
    386387
    387 procedure Contact(App: TCustomApplication; HandlerData: THTTPHandlerData);
     388procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData);
    388389begin
    389390  App.HtmlDocument.Title := 'Kontakt';
    … …  
    403404end;
    404405
    405 procedure UserControl(App: TCustomApplication; HandlerData: THTTPHandlerData);
     406procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData);
    406407var
    407408  PageName: string;
    … …  
    440441
    441442
    442 procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
     443procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData);
    443444begin
    444445  HandlerData.Session.Values['Test'] := 'Tst';
    445   App.HTTPServer.ServerInfo(HandlerData);
     446  MainModule.HTTPServer.ServerInfo(HandlerData);
    446447end;
    447448

  • trunk/TCPServer.lpi

    r44 r50  
    3333      </local>
    3434    </RunParams>
    35     <RequiredPackages Count="3">
     35    <RequiredPackages Count="4">
    3636      <Item1>
    37         <PackageName Value="TemplateGenerics"/>
     37        <PackageName Value="CoolWeb"/>
    3838      </Item1>
    3939      <Item2>
    40         <PackageName Value="LCL"/>
     40        <PackageName Value="TemplateGenerics"/>
    4141      </Item2>
    4242      <Item3>
     43        <PackageName Value="LCL"/>
     44      </Item3>
     45      <Item4>
    4346        <PackageName Value="synapse"/>
    44       </Item3>
     47      </Item4>
    4548    </RequiredPackages>
    4649    <Units Count="23">
    … …  
    4952        <IsPartOfProject Value="True"/>
    5053        <UnitName Value="TCPServer"/>
     54        <IsVisibleTab Value="True"/>
    5155        <EditorIndex Value="0"/>
    5256        <WindowIndex Value="0"/>
    5357        <TopLine Value="1"/>
    54         <CursorPos X="1" Y="1"/>
     58        <CursorPos X="57" Y="7"/>
    5559        <UsageCount Value="20"/>
    5660        <Loaded Value="True"/>
    … …  
    6165        <IsPartOfProject Value="True"/>
    6266        <UnitName Value="UCommon"/>
    63         <EditorIndex Value="5"/>
    6467        <WindowIndex Value="0"/>
    6568        <TopLine Value="1"/>
    6669        <CursorPos X="1" Y="1"/>
    6770        <UsageCount Value="20"/>
    68         <Loaded Value="True"/>
    6971        <DefaultSyntaxHighlighter Value="Delphi"/>
    7072      </Unit1>
    … …  
    8082      <Unit3>
    8183        <Filename Value="Common/UHtmlClasses.pas"/>
    82         <IsPartOfProject Value="True"/>
    8384        <UnitName Value="UHtmlClasses"/>
    8485        <UsageCount Value="20"/>
    … …  
    8788      <Unit4>
    8889        <Filename Value="Common/UMemoryStreamEx.pas"/>
    89         <IsPartOfProject Value="True"/>
    9090        <UnitName Value="UMemoryStreamEx"/>
    91         <EditorIndex Value="14"/>
    9291        <WindowIndex Value="0"/>
    9392        <TopLine Value="194"/>
    9493        <CursorPos X="20" Y="208"/>
    9594        <UsageCount Value="20"/>
    96         <Loaded Value="True"/>
    9795        <DefaultSyntaxHighlighter Value="Delphi"/>
    9896      </Unit4>
    9997      <Unit5>
    10098        <Filename Value="Common/UMIMEType.pas"/>
    101         <IsPartOfProject Value="True"/>
    10299        <UnitName Value="UMIMEType"/>
    103100        <UsageCount Value="20"/>
    … …  
    106103      <Unit6>
    107104        <Filename Value="Common/UPool.pas"/>
    108         <IsPartOfProject Value="True"/>
    109105        <UnitName Value="UPool"/>
    110         <EditorIndex Value="3"/>
    111106        <WindowIndex Value="0"/>
    112107        <TopLine Value="1"/>
    113108        <CursorPos X="32" Y="8"/>
    114109        <UsageCount Value="20"/>
    115         <Loaded Value="True"/>
    116110        <DefaultSyntaxHighlighter Value="Delphi"/>
    117111      </Unit6>
    118112      <Unit7>
    119113        <Filename Value="Common/UResetableThread.pas"/>
    120         <IsPartOfProject Value="True"/>
    121114        <UnitName Value="UResetableThread"/>
    122115        <UsageCount Value="20"/>
    … …  
    125118      <Unit8>
    126119        <Filename Value="Common/USqlDatabase.pas"/>
    127         <IsPartOfProject Value="True"/>
    128120        <UnitName Value="USqlDatabase"/>
    129         <EditorIndex Value="9"/>
    130121        <WindowIndex Value="0"/>
    131122        <TopLine Value="38"/>
    132123        <CursorPos X="15" Y="55"/>
    133124        <UsageCount Value="20"/>
    134         <Loaded Value="True"/>
    135125        <DefaultSyntaxHighlighter Value="Delphi"/>
    136126      </Unit8>
    … …  
    146136      <Unit10>
    147137        <Filename Value="Common/UXmlClasses.pas"/>
    148         <IsPartOfProject Value="True"/>
    149138        <UnitName Value="UXmlClasses"/>
    150         <EditorIndex Value="8"/>
    151139        <WindowIndex Value="0"/>
    152140        <TopLine Value="1"/>
    153141        <CursorPos X="1" Y="1"/>
    154142        <UsageCount Value="20"/>
    155         <Loaded Value="True"/>
    156143        <DefaultSyntaxHighlighter Value="Delphi"/>
    157144      </Unit10>
    … …  
    160147        <IsPartOfProject Value="True"/>
    161148        <UnitName Value="UCustomApplication"/>
    162         <EditorIndex Value="15"/>
     149        <EditorIndex Value="4"/>
    163150        <WindowIndex Value="0"/>
    164151        <TopLine Value="1"/>
    … …  
    170157      <Unit12>
    171158        <Filename Value="Application/UUser.pas"/>
    172         <IsPartOfProject Value="True"/>
    173159        <UnitName Value="UUser"/>
    174         <EditorIndex Value="4"/>
    175160        <WindowIndex Value="0"/>
    176161        <TopLine Value="35"/>
    177162        <CursorPos X="35" Y="55"/>
    178163        <UsageCount Value="20"/>
    179         <Loaded Value="True"/>
    180164        <DefaultSyntaxHighlighter Value="Delphi"/>
    181165      </Unit12>
    182166      <Unit13>
    183167        <Filename Value="Network/UTCPServer.pas"/>
    184         <IsPartOfProject Value="True"/>
    185168        <UnitName Value="UTCPServer"/>
    186         <EditorIndex Value="12"/>
    187169        <WindowIndex Value="0"/>
    188170        <TopLine Value="1"/>
    189171        <CursorPos X="3" Y="15"/>
    190172        <UsageCount Value="20"/>
    191         <Loaded Value="True"/>
    192173        <DefaultSyntaxHighlighter Value="Delphi"/>
    193174      </Unit13>
    … …  
    196177        <IsPartOfProject Value="True"/>
    197178        <UnitName Value="UMainPage"/>
    198         <IsVisibleTab Value="True"/>
    199179        <EditorIndex Value="2"/>
    200180        <WindowIndex Value="0"/>
    201181        <TopLine Value="1"/>
    202         <CursorPos X="42" Y="11"/>
     182        <CursorPos X="63" Y="19"/>
    203183        <UsageCount Value="20"/>
    204184        <Loaded Value="True"/>
    … …  
    207187      <Unit15>
    208188        <Filename Value="WebServer/UHTTPServer.pas"/>
    209         <IsPartOfProject Value="True"/>
    210189        <UnitName Value="UHTTPServer"/>
    211         <EditorIndex Value="13"/>
    212190        <WindowIndex Value="0"/>
    213191        <TopLine Value="1"/>
    214192        <CursorPos X="49" Y="8"/>
    215193        <UsageCount Value="20"/>
    216         <Loaded Value="True"/>
    217194        <DefaultSyntaxHighlighter Value="Delphi"/>
    218195      </Unit15>
    219196      <Unit16>
    220197        <Filename Value="WebServer/UHTTPServerCGI.pas"/>
    221         <IsPartOfProject Value="True"/>
    222198        <UnitName Value="UHTTPServerCGI"/>
    223199        <UsageCount Value="20"/>
    … …  
    226202      <Unit17>
    227203        <Filename Value="WebServer/UHTTPServerTCP.pas"/>
    228         <IsPartOfProject Value="True"/>
    229204        <UnitName Value="UHTTPServerTCP"/>
    230         <EditorIndex Value="11"/>
    231205        <WindowIndex Value="0"/>
    232206        <TopLine Value="1"/>
    233207        <CursorPos X="1" Y="1"/>
    234208        <UsageCount Value="20"/>
    235         <Loaded Value="True"/>
    236209        <DefaultSyntaxHighlighter Value="Delphi"/>
    237210      </Unit17>
    238211      <Unit18>
    239212        <Filename Value="WebServer/UHTTPSessionFile.pas"/>
    240         <IsPartOfProject Value="True"/>
    241213        <UnitName Value="UHTTPSessionFile"/>
    242214        <UsageCount Value="20"/>
    … …  
    245217      <Unit19>
    246218        <Filename Value="WebServer/UHTTPSessionMySQL.pas"/>
    247         <IsPartOfProject Value="True"/>
    248219        <UnitName Value="UHTTPSessionMySQL"/>
    249         <EditorIndex Value="10"/>
    250220        <WindowIndex Value="0"/>
    251221        <TopLine Value="1"/>
    252222        <CursorPos X="36" Y="8"/>
    253223        <UsageCount Value="20"/>
    254         <Loaded Value="True"/>
    255224        <DefaultSyntaxHighlighter Value="Delphi"/>
    256225      </Unit19>
    257226      <Unit20>
    258227        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    259         <EditorIndex Value="6"/>
     228        <EditorIndex Value="3"/>
    260229        <WindowIndex Value="0"/>
    261230        <TopLine Value="47"/>
    … …  
    267236        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedObjectList.pas"/>
    268237        <UnitName Value="SpecializedObjectList"/>
    269         <EditorIndex Value="7"/>
    270238        <WindowIndex Value="0"/>
    271239        <TopLine Value="1"/>
    272240        <CursorPos X="1" Y="26"/>
    273241        <UsageCount Value="10"/>
    274         <Loaded Value="True"/>
    275242      </Unit21>
    276243      <Unit22>
    … …  
    286253      </Unit22>
    287254    </Units>
    288     <JumpHistory Count="3" HistoryIndex="2">
     255    <JumpHistory Count="4" HistoryIndex="3">
    289256      <Position1>
    290257        <Filename Value="TCPServer.lpr"/>
    … …  
    299266        <Caret Line="1" Column="1" TopLine="1"/>
    300267      </Position3>
     268      <Position4>
     269        <Filename Value="TCPServer.lpr"/>
     270        <Caret Line="1" Column="1" TopLine="1"/>
     271      </Position4>
    301272    </JumpHistory>
    302273  </ProjectOptions>
    303274  <CompilerOptions>
    304     <Version Value="9"/>
     275    <Version Value="10"/>
    305276    <Target>
    306277      <Filename Value="TCPServer"/>

  • trunk/TCPServer.lpr

    r44 r50  
    55uses {$IFDEF UNIX} {$IFDEF UseCThreads}
    66  cthreads, {$ENDIF} {$ENDIF}
    7   Classes, SysUtils, UCustomApplication, UHtmlClasses,
    8   UTCPServer, UHTTPServer, UHTTPSessionFile,
    9   UHTTPSessionMySQL, UHTTPServerCGI, UHTTPServerTCP, UXmlClasses,
    10   UCommon, UMemoryStreamEx, UMIMEType, UPool,
    11   UResetableThread, USqlDatabase,
    12   UUser, UMainPage, TemplateGenerics, synapse;
     7  Classes, SysUtils, UCustomApplication, UHTTPServerTCP,
     8  UCommon, CoolWeb, UMainPage, TemplateGenerics, synapse;
    139
    1410//{$IFDEF WINDOWS}{$R LiftManagerWebServer.rc}{$ENDIF}

  • trunk/languages/index.cs.po

    r33 r50  
    3838msgstr ""
    3939
     40#: umainmodule.spagenotfound
     41msgctxt "umainmodule.spagenotfound"
     42msgid "Page not found"
     43msgstr "Stránka nenalezena"
     44
    4045#: usqldatabase.sdatabasequeryerror
    4146msgid "Database query error: \"%s\""

  • trunk/languages/index.po

    r33 r50  
    3030msgstr ""
    3131
     32#: umainmodule.spagenotfound
     33msgctxt "umainmodule.spagenotfound"
     34msgid "Page not found"
     35msgstr ""
     36
    3237#: usqldatabase.sdatabasequeryerror
    3338msgid "Database query error: \"%s\""
Note: See TracChangeset for help on using the changeset viewer.