Data.DB, Web.DBXpressWeb, System.Types;
type
- TTWebModule1 = class(TWebModule)
+ TWebModule1 = class(TWebModule)
articles: TDataSetPageProducer;
index: TDataSetPageProducer;
admin: TDataSetTableProducer;
end;
var
- WebModuleClass: TComponentClass = TTWebModule1;
+ WebModuleClass: TComponentClass = TWebModule1;
implementation
promotion = '\8dL\8d\90:';
tcnt = 7;
-procedure TTWebModule1.adheadHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.adheadHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
if TagString = 'pr' then
ReplaceText := Request.CookieFields.Values['user'];
end;
-procedure TTWebModule1.adminFormatCell(Sender: TObject;
+procedure TWebModule1.adminFormatCell(Sender: TObject;
CellRow, CellColumn: Integer; var BgColor: THTMLBgColor;
var Align: THTMLAlign; var VAlign: THTMLVAlign;
var CustomAttrs, CellData: string);
CellData := Format('<input name=check%d type=checkbox>', [CellRow]);
end;
-procedure TTWebModule1.alertHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.alertHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
s: TStringList;
ReplaceText := DataModule1.FDTable4.FieldByName('request').AsString;
end;
-procedure TTWebModule1.articlesHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.articlesHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
if TagString = 'comment' then
ReplaceText := DataModule1.FDTable2.FieldByName('comment').AsString;
end;
-function TTWebModule1.detail(ts, pid: string): string;
+function TWebModule1.detail(ts, pid: string): string;
var
i: Integer;
begin
result := (Components[i] as TPageProducer).Content;
end;
-procedure TTWebModule1.footerHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.footerHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
i: Integer;
.AsString + '">recent</a>';
end;
-function TTWebModule1.hash(str: string): string;
+function TWebModule1.hash(str: string): string;
begin
with TIdHashSHA1.Create do
begin
end;
end;
-procedure TTWebModule1.headerHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.headerHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
s: string;
ReplaceText := Request.ContentFields.Values['title'];
end;
-procedure TTWebModule1.helpHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.helpHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
if TagString = 'pr' then
ReplaceText := promotion;
end;
-procedure TTWebModule1.indexHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.indexHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
i: Integer;
ReplaceText := DataModule1.FDTable1.FieldByName('database').AsString;
end;
-procedure TTWebModule1.itemsHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.itemsHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
s: TStringList;
end;
end;
-procedure TTWebModule1.loginHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.loginHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
if TagString = 'pr' then
ReplaceText := promotion;
end;
-procedure TTWebModule1.masterHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.masterHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
if TagString = 'pr' then
end;
end;
-function TTWebModule1.mente: Boolean;
+function TWebModule1.mente: Boolean;
begin
if DataModule1.FDTable3.FieldByName('mente').AsBoolean = true then
begin
result := false;
end;
-procedure TTWebModule1.pages(count: Integer; var page: Integer);
+procedure TWebModule1.pages(count: Integer; var page: Integer);
var
max: Integer;
begin
end;
end;
-procedure TTWebModule1.mailHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.mailHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
if TagString = 'pr' then
ReplaceText := Request.QueryFields.Values['num'];
end;
-procedure TTWebModule1.searchHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.searchHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
s: TStringList;
ReplaceText := css2.Content;
end;
-procedure TTWebModule1.tiHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.tiHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
if TagString = 'count' then
DataModule1.FDQuery1.FieldByName('dbnum').AsInteger, 'database');
end;
-procedure TTWebModule1.titleHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.titleHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
if TagString = 'pr' then
end;
end;
-procedure TTWebModule1.topHTMLTag(Sender: TObject; Tag: TTag;
+procedure TWebModule1.topHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
var
s, t: string;
end;
end;
-procedure TTWebModule1.TWebModule1admdelAction(Sender: TObject;
+procedure TWebModule1.TWebModule1admdelAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
i, j, k, m: Integer;
TWebModule1adminAction(nil, Request, Response, Handled);
end;
-procedure TTWebModule1.TWebModule1adminAction(Sender: TObject;
+procedure TWebModule1.TWebModule1adminAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
s: string;
Response.Content := admin.Content;
end;
-procedure TTWebModule1.TWebModule1adminsetAction(Sender: TObject;
+procedure TWebModule1.TWebModule1adminsetAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
s: string;
TWebModule1adminAction(nil, Request, Response, Handled);
end;
-procedure TTWebModule1.TWebModule1alertAction(Sender: TObject;
+procedure TWebModule1.TWebModule1alertAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
num1, num2, i, dbnum: Integer;
end;
end;
-procedure TTWebModule1.TWebModule1deleteAction(Sender: TObject;
+procedure TWebModule1.TWebModule1deleteAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
num: Integer;
TWebModule1indexpageAction(nil, Request, Response, Handled);
end;
-procedure TTWebModule1.TWebModule1fileAction(Sender: TObject;
+procedure TWebModule1.TWebModule1fileAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
s: string;
Response.Content := detail(s, Request.QueryFields.Values['id']);
end;
-procedure TTWebModule1.TWebModule1helpAction(Sender: TObject;
+procedure TWebModule1.TWebModule1helpAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
i, j: Integer;
Response.Content := help.Content;
end;
-procedure TTWebModule1.TWebModule1imgAction(Sender: TObject;
+procedure TWebModule1.TWebModule1imgAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
s: string;
else
if s = 'sprites.png' then
begin
+ Response.ContentType:='image/png';
res:=TResourceStream.Create(HInstance,'PngImage_1',RT_RCDATA);
try
Response.ContentStream:=res;
end;
end;
-procedure TTWebModule1.TWebModule1indexpageAction(Sender: TObject;
+procedure TWebModule1.TWebModule1indexpageAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
int: Integer;
Response.Content := index.Content;
end;
-procedure TTWebModule1.TWebModule1jumpAction(Sender: TObject;
+procedure TWebModule1.TWebModule1jumpAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
DB, s: string;
Response.SendRedirect(Format('/index?db=%s&num=%d#%s', [DB, page, s]));
end;
-procedure TTWebModule1.TWebModule1linkAction(Sender: TObject;
+procedure TWebModule1.TWebModule1linkAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
num: Integer;
end;
end;
-procedure TTWebModule1.TWebModule1loginAction(Sender: TObject;
+procedure TWebModule1.TWebModule1loginAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
i: Integer;
Response.SendRedirect('/admin?db=' + i.ToString);
end;
-procedure TTWebModule1.TWebModule1logoutAction(Sender: TObject;
+procedure TWebModule1.TWebModule1logoutAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
with Response.Cookies.Add do
TWebModule1indexpageAction(nil, Request, Response, Handled);
end;
-procedure TTWebModule1.TWebModule1masterAction(Sender: TObject;
+procedure TWebModule1.TWebModule1masterAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
s: string;
Response.Content := master.Content;
end;
-procedure TTWebModule1.TWebModule1registAction(Sender: TObject;
+procedure TWebModule1.TWebModule1registAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
number, i: Integer;
TWebModule1indexpageAction(nil, Request, Response, Handled);
end;
-procedure TTWebModule1.TWebModule1searchAction(Sender: TObject;
+procedure TWebModule1.TWebModule1searchAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.ContentType := 'text/html;charset=utf-8';
Response.Content := search.Content;
end;
-procedure TTWebModule1.TWebModule1titleAction(Sender: TObject;
+procedure TWebModule1.TWebModule1titleAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.ContentType := 'text/html;charset=utf-8';
Response.Content := title.Content;
end;
-procedure TTWebModule1.TWebModule1topAction(Sender: TObject;
+procedure TWebModule1.TWebModule1topAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.ContentType := 'text/html;charset=utf-8';
Response.Content := top.ContentFromString(top.Content);
end;
-procedure TTWebModule1.WebModuleCreate(Sender: TObject);
+procedure TWebModule1.WebModuleCreate(Sender: TObject);
var
i: Integer;
a: Variant;