Develop and Download Open Source Software

mybbs

Browse Subversion Repository

/[bbs-as-pbbs]/WebModuleUnit1.pas

Diff of /WebModuleUnit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by yamat0jp, Wed Sep 21 09:33:28 2016 UTC revision 13 by yamat0jp, Sun Sep 25 06:49:06 2016 UTC
# Line 61  type Line 61  type
61      procedure WebModuleDestroy(Sender: TObject);      procedure WebModuleDestroy(Sender: TObject);
62      procedure WebModule1adminsetAction(Sender: TObject; Request: TWebRequest;      procedure WebModule1adminsetAction(Sender: TObject; Request: TWebRequest;
63        Response: TWebResponse; var Handled: Boolean);        Response: TWebResponse; var Handled: Boolean);
64        procedure WebModule1cssAction(Sender: TObject; Request: TWebRequest;
65          Response: TWebResponse; var Handled: Boolean);
66        procedure WebModuleAfterDispatch(Sender: TObject; Request: TWebRequest;
67          Response: TWebResponse; var Handled: Boolean);
68    private    private
69      { private 宣言 }      { private 宣言 }
70    public    public
# Line 87  implementation Line 91  implementation
91    
92  procedure TWebModule1.DataSetPageProducer2HTMLTag(Sender: TObject; Tag: TTag;  procedure TWebModule1.DataSetPageProducer2HTMLTag(Sender: TObject; Tag: TTag;
93    const TagString: string; TagParams: TStrings; var ReplaceText: string);    const TagString: string; TagParams: TStrings; var ReplaceText: string);
 var  
   s: TURLEncoding;  
94  begin  begin
95    ReplaceText := FDTable1.FieldByName(TagString).AsString;    ReplaceText := FDTable1.FieldByName(TagString).AsString;
96    if TagString = 'com' then    if TagString = 'com' then
# Line 137  begin Line 139  begin
139    home := FDTable2.FieldByName('home').AsString;    home := FDTable2.FieldByName('home').AsString;
140    if position <= -1 then    if position <= -1 then
141    begin    begin
142      s1 := '最新%d件の記事を表示<br><center>Pages : [<b>';      s1 := '<nav>最新%d件の記事を表示<br><center>Pages : [<b>';
143      s2 := '<<' + linkcontent + '>>]  最新</b><br></center>';      s2 := '<<' + linkcontent + '>></b>]  <b>最新</b><br></center></nav>';
144      result := Format(s1, [count]) + s2;      result := Format(s1, [count]) + s2;
145    end    end
146    else    else
# Line 160  begin Line 162  begin
162        t2 := '?pos=' + IntToStr(position + 1) + '#article';        t2 := '?pos=' + IntToStr(position + 1) + '#article';
163        k := (position + 1) * count;        k := (position + 1) * count;
164      end;      end;
165      s1 := '%d 件中 %d 件から %d 件まで表示<br><center>Page : [<b>';      s1 := '<nav>%d 件中 %d 件から %d 件まで表示<br><center>Page : [<b>';
166      s2 := '<a href="' + home + path + t1 + '#article"><<</a>' + linkcontent +      s2 := '<a href="' + home + path + t1 + '#article"><<</a>' + linkcontent +
167        '<a href="' + home + path + t2 + '">>></a>]  <a href="' + home + path +        '<a href="' + home + path + t2 + '">>></a></b>]  <b><a href="' + home + path +
168        '#article">最新</a></b></center>';        '#article">最新</a></b></center></nav>';
169      result := Format(s1, [FDTable1.RecordCount, position * count + 1, k]) + s2;      result := Format(s1, [FDTable1.RecordCount, position * count + 1, k]) + s2;
170    end;    end;
171  end;  end;
# Line 218  begin Line 220  begin
220          ReplaceText := ReplaceText + s.Content;          ReplaceText := ReplaceText + s.Content;
221          FDTable1.Prior;          FDTable1.Prior;
222        end;        end;
223        ReplaceText := ReplaceText + '<hr>';        ReplaceText := '<article>' + ReplaceText + '</article>' + '<hr>';
224      end;      end;
225    end;    end;
226    if TagString = 'footer' then    if TagString = 'footer' then
227      if TagParams.Values['refer'] = 'true' then      if foo <> '' then
228        ReplaceText := foo        ReplaceText := foo
229      else      else
230      begin      begin
# Line 355  begin Line 357  begin
357    Response.SendRedirect(FDTable2.FieldByName('home').AsAnsiString + '/admin');    Response.SendRedirect(FDTable2.FieldByName('home').AsAnsiString + '/admin');
358  end;  end;
359    
360    procedure TWebModule1.WebModule1cssAction(Sender: TObject; Request: TWebRequest;
361      Response: TWebResponse; var Handled: Boolean);
362    var
363      s: string;
364    begin
365      s := Request.QueryFields.Values['css'];
366      if (s = 'main') or (s = 'pc') or (s = 'smart') or (s = 'tablet') then
367      begin
368        Response.ContentType := 'text/css';
369        Response.ContentStream := TResourceStream.Create(HInstance, s, RT_RCDATA);
370      end;
371    end;
372    
373  procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;  procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
374    Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);    Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
375  var  var
# Line 550  begin Line 565  begin
565    for i := 0 to Request.ContentFields.count - 1 do    for i := 0 to Request.ContentFields.count - 1 do
566    begin    begin
567      s := Request.ContentFields.Names[i];      s := Request.ContentFields.Names[i];
568      if s <> 'home' then      FDTable2.FieldByName(s).AsString := Request.ContentFields.ValueFromIndex[i]
       FDTable2.FieldByName(s).AsString :=  
         Request.ContentFields.ValueFromIndex[i]  
     else  
       FDTable2.FieldByName(s).AsString := Request.ContentFields.Values[s];  
569    end;    end;
570    FDTable2.Post;    FDTable2.Post;
571    Handled := false;    Handled := false;
# Line 576  begin Line 587  begin
587    Handled := false;    Handled := false;
588  end;  end;
589    
590    procedure TWebModule1.WebModuleAfterDispatch(Sender: TObject;
591      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
592    begin
593      foo := '';
594    end;
595    
596  procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject;  procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject;
597    Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);    Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
598  var  var
Legend:
Removed from v.12  
changed lines
  Added in v.13
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help