Changeset 151
- Timestamp:
- Feb 4, 2024, 3:53:52 PM (9 months ago)
- Location:
- trunk
- Files:
-
- 1 deleted
- 45 edited
- 22 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/WebObjects.pas
r146 r151 4 4 5 5 uses 6 Classes, SysUtils, UHtmlClasses, UXmlClasses, Generics.Collections;6 Classes, SysUtils, HtmlClasses, XmlClasses, Generics.Collections; 7 7 8 8 type -
trunk/Application/WebSession.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, UHTTPServer, USqlDatabase, UHTTPSessionMySQL, User,7 UHtmlClasses, UWebPage, Utils, UXmlClasses, DateUtils, ModularSystem,8 UPageList, UWebApp, UGenerics;6 Classes, SysUtils, HTTPServer, SqlDatabase, HTTPSessionMySQL, User, 7 HtmlClasses, WebPage, Utils, XmlClasses, DateUtils, ModularSystem, 8 PageList, WebApp, Generics; 9 9 10 10 type -
trunk/Common/Utils.pas
r146 r151 4 4 5 5 uses 6 USqlDatabase, Classes, SysUtils, StrUtils;6 SqlDatabase, Classes, SysUtils, StrUtils; 7 7 8 8 function NavigationLink(URL: string): string; -
trunk/Core.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, LResources, UHTTPServerCGI, UHTTPSessionMySQL,7 UHTTPServer, USqlDatabase, INIFiles, DateUtils, UWebPage, UWebApp,8 UXmlClasses, UHtmlClasses, Utils, UApplicationInfo, UHTTPServerTCP,9 UHTTPSessionFile, User, Registry, ModularSystem, WebSession, LazUTF8;6 Classes, SysUtils, FileUtil, LResources, HTTPServerCGI, HTTPSessionMySQL, 7 HTTPServer, SqlDatabase, INIFiles, DateUtils, WebPage, WebApp, 8 XmlClasses, HtmlClasses, Utils, ApplicationInfo, HTTPServerTCP, 9 HTTPSessionFile, User, Registry, ModularSystem, WebSession, LazUTF8; 10 10 11 11 const -
trunk/Modules/Base/ModuleBase.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, UGenerics, UWebPage, UWebApp,7 WebSession, UHTTPServer;6 Classes, SysUtils, ModularSystem, Generics, WebPage, WebApp, 7 WebSession, HTTPServer; 8 8 9 9 type -
trunk/Modules/Finance/ModuleFinance.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, ModuleBase, UWebPage;6 Classes, SysUtils, ModularSystem, ModuleBase, WebPage; 7 7 8 8 type … … 26 26 27 27 uses 28 Core, PageFinance, USqlDatabase;28 Core, PageFinance, SqlDatabase; 29 29 30 30 { TModuleFinance } -
trunk/Modules/Finance/PageFinance.pas
r146 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer; 7 7 8 8 type -
trunk/Modules/IS/ModuleIS.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, USqlDatabase, ModuleBase, Generics;6 Classes, SysUtils, ModularSystem, SqlDatabase, ModuleBase, Generics; 7 7 8 8 type -
trunk/Modules/Network/ModuleNetwork.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, ModuleBase, UWebPage;6 Classes, SysUtils, ModularSystem, ModuleBase, WebPage; 7 7 8 8 type … … 28 28 29 29 uses 30 Core, PageNetwork, USqlDatabase;30 Core, PageNetwork, SqlDatabase; 31 31 32 32 { TModuleNetwork } -
trunk/Modules/Network/PageNetwork.pas
r146 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer; 7 7 8 8 type -
trunk/Modules/News/ModuleNews.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, ModuleBase, News, UHTTPServer, ModuleUser;6 Classes, SysUtils, ModularSystem, ModuleBase, News, HTTPServer, ModuleUser; 7 7 8 8 type … … 27 27 28 28 uses 29 Core, UserControlPage, USqlDatabase;29 Core, UserControlPage, SqlDatabase; 30 30 31 31 { TModuleNews } -
trunk/Modules/News/News.pas
r146 r151 4 4 5 5 uses 6 Classes, SysUtils, USqlDatabase, ModuleUser, Utils, Generics.Collections, WebSession,7 UHTTPServer, ModuleBase, UCommon;6 Classes, SysUtils, SqlDatabase, ModuleUser, Utils, Generics.Collections, WebSession, 7 HTTPServer, ModuleBase, Common; 8 8 9 9 type -
trunk/Modules/Portal/ModulePortal.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, USqlDatabase, Utils, WebSession, User,7 UWebPage, UHtmlClasses, ModuleBase, ModuleUser, ModuleNews, UGenerics;6 Classes, SysUtils, ModularSystem, SqlDatabase, Utils, WebSession, User, 7 WebPage, HtmlClasses, ModuleBase, ModuleUser, ModuleNews, Generics; 8 8 9 9 type -
trunk/Modules/Portal/PagePortal.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, Utils, 7 Generics, WebSession, UHtmlClasses, ModularSystem, ModuleUser, 8 ModuleNews; 6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, SqlDatabase, Utils, 7 Generics, WebSession, HtmlClasses, ModularSystem, ModuleUser, ModuleNews; 9 8 10 9 type -
trunk/Modules/System/ModuleSystem.pas
r150 r151 28 28 29 29 uses 30 Core, USqlDatabase;30 Core, SqlDatabase; 31 31 32 32 { TModuleSystem } -
trunk/Modules/TV/ModuleTV.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, ModuleBase, UWebPage;6 Classes, SysUtils, ModularSystem, ModuleBase, WebPage; 7 7 8 8 type … … 28 28 29 29 uses 30 Core, PageTV, USqlDatabase;30 Core, PageTV, SqlDatabase; 31 31 32 32 { TModuleTV } -
trunk/Modules/TV/PageTV.pas
r146 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UHtmlClasses,6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, SqlDatabase, HtmlClasses, 7 7 Utils, ModuleUser; 8 8 -
trunk/Modules/User/ModuleUser.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, User, ModuleBase, UWebPage;6 Classes, SysUtils, ModularSystem, User, ModuleBase, WebPage; 7 7 8 8 type … … 30 30 31 31 uses 32 Core, USqlDatabase, UserControlPage;32 Core, SqlDatabase, UserControlPage; 33 33 34 34 { TModuleUser } -
trunk/Modules/User/User.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, synacode, USqlDatabase, Common, UHTTPServer,6 Classes, SysUtils, synacode, SqlDatabase, Common, HTTPServer, 7 7 Generics; 8 8 -
trunk/Modules/User/UserControlPage.pas
r146 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UXmlClasses,6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, XmlClasses, 7 7 WebObjects, ModuleUser, ModuleBase; 8 8 -
trunk/Modules/ZdechovNET/AboutPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser; 7 7 8 8 type … … 23 23 24 24 uses 25 Core, Utils, WebSession, USqlDatabase;25 Core, Utils, WebSession, SqlDatabase; 26 26 27 27 { TAboutPage } -
trunk/Modules/ZdechovNET/ContactPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser; 7 7 8 8 type -
trunk/Modules/ZdechovNET/DocumentsPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser; 7 7 8 8 type -
trunk/Modules/ZdechovNET/HistoryPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase,6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, SqlDatabase, 7 7 ModuleUser; 8 8 -
trunk/Modules/ZdechovNET/HostingPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UHtmlClasses,6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, SqlDatabase, HtmlClasses, 7 7 ModuleUser; 8 8 -
trunk/Modules/ZdechovNET/IPTVPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, ModuleUser,6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, ModuleUser, 7 7 Generics.Collections; 8 8 … … 42 42 43 43 uses 44 Core, UHtmlClasses, WebSession;44 Core, HtmlClasses, WebSession; 45 45 46 46 { TChannels } -
trunk/Modules/ZdechovNET/InternetPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, ModuleUser; 7 7 8 8 type … … 23 23 24 24 uses 25 Core, UHtmlClasses, WebSession;25 Core, HtmlClasses, WebSession; 26 26 27 27 { TInternetPage } -
trunk/Modules/ZdechovNET/LinksPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser; 7 7 8 8 type -
trunk/Modules/ZdechovNET/ModuleZdechovNET.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, ModularSystem, UWebPage, RobotsPage,6 Classes, SysUtils, ModularSystem, WebPage, RobotsPage, 7 7 WebSession, DateUtils, ModuleBase, ModuleUser, IPTVPage, 8 8 InternetPage, HostingPage, HistoryPage, DocumentsPage, VoIPPage, … … 50 50 51 51 uses 52 Core, USqlDatabase, UXmlClasses, UHtmlClasses, Utils;52 Core, SqlDatabase, XmlClasses, HtmlClasses, Utils; 53 53 54 54 { TModuleZdechovNET } -
trunk/Modules/ZdechovNET/NetworkPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser; 7 7 8 8 type -
trunk/Modules/ZdechovNET/PlansPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase,6 Classes, SysUtils, FileUtil, WebPage, HtmlClasses, HTTPServer, SqlDatabase, 7 7 ModuleUser; 8 8 -
trunk/Modules/ZdechovNET/ProjectsPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase,6 Classes, SysUtils, FileUtil, WebPage, HtmlClasses, HTTPServer, SqlDatabase, 7 7 ModuleUser; 8 8 -
trunk/Modules/ZdechovNET/RobotsPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser; 7 7 8 8 type … … 23 23 24 24 uses 25 Core, Utils, WebSession, USqlDatabase;25 Core, Utils, WebSession, SqlDatabase; 26 26 27 27 { TRobotsPage } -
trunk/Modules/ZdechovNET/VoIPPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, HtmlClasses, HTTPServer, ModuleUser; 7 7 8 8 type -
trunk/Modules/ZdechovNET/WebCamPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase,6 Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, SqlDatabase, 7 7 ModuleUser, DateUtils; 8 8 -
trunk/Packages/CoolWeb/Common/HtmlClasses.pas
r150 r151 1 unit UHtmlClasses;1 unit HtmlClasses; 2 2 3 3 interface 4 4 5 5 uses 6 UXmlClasses, Classes, SysUtils, Generics.Collections, Generics, UIpAddress;6 XmlClasses, Classes, SysUtils, Generics.Collections, Generics, IpAddress; 7 7 8 8 type … … 742 742 procedure TQueryString.SetStringServer; 743 743 begin 744 // $this->SetString($_SERVER['QUERY_STRING']);744 // SetString($_SERVER['QUERY_STRING']); 745 745 end; 746 746 … … 762 762 function TQueryString.GetString: string; 763 763 begin 764 (*$Parts = array(); 764 (* 765 Parts = array(); 765 766 foreach($this->Data as $Index => $Item) 766 767 { -
trunk/Packages/CoolWeb/Common/IpAddress.pas
r150 r151 1 unit UIpAddress;1 unit IpAddress; 2 2 3 3 interface -
trunk/Packages/CoolWeb/Common/MIMEType.pas
r150 r151 1 unit UMIMEType;1 unit MIMEType; 2 2 3 3 interface -
trunk/Packages/CoolWeb/Common/MemoryStreamEx.pas
r150 r151 1 unit UMemoryStreamEx;1 unit MemoryStreamEx; 2 2 3 3 interface … … 23 23 procedure WriteString(Data: string); 24 24 procedure WriteShortString(Data: ShortString); 25 procedure WriteAnsiString( Data: string);25 procedure WriteAnsiString(const Data: string); override; 26 26 procedure WriteUnixTime(Data: TDateTime); 27 27 procedure WriteDouble(Value: Double); … … 234 234 end; 235 235 236 procedure TMemoryStreamEx.WriteAnsiString( Data: string);236 procedure TMemoryStreamEx.WriteAnsiString(const Data: string); 237 237 var 238 238 StringLength: Longint; -
trunk/Packages/CoolWeb/Common/XmlClasses.pas
r150 r151 1 unit UXmlClasses;1 unit XmlClasses; 2 2 3 3 interface -
trunk/Packages/CoolWeb/CoolWeb.lpk
r138 r151 42 42 <Files Count="19"> 43 43 <Item1> 44 <Filename Value="WebServer/ UHTTPServer.pas"/>45 <UnitName Value=" UHTTPServer"/>44 <Filename Value="WebServer/HTTPServer.pas"/> 45 <UnitName Value="HTTPServer"/> 46 46 </Item1> 47 47 <Item2> 48 <Filename Value="WebServer/ UHTTPServerCGI.pas"/>48 <Filename Value="WebServer/HTTPServerCGI.pas"/> 49 49 <HasRegisterProc Value="True"/> 50 <UnitName Value=" UHTTPServerCGI"/>50 <UnitName Value="HTTPServerCGI"/> 51 51 </Item2> 52 52 <Item3> 53 <Filename Value="WebServer/ UHTTPServerTCP.pas"/>53 <Filename Value="WebServer/HTTPServerTCP.pas"/> 54 54 <HasRegisterProc Value="True"/> 55 <UnitName Value=" UHTTPServerTCP"/>55 <UnitName Value="HTTPServerTCP"/> 56 56 </Item3> 57 57 <Item4> 58 <Filename Value="WebServer/ UHTTPServerTurboPower.pas"/>59 <UnitName Value=" UHTTPServerTurboPower"/>58 <Filename Value="WebServer/HTTPServerTurboPower.pas"/> 59 <UnitName Value="HTTPServerTurboPower"/> 60 60 </Item4> 61 61 <Item5> 62 <Filename Value="WebServer/ UTurboPowerForm.pas"/>63 <UnitName Value=" UTurboPowerForm"/>62 <Filename Value="WebServer/TurboPowerForm.pas"/> 63 <UnitName Value="TurboPowerForm"/> 64 64 </Item5> 65 65 <Item6> 66 <Filename Value="WebServer/ UHTTPSessionFile.pas"/>66 <Filename Value="WebServer/HTTPSessionFile.pas"/> 67 67 <HasRegisterProc Value="True"/> 68 <UnitName Value=" UHTTPSessionFile"/>68 <UnitName Value="HTTPSessionFile"/> 69 69 </Item6> 70 70 <Item7> 71 <Filename Value="WebServer/ UHTTPSessionMySQL.pas"/>71 <Filename Value="WebServer/HTTPSessionMySQL.pas"/> 72 72 <HasRegisterProc Value="True"/> 73 <UnitName Value=" UHTTPSessionMySQL"/>73 <UnitName Value="HTTPSessionMySQL"/> 74 74 </Item7> 75 75 <Item8> 76 <Filename Value="Persistence/ USqlDatabase.pas"/>76 <Filename Value="Persistence/SqlDatabase.pas"/> 77 77 <HasRegisterProc Value="True"/> 78 <UnitName Value=" USqlDatabase"/>78 <UnitName Value="SqlDatabase"/> 79 79 </Item8> 80 80 <Item9> 81 <Filename Value="Network/ UTCPServer.pas"/>82 <UnitName Value=" UTCPServer"/>81 <Filename Value="Network/TCPServer.pas"/> 82 <UnitName Value="TCPServer"/> 83 83 </Item9> 84 84 <Item10> 85 <Filename Value="Modules/ UPageList.pas"/>86 <UnitName Value=" UPageList"/>85 <Filename Value="Modules/PageList.pas"/> 86 <UnitName Value="PageList"/> 87 87 </Item10> 88 88 <Item11> 89 <Filename Value="Common/ UHtmlClasses.pas"/>90 <UnitName Value=" UHtmlClasses"/>89 <Filename Value="Common/HtmlClasses.pas"/> 90 <UnitName Value="HtmlClasses"/> 91 91 </Item11> 92 92 <Item12> 93 <Filename Value="Common/ UMemoryStreamEx.pas"/>94 <UnitName Value=" UMemoryStreamEx"/>93 <Filename Value="Common/MemoryStreamEx.pas"/> 94 <UnitName Value="MemoryStreamEx"/> 95 95 </Item12> 96 96 <Item13> 97 <Filename Value="Common/ UMIMEType.pas"/>98 <UnitName Value=" UMIMEType"/>97 <Filename Value="Common/MIMEType.pas"/> 98 <UnitName Value="MIMEType"/> 99 99 </Item13> 100 100 <Item14> 101 <Filename Value="Common/ UXmlClasses.pas"/>102 <UnitName Value=" UXmlClasses"/>101 <Filename Value="Common/XmlClasses.pas"/> 102 <UnitName Value="XmlClasses"/> 103 103 </Item14> 104 104 <Item15> 105 <Filename Value="WebServer/ UWebPage.pas"/>105 <Filename Value="WebServer/WebPage.pas"/> 106 106 <HasRegisterProc Value="True"/> 107 <UnitName Value=" UWebPage"/>107 <UnitName Value="WebPage"/> 108 108 </Item15> 109 109 <Item16> 110 <Filename Value="WebServer/ UWebApp.pas"/>110 <Filename Value="WebServer/WebApp.pas"/> 111 111 <HasRegisterProc Value="True"/> 112 <UnitName Value=" UWebApp"/>112 <UnitName Value="WebApp"/> 113 113 </Item16> 114 114 <Item17> … … 118 118 </Item17> 119 119 <Item18> 120 <Filename Value="Modules/ UWebUser.pas"/>121 <UnitName Value=" UWebUser"/>120 <Filename Value="Modules/WebUser.pas"/> 121 <UnitName Value="WebUser"/> 122 122 </Item18> 123 123 <Item19> 124 <Filename Value="Common/ UIpAddress.pas"/>125 <UnitName Value=" UIpAddress"/>124 <Filename Value="Common/IpAddress.pas"/> 125 <UnitName Value="IpAddress"/> 126 126 </Item19> 127 127 </Files> -
trunk/Packages/CoolWeb/CoolWeb.pas
r138 r151 9 9 10 10 uses 11 UHTTPServer, UHTTPServerCGI, UHTTPServerTCP, UHTTPServerTurboPower, 12 UTurboPowerForm, UHTTPSessionFile, UHTTPSessionMySQL, USqlDatabase, 13 UTCPServer, UPageList, UHtmlClasses, UMemoryStreamEx, UMIMEType, 14 UXmlClasses, UWebPage, UWebApp, LazIDEReg, UWebUser, UIpAddress, 15 LazarusPackageIntf; 11 HTTPServer, HTTPServerCGI, HTTPServerTCP, HTTPServerTurboPower, 12 TurboPowerForm, HTTPSessionFile, HTTPSessionMySQL, SqlDatabase, TCPServer, 13 PageList, HtmlClasses, MemoryStreamEx, MIMEType, XmlClasses, WebPage, 14 WebApp, LazIDEReg, WebUser, IpAddress, LazarusPackageIntf; 16 15 17 16 implementation … … 19 18 procedure Register; 20 19 begin 21 RegisterUnit(' UHTTPServerCGI', @UHTTPServerCGI.Register);22 RegisterUnit(' UHTTPServerTCP', @UHTTPServerTCP.Register);23 RegisterUnit(' UHTTPSessionFile', @UHTTPSessionFile.Register);24 RegisterUnit(' UHTTPSessionMySQL', @UHTTPSessionMySQL.Register);25 RegisterUnit(' USqlDatabase', @USqlDatabase.Register);26 RegisterUnit(' UWebPage', @UWebPage.Register);27 RegisterUnit(' UWebApp', @UWebApp.Register);20 RegisterUnit('HTTPServerCGI', @HTTPServerCGI.Register); 21 RegisterUnit('HTTPServerTCP', @HTTPServerTCP.Register); 22 RegisterUnit('HTTPSessionFile', @HTTPSessionFile.Register); 23 RegisterUnit('HTTPSessionMySQL', @HTTPSessionMySQL.Register); 24 RegisterUnit('SqlDatabase', @SqlDatabase.Register); 25 RegisterUnit('WebPage', @WebPage.Register); 26 RegisterUnit('WebApp', @WebApp.Register); 28 27 RegisterUnit('LazIDEReg', @LazIDEReg.Register); 29 28 end; -
trunk/Packages/CoolWeb/LazIDEReg.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, LazIDEIntf, ProjectIntf, FormEditingIntf, UWebPage, Forms,6 Classes, SysUtils, LazIDEIntf, ProjectIntf, FormEditingIntf, WebPage, Forms, 7 7 Controls; 8 8 -
trunk/Packages/CoolWeb/Modules/PageList.pas
r150 r151 1 unit UPageList;1 unit PageList; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UHtmlClasses;6 Classes, SysUtils, HtmlClasses; 7 7 8 8 type -
trunk/Packages/CoolWeb/Modules/WebUser.pas
r150 r151 1 unit UWebUser;1 unit WebUser; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, synacode, USqlDatabase, Common, UHTTPServer, Generics;6 Classes, SysUtils, synacode, SqlDatabase, Common, HTTPServer, Generics; 7 7 8 8 const -
trunk/Packages/CoolWeb/Network/TCPServer.pas
r150 r151 1 unit UTCPServer;1 unit TCPServer; 2 2 3 3 interface -
trunk/Packages/CoolWeb/Persistence/SqlDatabase.pas
r150 r151 1 unit USqlDatabase;1 unit SqlDatabase; 2 2 3 3 // Modified: 2022-09-08 … … 206 206 DbNames: string; 207 207 DbValues: string; 208 I: Integer;209 208 Value: string; 210 209 DbResult: TDbRows; … … 272 271 DbValues: string; 273 272 Value: string; 274 I: Integer;275 273 DbResult: TDbRows; 276 274 Item: TPair<string, string>; … … 313 311 DbValues: string; 314 312 Value: string; 315 I: Integer;316 313 DbResult: TDbRows; 317 314 Item: TPair<string, string>; -
trunk/Packages/CoolWeb/WebServer/HTTPServer.pas
r150 r151 1 unit UHTTPServer;1 unit HTTPServer; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Common, UMemoryStreamEx, UMIMEType, Synautil, Syncobjs,6 Classes, SysUtils, Common, MemoryStreamEx, MIMEType, Synautil, Syncobjs, 7 7 Generics.Collections, Generics; 8 8 … … 77 77 78 78 TRequestHandlerList = class(TObjectList<TRequestHandler>) 79 procedure Add(AName: string; AHandler: TRequestEvent);79 function AddNew(AName: string; AHandler: TRequestEvent): TRequestHandler; 80 80 function IndexOfName(AName: string): TRequestHandler; 81 81 end; … … 279 279 { TRequestHandlerList } 280 280 281 procedure TRequestHandlerList.Add(AName: string; AHandler: TRequestEvent);282 begin 283 with TRequestHandler(Items[inherited Add(TRequestHandler.Create)]) do begin284 285 286 end;281 function TRequestHandlerList.AddNew(AName: string; AHandler: TRequestEvent): TRequestHandler; 282 begin 283 Result := TRequestHandler.Create; 284 Result.Name := AName; 285 Result.Handler := AHandler; 286 Add(Result); 287 287 end; 288 288 -
trunk/Packages/CoolWeb/WebServer/HTTPServerCGI.pas
r150 r151 1 unit UHTTPServerCGI;1 unit HTTPServerCGI; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UHTTPServer, IOStream, Generics.Collections;6 Classes, SysUtils, HTTPServer, IOStream, Generics.Collections; 7 7 8 8 type -
trunk/Packages/CoolWeb/WebServer/HTTPServerTCP.pas
r150 r151 1 unit UHTTPServerTCP;1 unit HTTPServerTCP; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UHTTPServer, UTCPServer, SynaUtil, Generics.Collections,6 Classes, SysUtils, HTTPServer, TCPServer, SynaUtil, Generics.Collections, 7 7 Generics; 8 8 -
trunk/Packages/CoolWeb/WebServer/HTTPServerTurboPower.pas
r150 r151 1 unit UHTTPServerTurboPower;1 unit HTTPServerTurboPower; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, Forms, UHTTPServer, IpHtml;6 Classes, SysUtils, Forms, HTTPServer, IpHtml; 7 7 8 8 type … … 23 23 24 24 uses 25 UTurboPowerForm;25 TurboPowerForm; 26 26 27 27 procedure Register; -
trunk/Packages/CoolWeb/WebServer/HTTPSessionFile.pas
r150 r151 1 unit UHTTPSessionFile;1 unit HTTPSessionFile; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UHTTPServer, syncobjs, synacode, Common, FileUtil,6 Classes, SysUtils, HTTPServer, syncobjs, synacode, Common, FileUtil, 7 7 LazFileUtils; 8 8 -
trunk/Packages/CoolWeb/WebServer/HTTPSessionMySQL.pas
r150 r151 1 unit UHTTPSessionMySQL;1 unit HTTPSessionMySQL; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UHTTPServer, syncobjs, synacode, Common, USqlDatabase;6 Classes, SysUtils, HTTPServer, syncobjs, synacode, Common, SqlDatabase; 7 7 8 8 type -
trunk/Packages/CoolWeb/WebServer/TurboPowerForm.pas
r150 r151 1 unit UTurboPowerForm;1 unit TurboPowerForm; 2 2 3 3 interface -
trunk/Packages/CoolWeb/WebServer/WebApp.pas
r150 r151 1 unit UWebApp;1 unit WebApp; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UWebPage, UHTTPSessionFile, UHTTPServer, Forms, FileUtil,6 Classes, SysUtils, WebPage, HTTPSessionFile, HTTPServer, Forms, FileUtil, 7 7 Generics.Collections; 8 8 … … 60 60 61 61 uses 62 UHTTPServerCGI, UHTTPServerTCP, UHTTPServerTurboPower;62 HTTPServerCGI, HTTPServerTCP, HTTPServerTurboPower; 63 63 64 64 procedure Register; -
trunk/Packages/CoolWeb/WebServer/WebPage.pas
r150 r151 1 unit UWebPage;1 unit WebPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UHTTPServer, Controls;6 Classes, SysUtils, HTTPServer, Controls; 7 7 8 8 type -
trunk/Packages/ModularSystem/Language/ModularSystem.cs.po
r150 r151 10 10 "Content-Transfer-Encoding: 8bit\n" 11 11 12 #: umodularsystem.smodulenotfound12 #: modularsystem.smodulenotfound 13 13 #, object-pascal-format 14 msgctxt "modularsystem.smodulenotfound" 14 15 msgid "Module \"%1:s\" not found as dependency for module \"%0:s\"" 15 msgstr " Pro modul \"%0:s\" nenalezen závislý modul \"%1:s\""16 msgstr "" 16 17 -
trunk/Packages/ModularSystem/Language/ModularSystem.pot
r150 r151 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: umodularsystem.smodulenotfound4 #: modularsystem.smodulenotfound 5 5 #, object-pascal-format 6 msgctxt "modularsystem.smodulenotfound" 6 7 msgid "Module \"%1:s\" not found as dependency for module \"%0:s\"" 7 8 msgstr "" -
trunk/Packages/PersistentData/Backend/UPDClientMySQL.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, USqlDatabase, UPDClient, Generics;6 Classes, SysUtils, SqlDatabase, UPDClient, Generics; 7 7 8 8 type -
trunk/Pages/PageAdmin.pas
r150 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer;6 Classes, SysUtils, FileUtil, WebPage, HTTPServer; 7 7 8 8 type … … 29 29 30 30 uses 31 Core, UXmlClasses, UHtmlClasses, Utils, USqlDatabase, ModularSystem,31 Core, XmlClasses, HtmlClasses, Utils, SqlDatabase, ModularSystem, 32 32 ModuleSystem, WebSession; 33 33 -
trunk/Pages/PageNotFound.pas
r146 r151 4 4 5 5 uses 6 Classes, SysUtils, UWebPage, UHTTPServer;6 Classes, SysUtils, WebPage, HTTPServer; 7 7 8 8 type -
trunk/Pages/ServerInfoPage.pas
r149 r151 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UWebApp, UHTTPServer, ModuleUser;6 Classes, SysUtils, FileUtil, WebPage, WebApp, HTTPServer, ModuleUser; 7 7 8 8 type -
trunk/ZdechovNET.lpr
r146 r151 7 7 cthreads, clocale, 8 8 {$ENDIF} 9 Utils, USqlDatabase, SysUtils, Forms,10 User, UHTTPSessionMySQL, UHTTPSessionFile, Printers,11 UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,12 UMemoryStreamEx, UMIMEType, UPageList, Interfaces, Core, UWebApp;9 Utils, SqlDatabase, SysUtils, Forms, 10 User, HTTPSessionMySQL, HTTPSessionFile, Printers, 11 Common, HTTPServer, HTTPServerTCP, HTTPServerCGI, TCPServer, Pool, 12 MemoryStreamEx, MIMEType, PageList, Interfaces, Core, WebApp; 13 13 14 14 {$if declared(UseHeapTrace)}
Note:
See TracChangeset
for help on using the changeset viewer.