Last change
on this file was 35, checked in by george, 14 years ago |
- Přidáno: Třídy pro běh web serveru, asociativní pole, dávkový přenos paketů.
|
File size:
794 bytes
|
Line | |
---|
1 | unit UWebObject;
|
---|
2 |
|
---|
3 | {$mode Delphi}{$H+}
|
---|
4 |
|
---|
5 | interface
|
---|
6 |
|
---|
7 | uses
|
---|
8 | Classes, SysUtils, UHTTPServer, UHTTPSessionFile,
|
---|
9 | UTCPServer, Contnrs,
|
---|
10 | UCommon, syncobjs,
|
---|
11 | UMemoryStreamEx,
|
---|
12 | UMIMEType, Synautil, UPool,
|
---|
13 | USqlDatabase, DOM, XMLRead, UHTMLControls;
|
---|
14 |
|
---|
15 | type
|
---|
16 |
|
---|
17 | { TWebObject }
|
---|
18 |
|
---|
19 | TWebObject = class
|
---|
20 | Database: TSqlDatabase;
|
---|
21 | HandlerData: THTTPHandlerData;
|
---|
22 | constructor Create(Database: TSqlDatabase; HandlerData: THTTPHandlerData); overload;
|
---|
23 | constructor Create; virtual; overload;
|
---|
24 | end;
|
---|
25 |
|
---|
26 | implementation
|
---|
27 |
|
---|
28 | { TWebObject }
|
---|
29 |
|
---|
30 | constructor TWebObject.Create(Database: TSqlDatabase;
|
---|
31 | HandlerData: THTTPHandlerData);
|
---|
32 | begin
|
---|
33 | Self.Database := Database;
|
---|
34 | Self.HandlerData := HandlerData;
|
---|
35 | Create;
|
---|
36 | end;
|
---|
37 |
|
---|
38 | constructor TWebObject.Create;
|
---|
39 | begin
|
---|
40 |
|
---|
41 | end;
|
---|
42 |
|
---|
43 | end.
|
---|
44 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.