Changeset 51
- Timestamp:
- Apr 30, 2011, 11:44:14 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/CGI.lpi
r50 r51 50 50 </Item3> 51 51 </RequiredPackages> 52 <Units Count="8 4">52 <Units Count="85"> 53 53 <Unit0> 54 54 <Filename Value="CGI.lpr"/> … … 93 93 <IsPartOfProject Value="True"/> 94 94 <UnitName Value="UCore"/> 95 <EditorIndex Value="1 0"/>95 <EditorIndex Value="12"/> 96 96 <WindowIndex Value="0"/> 97 97 <TopLine Value="1"/> … … 166 166 <IsPartOfProject Value="True"/> 167 167 <UnitName Value="UConfig"/> 168 <EditorIndex Value=" 8"/>168 <EditorIndex Value="10"/> 169 169 <WindowIndex Value="0"/> 170 170 <TopLine Value="7"/> … … 536 536 <TopLine Value="1"/> 537 537 <CursorPos X="32" Y="10"/> 538 <UsageCount Value="1 1"/>538 <UsageCount Value="12"/> 539 539 <Loaded Value="True"/> 540 540 </Unit54> … … 558 558 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/> 559 559 <UnitName Value="UXmlClasses"/> 560 <EditorIndex Value="1 1"/>560 <EditorIndex Value="13"/> 561 561 <WindowIndex Value="0"/> 562 562 <TopLine Value="144"/> 563 563 <CursorPos X="2" Y="26"/> 564 <UsageCount Value="2 0"/>564 <UsageCount Value="21"/> 565 565 <Loaded Value="True"/> 566 566 </Unit57> … … 568 568 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/> 569 569 <UnitName Value="UHtmlClasses"/> 570 <EditorIndex Value="1 2"/>570 <EditorIndex Value="14"/> 571 571 <WindowIndex Value="0"/> 572 572 <TopLine Value="731"/> 573 573 <CursorPos X="38" Y="434"/> 574 <UsageCount Value="2 1"/>574 <UsageCount Value="22"/> 575 575 <Loaded Value="True"/> 576 576 </Unit58> … … 579 579 <IsPartOfProject Value="True"/> 580 580 <UnitName Value="UWebObjects"/> 581 <EditorIndex Value=" 6"/>581 <EditorIndex Value="8"/> 582 582 <WindowIndex Value="0"/> 583 583 <TopLine Value="1"/> 584 584 <CursorPos X="1" Y="1"/> 585 <UsageCount Value=" 39"/>585 <UsageCount Value="41"/> 586 586 <Loaded Value="True"/> 587 587 <DefaultSyntaxHighlighter Value="Delphi"/> … … 606 606 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/> 607 607 <UnitName Value="UHTTPServer"/> 608 <EditorIndex Value="1 3"/>609 <WindowIndex Value="0"/> 610 <TopLine Value=" 196"/>611 <CursorPos X="1 " Y="213"/>612 <UsageCount Value="1 0"/>608 <EditorIndex Value="15"/> 609 <WindowIndex Value="0"/> 610 <TopLine Value="82"/> 611 <CursorPos X="15" Y="98"/> 612 <UsageCount Value="11"/> 613 613 <Loaded Value="True"/> 614 614 </Unit62> … … 703 703 <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/UCDClient.pas"/> 704 704 <UnitName Value="UCDClient"/> 705 <EditorIndex Value=" 7"/>705 <EditorIndex Value="9"/> 706 706 <WindowIndex Value="0"/> 707 707 <TopLine Value="1"/> 708 708 <CursorPos X="42" Y="14"/> 709 <UsageCount Value="1 0"/>709 <UsageCount Value="11"/> 710 710 <Loaded Value="True"/> 711 711 </Unit74> … … 713 713 <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/CoolDocking.pas"/> 714 714 <UnitName Value="CoolDocking"/> 715 <EditorIndex Value=" 9"/>715 <EditorIndex Value="11"/> 716 716 <WindowIndex Value="0"/> 717 717 <TopLine Value="1"/> 718 718 <CursorPos X="1" Y="1"/> 719 <UsageCount Value="1 0"/>719 <UsageCount Value="11"/> 720 720 <Loaded Value="True"/> 721 721 </Unit75> … … 729 729 <EditorIndex Value="5"/> 730 730 <WindowIndex Value="0"/> 731 <TopLine Value="1 "/>732 <CursorPos X=" 23" Y="14"/>733 <UsageCount Value="2 1"/>731 <TopLine Value="163"/> 732 <CursorPos X="1" Y="177"/> 733 <UsageCount Value="23"/> 734 734 <Loaded Value="True"/> 735 735 <LoadedDesigner Value="True"/> … … 766 766 <TopLine Value="10"/> 767 767 <CursorPos X="1" Y="35"/> 768 <UsageCount Value="1 0"/>768 <UsageCount Value="11"/> 769 769 <Loaded Value="True"/> 770 770 </Unit80> … … 780 780 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas"/> 781 781 <UnitName Value="UHTTPSessionMySQL"/> 782 <WindowIndex Value="0"/> 783 <TopLine Value="21"/> 784 <CursorPos X="58" Y="42"/> 782 <EditorIndex Value="6"/> 783 <WindowIndex Value="0"/> 784 <TopLine Value="2"/> 785 <CursorPos X="14" Y="19"/> 785 786 <UsageCount Value="10"/> 787 <Loaded Value="True"/> 786 788 </Unit82> 787 789 <Unit83> … … 791 793 <WindowIndex Value="0"/> 792 794 <TopLine Value="1"/> 793 <CursorPos X=" 17" Y="16"/>794 <UsageCount Value="1 0"/>795 <CursorPos X="28" Y="10"/> 796 <UsageCount Value="11"/> 795 797 <Loaded Value="True"/> 796 798 </Unit83> 799 <Unit84> 800 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 801 <UnitName Value="USqlDatabase"/> 802 <EditorIndex Value="7"/> 803 <WindowIndex Value="0"/> 804 <TopLine Value="215"/> 805 <CursorPos X="69" Y="223"/> 806 <UsageCount Value="11"/> 807 <Loaded Value="True"/> 808 </Unit84> 797 809 </Units> 798 810 <JumpHistory Count="30" HistoryIndex="29"> 799 811 <Position1> 800 <Filename Value=" Modules/UMainModule.pas"/>801 <Caret Line="5 1" Column="20" TopLine="34"/>812 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 813 <Caret Line="55" Column="28" TopLine="38"/> 802 814 </Position1> 803 815 <Position2> 804 <Filename Value=" Modules/UMainModule.pas"/>805 <Caret Line=" 24" Column="3" TopLine="7"/>816 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 817 <Caret Line="56" Column="28" TopLine="38"/> 806 818 </Position2> 807 819 <Position3> 808 <Filename Value=" Modules/UMainModule.pas"/>809 <Caret Line=" 113" Column="8" TopLine="96"/>820 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 821 <Caret Line="57" Column="28" TopLine="38"/> 810 822 </Position3> 811 823 <Position4> 812 <Filename Value=" Modules/UMainModule.pas"/>813 <Caret Line=" 92" Column="23" TopLine="75"/>824 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 825 <Caret Line="58" Column="29" TopLine="38"/> 814 826 </Position4> 815 827 <Position5> 816 <Filename Value=" Modules/UMainModule.pas"/>817 <Caret Line=" 163" Column="25" TopLine="146"/>828 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 829 <Caret Line="89" Column="63" TopLine="61"/> 818 830 </Position5> 819 831 <Position6> 820 <Filename Value=" Modules/UMainModule.pas"/>821 <Caret Line=" 60" Column="44" TopLine="60"/>832 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 833 <Caret Line="179" Column="37" TopLine="151"/> 822 834 </Position6> 823 835 <Position7> 824 <Filename Value=" Pages/UMainPage.pas"/>825 <Caret Line=" 25" Column="1" TopLine="1"/>836 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 837 <Caret Line="187" Column="18" TopLine="159"/> 826 838 </Position7> 827 839 <Position8> 828 <Filename Value=" Pages/UMainPage.pas"/>829 <Caret Line=" 8" Column="54" TopLine="1"/>840 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 841 <Caret Line="201" Column="45" TopLine="173"/> 830 842 </Position8> 831 843 <Position9> 832 <Filename Value=" Pages/UMainPage.pas"/>833 <Caret Line="23 " Column="36" TopLine="1"/>844 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 845 <Caret Line="238" Column="38" TopLine="210"/> 834 846 </Position9> 835 847 <Position10> 836 <Filename Value=" Pages/UMainPage.pas"/>837 <Caret Line="2 8" Column="34" TopLine="11"/>848 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 849 <Caret Line="246" Column="18" TopLine="218"/> 838 850 </Position10> 839 851 <Position11> 840 <Filename Value=" Pages/UMainPage.pas"/>841 <Caret Line=" 30" Column="16" TopLine="13"/>852 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 853 <Caret Line="260" Column="46" TopLine="232"/> 842 854 </Position11> 843 855 <Position12> 844 <Filename Value=" Pages/UMainPage.pas"/>845 <Caret Line="2 8" Column="11" TopLine="11"/>856 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 857 <Caret Line="266" Column="54" TopLine="238"/> 846 858 </Position12> 847 859 <Position13> 848 <Filename Value=" Pages/UMainPage.pas"/>849 <Caret Line=" 11" Column="35" TopLine="11"/>860 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 861 <Caret Line="268" Column="18" TopLine="240"/> 850 862 </Position13> 851 863 <Position14> 852 <Filename Value=" Pages/UMainPage.pas"/>853 <Caret Line=" 64" Column="37" TopLine="47"/>864 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 865 <Caret Line="269" Column="56" TopLine="241"/> 854 866 </Position14> 855 867 <Position15> 856 <Filename Value=" Pages/UMainPage.pas"/>857 <Caret Line="2 3" Column="37" TopLine="12"/>868 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 869 <Caret Line="272" Column="37" TopLine="244"/> 858 870 </Position15> 859 871 <Position16> 860 <Filename Value=" Pages/UMainPage.pas"/>861 <Caret Line=" 90" Column="35" TopLine="73"/>872 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 873 <Caret Line="279" Column="18" TopLine="251"/> 862 874 </Position16> 863 875 <Position17> 864 <Filename Value=" Pages/UMainPage.pas"/>865 <Caret Line=" 127" Column="38" TopLine="110"/>876 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 877 <Caret Line="290" Column="40" TopLine="262"/> 866 878 </Position17> 867 879 <Position18> 868 <Filename Value=" Pages/UMainPage.pas"/>869 <Caret Line=" 153" Column="36" TopLine="136"/>880 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 881 <Caret Line="301" Column="37" TopLine="273"/> 870 882 </Position18> 871 883 <Position19> 872 <Filename Value=" Pages/UMainPage.pas"/>873 <Caret Line=" 199" Column="34" TopLine="182"/>884 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 885 <Caret Line="305" Column="18" TopLine="277"/> 874 886 </Position19> 875 887 <Position20> 876 <Filename Value=" Pages/UMainPage.pas"/>877 <Caret Line=" 233" Column="37" TopLine="216"/>888 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 889 <Caret Line="308" Column="45" TopLine="280"/> 878 890 </Position20> 879 891 <Position21> 880 <Filename Value=" Pages/UMainPage.pas"/>881 <Caret Line=" 297" Column="37" TopLine="280"/>892 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 893 <Caret Line="365" Column="35" TopLine="337"/> 882 894 </Position21> 883 895 <Position22> 884 <Filename Value=" Pages/UMainPage.pas"/>885 <Caret Line="3 12" Column="35" TopLine="295"/>896 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 897 <Caret Line="371" Column="32" TopLine="343"/> 886 898 </Position22> 887 899 <Position23> 888 <Filename Value=" Pages/UMainPage.pas"/>889 <Caret Line="3 64" Column="39" TopLine="347"/>900 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 901 <Caret Line="378" Column="42" TopLine="350"/> 890 902 </Position23> 891 903 <Position24> 892 <Filename Value=" Pages/UMainPage.pas"/>893 <Caret Line=" 388" Column="37" TopLine="371"/>904 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 905 <Caret Line="63" Column="41" TopLine="37"/> 894 906 </Position24> 895 907 <Position25> 896 <Filename Value=" Pages/UMainPage.pas"/>897 <Caret Line=" 406" Column="41" TopLine="389"/>908 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 909 <Caret Line="60" Column="46" TopLine="37"/> 898 910 </Position25> 899 911 <Position26> 900 <Filename Value=" Application/UWebObjects.pas"/>901 <Caret Line=" 1" Column="1" TopLine="1"/>912 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 913 <Caret Line="71" Column="70" TopLine="43"/> 902 914 </Position26> 903 915 <Position27> 904 <Filename Value=" CGI.lpr"/>905 <Caret Line=" 7" Column="14" TopLine="1"/>916 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/> 917 <Caret Line="51" Column="7" TopLine="48"/> 906 918 </Position27> 907 919 <Position28> 908 <Filename Value=" CGI.lpr"/>909 <Caret Line="1 5" Column="13" TopLine="1"/>920 <Filename Value="Modules/UMainModule.pas"/> 921 <Caret Line="166" Column="39" TopLine="149"/> 910 922 </Position28> 911 923 <Position29> 912 <Filename Value=" Modules/UMainModule.pas"/>913 <Caret Line=" 61" Column="55" TopLine="44"/>924 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas"/> 925 <Caret Line="31" Column="44" TopLine="14"/> 914 926 </Position29> 915 927 <Position30> 916 928 <Filename Value="Modules/UMainModule.pas"/> 917 <Caret Line=" 15" Column="47" TopLine="1"/>929 <Caret Line="54" Column="1" TopLine="22"/> 918 930 </Position30> 919 931 </JumpHistory> -
trunk/Modules/UMainModule.lfm
r50 r51 14 14 end 15 15 object HTTPSessionStorageMySQL1: THTTPSessionStorageMySQL 16 Database = Database 16 17 Timeout = 10800 17 18 SessionIdCookieName = 'SessionId' … … 19 20 top = 31 20 21 end 22 object Database: TSqlDatabase 23 Connected = False 24 Encoding = 'utf8' 25 left = 81 26 top = 86 27 end 21 28 end -
trunk/Modules/UMainModule.lrs
r50 r51 7 7 +'./'#14'SessionStorage'#7#24'HTTPSessionStorageMySQL1'#9'OnRequest'#7#17'HTT' 8 8 +'PServerRequest'#4'left'#2'Q'#3'top'#2' '#0#0#24'THTTPSessionStorageMySQL'#24 9 +'HTTPSessionStorageMySQL1'#7'Timeout'#3'0*'#19'SessionIdCookieName'#6#9'Sess' 10 +'ionId'#4'left'#3'8'#1#3'top'#2#31#0#0#0 9 +'HTTPSessionStorageMySQL1'#8'Database'#7#8'Database'#7'Timeout'#3'0*'#19'Ses' 10 +'sionIdCookieName'#6#9'SessionId'#4'left'#3'8'#1#3'top'#2#31#0#0#12'TSqlData' 11 +'base'#8'Database'#9'Connected'#8#8'Encoding'#6#4'utf8'#4'left'#2'Q'#3'top'#2 12 +'V'#0#0#0 11 13 ]); -
trunk/Modules/UMainModule.pas
r50 r51 32 32 HTTPServer: THTTPServerCGI; 33 33 HTTPSessionStorageMySQL1: THTTPSessionStorageMySQL; 34 Database: TSqlDatabase; 34 35 procedure HTTPServerRequest(HandlerData: THTTPHandlerData); 35 36 private … … 51 52 HtmlDocument: THtmlDocument; 52 53 Pages: TRegistredPageList; 53 Database: TSqlDatabase;54 54 PageName: string; 55 55 ModuleName: string; … … 164 164 begin 165 165 inherited; 166 Database := TSqlDatabase.Create;167 166 Pages := TRegistredPageList.Create; 168 167 HtmlDocument := THtmlDocument.Create; … … 176 175 begin 177 176 HtmlDocument.Free; 178 Database.Free;179 177 Pages.Free; 180 178 User.Free; … … 291 289 MainModule.HTTPServer.ShowExceptions := Config.ShowException; 292 290 //Database.Query('SELECT * FROM ssss'); 293 THTTPSessionStorageMySQL(MainModule.HTTPServer.SessionStorage).SqlDatabase := Database;294 291 MainModule.HTTPServer.Run; 295 292 end;
Note:
See TracChangeset
for help on using the changeset viewer.