Changeset 50
- Timestamp:
- Apr 30, 2011, 10:56:05 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 4 added
- 1 deleted
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/CGI.lpi
r49 r50 39 39 </local> 40 40 </RunParams> 41 <RequiredPackages Count=" 4">41 <RequiredPackages Count="3"> 42 42 <Item1> 43 <PackageName Value="LCL Base"/>43 <PackageName Value="LCL"/> 44 44 </Item1> 45 45 <Item2> 46 <PackageName Value=" LCL"/>46 <PackageName Value="CoolWeb"/> 47 47 </Item2> 48 48 <Item3> 49 <PackageName Value=" CoolWeb"/>49 <PackageName Value="TemplateGenerics"/> 50 50 </Item3> 51 <Item4>52 <PackageName Value="TemplateGenerics"/>53 </Item4>54 51 </RequiredPackages> 55 <Units Count=" 72">52 <Units Count="84"> 56 53 <Unit0> 57 54 <Filename Value="CGI.lpr"/> 58 55 <IsPartOfProject Value="True"/> 59 56 <UnitName Value="CGI"/> 60 <EditorIndex Value=" 3"/>61 <WindowIndex Value="0"/> 62 <TopLine Value=" 9"/>63 <CursorPos X="1 5" Y="18"/>57 <EditorIndex Value="1"/> 58 <WindowIndex Value="0"/> 59 <TopLine Value="1"/> 60 <CursorPos X="13" Y="15"/> 64 61 <UsageCount Value="203"/> 65 62 <Loaded Value="True"/> … … 73 70 <WindowIndex Value="0"/> 74 71 <TopLine Value="417"/> 75 <CursorPos X="4 2" Y="419"/>72 <CursorPos X="47" Y="432"/> 76 73 <UsageCount Value="200"/> 77 74 <Loaded Value="True"/> … … 96 93 <IsPartOfProject Value="True"/> 97 94 <UnitName Value="UCore"/> 98 <EditorIndex Value=" 6"/>95 <EditorIndex Value="10"/> 99 96 <WindowIndex Value="0"/> 100 97 <TopLine Value="1"/> … … 163 160 <CursorPos X="10" Y="110"/> 164 161 <UsageCount Value="60"/> 162 <DefaultSyntaxHighlighter Value="Delphi"/> 165 163 </Unit11> 166 164 <Unit12> … … 168 166 <IsPartOfProject Value="True"/> 169 167 <UnitName Value="UConfig"/> 168 <EditorIndex Value="8"/> 170 169 <WindowIndex Value="0"/> 171 170 <TopLine Value="7"/> 172 <CursorPos X=" 76" Y="8"/>171 <CursorPos X="41" Y="24"/> 173 172 <UsageCount Value="294"/> 173 <Loaded Value="True"/> 174 174 <DefaultSyntaxHighlighter Value="Delphi"/> 175 175 </Unit12> … … 228 228 <Unit19> 229 229 <Filename Value="/usr/share/fpcsrc/rtl/objpas/classes/classesh.inc"/> 230 <EditorIndex Value="2"/>231 230 <WindowIndex Value="0"/> 232 231 <TopLine Value="677"/> 233 232 <CursorPos X="14" Y="691"/> 234 233 <UsageCount Value="62"/> 235 < Loaded Value="True"/>234 <DefaultSyntaxHighlighter Value="Delphi"/> 236 235 </Unit19> 237 236 <Unit20> … … 241 240 <CursorPos X="22" Y="23"/> 242 241 <UsageCount Value="61"/> 242 <DefaultSyntaxHighlighter Value="Delphi"/> 243 243 </Unit20> 244 244 <Unit21> … … 249 249 <CursorPos X="26" Y="1143"/> 250 250 <UsageCount Value="61"/> 251 <DefaultSyntaxHighlighter Value="Delphi"/> 251 252 </Unit21> 252 253 <Unit22> … … 256 257 <CursorPos X="5" Y="61"/> 257 258 <UsageCount Value="61"/> 259 <DefaultSyntaxHighlighter Value="Delphi"/> 258 260 </Unit22> 259 261 <Unit23> … … 263 265 <CursorPos X="10" Y="63"/> 264 266 <UsageCount Value="61"/> 267 <DefaultSyntaxHighlighter Value="Delphi"/> 265 268 </Unit23> 266 269 <Unit24> … … 333 336 <CursorPos X="14" Y="78"/> 334 337 <UsageCount Value="60"/> 338 <DefaultSyntaxHighlighter Value="Delphi"/> 335 339 </Unit31> 336 340 <Unit32> … … 340 344 <CursorPos X="23" Y="526"/> 341 345 <UsageCount Value="56"/> 346 <DefaultSyntaxHighlighter Value="Delphi"/> 342 347 </Unit32> 343 348 <Unit33> … … 469 474 <Unit47> 470 475 <Filename Value="Application/UCustomApplication.pas"/> 471 <IsPartOfProject Value="True"/>472 476 <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"/> 478 480 <UsageCount Value="339"/> 479 <Loaded Value="True"/>480 481 <DefaultSyntaxHighlighter Value="Delphi"/> 481 482 </Unit47> … … 486 487 <CursorPos X="3" Y="695"/> 487 488 <UsageCount Value="41"/> 489 <DefaultSyntaxHighlighter Value="Delphi"/> 488 490 </Unit48> 489 491 <Unit49> … … 530 532 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/> 531 533 <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"/> 535 538 <UsageCount Value="11"/> 539 <Loaded Value="True"/> 536 540 </Unit54> 537 541 <Unit55> … … 554 558 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/> 555 559 <UnitName Value="UXmlClasses"/> 556 <EditorIndex Value=" 7"/>560 <EditorIndex Value="11"/> 557 561 <WindowIndex Value="0"/> 558 562 <TopLine Value="144"/> … … 564 568 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/> 565 569 <UnitName Value="UHtmlClasses"/> 566 <EditorIndex Value=" 8"/>567 <WindowIndex Value="0"/> 568 <TopLine Value="7 44"/>570 <EditorIndex Value="12"/> 571 <WindowIndex Value="0"/> 572 <TopLine Value="731"/> 569 573 <CursorPos X="38" Y="434"/> 570 574 <UsageCount Value="21"/> … … 575 579 <IsPartOfProject Value="True"/> 576 580 <UnitName Value="UWebObjects"/> 577 <EditorIndex Value=" 4"/>578 <WindowIndex Value="0"/> 579 <TopLine Value=" 30"/>580 <CursorPos X=" 3" Y="44"/>581 <UsageCount Value="3 6"/>581 <EditorIndex Value="6"/> 582 <WindowIndex Value="0"/> 583 <TopLine Value="1"/> 584 <CursorPos X="1" Y="1"/> 585 <UsageCount Value="39"/> 582 586 <Loaded Value="True"/> 583 587 <DefaultSyntaxHighlighter Value="Delphi"/> … … 602 606 <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/> 603 607 <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"/> 608 612 <UsageCount Value="10"/> 609 613 <Loaded Value="True"/> … … 623 627 <CursorPos X="23" Y="185"/> 624 628 <UsageCount Value="8"/> 629 <DefaultSyntaxHighlighter Value="Delphi"/> 625 630 </Unit64> 626 631 <Unit65> … … 665 670 <Filename Value="../../../lazarus/library/synapse/source/lib/cryptlib.pas"/> 666 671 <UnitName Value="cryptlib"/> 667 <EditorIndex Value="5"/>668 672 <WindowIndex Value="0"/> 669 673 <TopLine Value="1531"/> 670 674 <CursorPos X="1" Y="1545"/> 671 675 <UsageCount Value="13"/> 672 <Loaded Value="True"/>673 676 </Unit70> 674 677 <Unit71> … … 680 683 <UsageCount Value="11"/> 681 684 </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> 682 797 </Units> 683 798 <JumpHistory Count="30" HistoryIndex="29"> 684 799 <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"/> 687 802 </Position1> 688 803 <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"/> 691 806 </Position2> 692 807 <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"/> 695 810 </Position3> 696 811 <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"/> 699 814 </Position4> 700 815 <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"/> 703 818 </Position5> 704 819 <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"/> 707 822 </Position6> 708 823 <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"/> 711 826 </Position7> 712 827 <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"/> 715 830 </Position8> 716 831 <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"/> 719 834 </Position9> 720 835 <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"/> 723 838 </Position10> 724 839 <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"/> 727 842 </Position11> 728 843 <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"/> 731 846 </Position12> 732 847 <Position13> 733 <Filename Value=" Application/UCustomApplication.pas"/>734 <Caret Line="11 1" Column="27" TopLine="87"/>848 <Filename Value="Pages/UMainPage.pas"/> 849 <Caret Line="11" Column="35" TopLine="11"/> 735 850 </Position13> 736 851 <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"/> 739 854 </Position14> 740 855 <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"/> 743 858 </Position15> 744 859 <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"/> 747 862 </Position16> 748 863 <Position17> 749 <Filename Value=" Application/UCustomApplication.pas"/>750 <Caret Line="1 80" Column="49" TopLine="156"/>864 <Filename Value="Pages/UMainPage.pas"/> 865 <Caret Line="127" Column="38" TopLine="110"/> 751 866 </Position17> 752 867 <Position18> 753 <Filename Value=" Application/UCustomApplication.pas"/>754 <Caret Line="1 82" Column="57" TopLine="158"/>868 <Filename Value="Pages/UMainPage.pas"/> 869 <Caret Line="153" Column="36" TopLine="136"/> 755 870 </Position18> 756 871 <Position19> 757 <Filename Value=" Application/UCustomApplication.pas"/>758 <Caret Line="1 87" Column="51" TopLine="163"/>872 <Filename Value="Pages/UMainPage.pas"/> 873 <Caret Line="199" Column="34" TopLine="182"/> 759 874 </Position19> 760 875 <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"/> 763 878 </Position20> 764 879 <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"/> 767 882 </Position21> 768 883 <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"/> 771 886 </Position22> 772 887 <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"/> 775 890 </Position23> 776 891 <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"/> 779 894 </Position24> 780 895 <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"/> 783 898 </Position25> 784 899 <Position26> 785 <Filename Value="Application/U CustomApplication.pas"/>786 <Caret Line="1 25" Column="5" TopLine="104"/>900 <Filename Value="Application/UWebObjects.pas"/> 901 <Caret Line="1" Column="1" TopLine="1"/> 787 902 </Position26> 788 903 <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"/> 791 906 </Position27> 792 907 <Position28> 793 908 <Filename Value="CGI.lpr"/> 794 <Caret Line="1 8" Column="15" TopLine="9"/>909 <Caret Line="15" Column="13" TopLine="1"/> 795 910 </Position28> 796 911 <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"/> 799 914 </Position29> 800 915 <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"/> 803 918 </Position30> 804 919 </JumpHistory> … … 810 925 </Target> 811 926 <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"/> 813 928 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 814 929 </SearchPaths> … … 828 943 <StackChecks Value="True"/> 829 944 </Checks> 945 <VerifyObjMethodCallValidity Value="True"/> 830 946 </CodeGeneration> 831 947 <Other> -
trunk/CGI.lpr
r48 r50 5 5 uses 6 6 UCore, USqlDatabase, SysUtils, Contnrs, 7 UMainPage, U CustomApplication, UUser, UHTTPSessionMySQL, UHTTPSessionFile,7 UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, 8 8 UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool, 9 UMemoryStreamEx, UMIMEType, UPageList, Interfaces; 10 11 var 12 Application: TCustomApplication; 9 UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule; 13 10 14 11 begin 15 Application := TCustomApplication.Create;16 with Applicationdo12 MainModule := TMainModule.Create(nil); 13 with MainModule do 17 14 try 18 15 RegisterPage('internet', Internet); … … 29 26 RegisterPage('sit', Network); 30 27 RegisterPage('', About); 31 HTTPServer := THTTPServerCGI.Create;32 HTTPServer.OnRequest := Execute;33 28 Run; 34 29 finally -
trunk/Pages/UMainPage.pas
r48 r50 6 6 7 7 uses 8 Classes, SysUtils, USqlDatabase, UCore, U CustomApplication, UHtmlClasses,8 Classes, SysUtils, USqlDatabase, UCore, UMainModule, UHtmlClasses, 9 9 UHTTPServer, UWebObjects; 10 10 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); 11 procedure Links(App: TMainModule; HandlerData: THTTPHandlerData); 12 procedure History(App: TMainModule; HandlerData: THTTPHandlerData); 13 procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData); 14 procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData); 15 procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData); 16 procedure About(App: TMainModule; HandlerData: THTTPHandlerData); 17 procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData); 18 procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData); 19 procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData); 20 procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData); 21 procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData); 22 procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData); 23 procedure Network(App: TMainModule; HandlerData: THTTPHandlerData); 24 24 25 25 26 implementation 26 27 27 procedure Links(App: T CustomApplication; HandlerData: THTTPHandlerData);28 procedure Links(App: TMainModule; HandlerData: THTTPHandlerData); 28 29 begin 29 30 App.HtmlDocument.Title := 'Odkazy'; … … 61 62 end; 62 63 63 procedure History(App: T CustomApplication; HandlerData: THTTPHandlerData);64 procedure History(App: TMainModule; HandlerData: THTTPHandlerData); 64 65 var 65 66 DbRows: TDbRows; … … 87 88 end; 88 89 89 procedure Plans(App: T CustomApplication; HandlerData: THTTPHandlerData);90 procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData); 90 91 var 91 92 DbRows: TDbRows; … … 124 125 end; 125 126 126 procedure Internet(App: T CustomApplication; HandlerData: THTTPHandlerData);127 procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData); 127 128 begin 128 129 with App do begin … … 150 151 end; 151 152 152 procedure WebCam(App: T CustomApplication; HandlerData: THTTPHandlerData);153 procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData); 153 154 const 154 155 WebCamImage = 'images/webcam/webcam.jpg'; … … 196 197 end; 197 198 198 procedure VoIP(App: T CustomApplication; HandlerData: THTTPHandlerData);199 procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData); 199 200 begin 200 201 with App do begin … … 230 231 end; 231 232 232 procedure Hosting(App: T CustomApplication; HandlerData: THTTPHandlerData);233 procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData); 233 234 var 234 235 I: Integer; … … 294 295 end; 295 296 296 procedure Network(App: T CustomApplication; HandlerData: THTTPHandlerData);297 procedure Network(App: TMainModule; HandlerData: THTTPHandlerData); 297 298 var 298 299 TextBlock: THtmlString; … … 309 310 end; 310 311 311 procedure About(App: T CustomApplication; HandlerData: THTTPHandlerData);312 procedure About(App: TMainModule; HandlerData: THTTPHandlerData); 312 313 var 313 314 TextBlock: THtmlString; … … 361 362 end; 362 363 363 procedure Documents(App: T CustomApplication; HandlerData: THTTPHandlerData);364 procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData); 364 365 begin 365 366 with App do begin … … 385 386 end; 386 387 387 procedure Contact(App: T CustomApplication; HandlerData: THTTPHandlerData);388 procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData); 388 389 begin 389 390 App.HtmlDocument.Title := 'Kontakt'; … … 403 404 end; 404 405 405 procedure UserControl(App: T CustomApplication; HandlerData: THTTPHandlerData);406 procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData); 406 407 var 407 408 PageName: string; … … 440 441 441 442 442 procedure ServerInfo(App: T CustomApplication; HandlerData: THTTPHandlerData);443 procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData); 443 444 begin 444 445 HandlerData.Session.Values['Test'] := 'Tst'; 445 App.HTTPServer.ServerInfo(HandlerData);446 MainModule.HTTPServer.ServerInfo(HandlerData); 446 447 end; 447 448 -
trunk/TCPServer.lpi
r44 r50 33 33 </local> 34 34 </RunParams> 35 <RequiredPackages Count=" 3">35 <RequiredPackages Count="4"> 36 36 <Item1> 37 <PackageName Value=" TemplateGenerics"/>37 <PackageName Value="CoolWeb"/> 38 38 </Item1> 39 39 <Item2> 40 <PackageName Value=" LCL"/>40 <PackageName Value="TemplateGenerics"/> 41 41 </Item2> 42 42 <Item3> 43 <PackageName Value="LCL"/> 44 </Item3> 45 <Item4> 43 46 <PackageName Value="synapse"/> 44 </Item 3>47 </Item4> 45 48 </RequiredPackages> 46 49 <Units Count="23"> … … 49 52 <IsPartOfProject Value="True"/> 50 53 <UnitName Value="TCPServer"/> 54 <IsVisibleTab Value="True"/> 51 55 <EditorIndex Value="0"/> 52 56 <WindowIndex Value="0"/> 53 57 <TopLine Value="1"/> 54 <CursorPos X=" 1" Y="1"/>58 <CursorPos X="57" Y="7"/> 55 59 <UsageCount Value="20"/> 56 60 <Loaded Value="True"/> … … 61 65 <IsPartOfProject Value="True"/> 62 66 <UnitName Value="UCommon"/> 63 <EditorIndex Value="5"/>64 67 <WindowIndex Value="0"/> 65 68 <TopLine Value="1"/> 66 69 <CursorPos X="1" Y="1"/> 67 70 <UsageCount Value="20"/> 68 <Loaded Value="True"/>69 71 <DefaultSyntaxHighlighter Value="Delphi"/> 70 72 </Unit1> … … 80 82 <Unit3> 81 83 <Filename Value="Common/UHtmlClasses.pas"/> 82 <IsPartOfProject Value="True"/>83 84 <UnitName Value="UHtmlClasses"/> 84 85 <UsageCount Value="20"/> … … 87 88 <Unit4> 88 89 <Filename Value="Common/UMemoryStreamEx.pas"/> 89 <IsPartOfProject Value="True"/>90 90 <UnitName Value="UMemoryStreamEx"/> 91 <EditorIndex Value="14"/>92 91 <WindowIndex Value="0"/> 93 92 <TopLine Value="194"/> 94 93 <CursorPos X="20" Y="208"/> 95 94 <UsageCount Value="20"/> 96 <Loaded Value="True"/>97 95 <DefaultSyntaxHighlighter Value="Delphi"/> 98 96 </Unit4> 99 97 <Unit5> 100 98 <Filename Value="Common/UMIMEType.pas"/> 101 <IsPartOfProject Value="True"/>102 99 <UnitName Value="UMIMEType"/> 103 100 <UsageCount Value="20"/> … … 106 103 <Unit6> 107 104 <Filename Value="Common/UPool.pas"/> 108 <IsPartOfProject Value="True"/>109 105 <UnitName Value="UPool"/> 110 <EditorIndex Value="3"/>111 106 <WindowIndex Value="0"/> 112 107 <TopLine Value="1"/> 113 108 <CursorPos X="32" Y="8"/> 114 109 <UsageCount Value="20"/> 115 <Loaded Value="True"/>116 110 <DefaultSyntaxHighlighter Value="Delphi"/> 117 111 </Unit6> 118 112 <Unit7> 119 113 <Filename Value="Common/UResetableThread.pas"/> 120 <IsPartOfProject Value="True"/>121 114 <UnitName Value="UResetableThread"/> 122 115 <UsageCount Value="20"/> … … 125 118 <Unit8> 126 119 <Filename Value="Common/USqlDatabase.pas"/> 127 <IsPartOfProject Value="True"/>128 120 <UnitName Value="USqlDatabase"/> 129 <EditorIndex Value="9"/>130 121 <WindowIndex Value="0"/> 131 122 <TopLine Value="38"/> 132 123 <CursorPos X="15" Y="55"/> 133 124 <UsageCount Value="20"/> 134 <Loaded Value="True"/>135 125 <DefaultSyntaxHighlighter Value="Delphi"/> 136 126 </Unit8> … … 146 136 <Unit10> 147 137 <Filename Value="Common/UXmlClasses.pas"/> 148 <IsPartOfProject Value="True"/>149 138 <UnitName Value="UXmlClasses"/> 150 <EditorIndex Value="8"/>151 139 <WindowIndex Value="0"/> 152 140 <TopLine Value="1"/> 153 141 <CursorPos X="1" Y="1"/> 154 142 <UsageCount Value="20"/> 155 <Loaded Value="True"/>156 143 <DefaultSyntaxHighlighter Value="Delphi"/> 157 144 </Unit10> … … 160 147 <IsPartOfProject Value="True"/> 161 148 <UnitName Value="UCustomApplication"/> 162 <EditorIndex Value=" 15"/>149 <EditorIndex Value="4"/> 163 150 <WindowIndex Value="0"/> 164 151 <TopLine Value="1"/> … … 170 157 <Unit12> 171 158 <Filename Value="Application/UUser.pas"/> 172 <IsPartOfProject Value="True"/>173 159 <UnitName Value="UUser"/> 174 <EditorIndex Value="4"/>175 160 <WindowIndex Value="0"/> 176 161 <TopLine Value="35"/> 177 162 <CursorPos X="35" Y="55"/> 178 163 <UsageCount Value="20"/> 179 <Loaded Value="True"/>180 164 <DefaultSyntaxHighlighter Value="Delphi"/> 181 165 </Unit12> 182 166 <Unit13> 183 167 <Filename Value="Network/UTCPServer.pas"/> 184 <IsPartOfProject Value="True"/>185 168 <UnitName Value="UTCPServer"/> 186 <EditorIndex Value="12"/>187 169 <WindowIndex Value="0"/> 188 170 <TopLine Value="1"/> 189 171 <CursorPos X="3" Y="15"/> 190 172 <UsageCount Value="20"/> 191 <Loaded Value="True"/>192 173 <DefaultSyntaxHighlighter Value="Delphi"/> 193 174 </Unit13> … … 196 177 <IsPartOfProject Value="True"/> 197 178 <UnitName Value="UMainPage"/> 198 <IsVisibleTab Value="True"/>199 179 <EditorIndex Value="2"/> 200 180 <WindowIndex Value="0"/> 201 181 <TopLine Value="1"/> 202 <CursorPos X=" 42" Y="11"/>182 <CursorPos X="63" Y="19"/> 203 183 <UsageCount Value="20"/> 204 184 <Loaded Value="True"/> … … 207 187 <Unit15> 208 188 <Filename Value="WebServer/UHTTPServer.pas"/> 209 <IsPartOfProject Value="True"/>210 189 <UnitName Value="UHTTPServer"/> 211 <EditorIndex Value="13"/>212 190 <WindowIndex Value="0"/> 213 191 <TopLine Value="1"/> 214 192 <CursorPos X="49" Y="8"/> 215 193 <UsageCount Value="20"/> 216 <Loaded Value="True"/>217 194 <DefaultSyntaxHighlighter Value="Delphi"/> 218 195 </Unit15> 219 196 <Unit16> 220 197 <Filename Value="WebServer/UHTTPServerCGI.pas"/> 221 <IsPartOfProject Value="True"/>222 198 <UnitName Value="UHTTPServerCGI"/> 223 199 <UsageCount Value="20"/> … … 226 202 <Unit17> 227 203 <Filename Value="WebServer/UHTTPServerTCP.pas"/> 228 <IsPartOfProject Value="True"/>229 204 <UnitName Value="UHTTPServerTCP"/> 230 <EditorIndex Value="11"/>231 205 <WindowIndex Value="0"/> 232 206 <TopLine Value="1"/> 233 207 <CursorPos X="1" Y="1"/> 234 208 <UsageCount Value="20"/> 235 <Loaded Value="True"/>236 209 <DefaultSyntaxHighlighter Value="Delphi"/> 237 210 </Unit17> 238 211 <Unit18> 239 212 <Filename Value="WebServer/UHTTPSessionFile.pas"/> 240 <IsPartOfProject Value="True"/>241 213 <UnitName Value="UHTTPSessionFile"/> 242 214 <UsageCount Value="20"/> … … 245 217 <Unit19> 246 218 <Filename Value="WebServer/UHTTPSessionMySQL.pas"/> 247 <IsPartOfProject Value="True"/>248 219 <UnitName Value="UHTTPSessionMySQL"/> 249 <EditorIndex Value="10"/>250 220 <WindowIndex Value="0"/> 251 221 <TopLine Value="1"/> 252 222 <CursorPos X="36" Y="8"/> 253 223 <UsageCount Value="20"/> 254 <Loaded Value="True"/>255 224 <DefaultSyntaxHighlighter Value="Delphi"/> 256 225 </Unit19> 257 226 <Unit20> 258 227 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/> 259 <EditorIndex Value=" 6"/>228 <EditorIndex Value="3"/> 260 229 <WindowIndex Value="0"/> 261 230 <TopLine Value="47"/> … … 267 236 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedObjectList.pas"/> 268 237 <UnitName Value="SpecializedObjectList"/> 269 <EditorIndex Value="7"/>270 238 <WindowIndex Value="0"/> 271 239 <TopLine Value="1"/> 272 240 <CursorPos X="1" Y="26"/> 273 241 <UsageCount Value="10"/> 274 <Loaded Value="True"/>275 242 </Unit21> 276 243 <Unit22> … … 286 253 </Unit22> 287 254 </Units> 288 <JumpHistory Count=" 3" HistoryIndex="2">255 <JumpHistory Count="4" HistoryIndex="3"> 289 256 <Position1> 290 257 <Filename Value="TCPServer.lpr"/> … … 299 266 <Caret Line="1" Column="1" TopLine="1"/> 300 267 </Position3> 268 <Position4> 269 <Filename Value="TCPServer.lpr"/> 270 <Caret Line="1" Column="1" TopLine="1"/> 271 </Position4> 301 272 </JumpHistory> 302 273 </ProjectOptions> 303 274 <CompilerOptions> 304 <Version Value=" 9"/>275 <Version Value="10"/> 305 276 <Target> 306 277 <Filename Value="TCPServer"/> -
trunk/TCPServer.lpr
r44 r50 5 5 uses {$IFDEF UNIX} {$IFDEF UseCThreads} 6 6 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; 13 9 14 10 //{$IFDEF WINDOWS}{$R LiftManagerWebServer.rc}{$ENDIF} -
trunk/languages/index.cs.po
r33 r50 38 38 msgstr "" 39 39 40 #: umainmodule.spagenotfound 41 msgctxt "umainmodule.spagenotfound" 42 msgid "Page not found" 43 msgstr "Stránka nenalezena" 44 40 45 #: usqldatabase.sdatabasequeryerror 41 46 msgid "Database query error: \"%s\"" -
trunk/languages/index.po
r33 r50 30 30 msgstr "" 31 31 32 #: umainmodule.spagenotfound 33 msgctxt "umainmodule.spagenotfound" 34 msgid "Page not found" 35 msgstr "" 36 32 37 #: usqldatabase.sdatabasequeryerror 33 38 msgid "Database query error: \"%s\""
Note:
See TracChangeset
for help on using the changeset viewer.