Diff of /WebModuleUnit1.pas

OSDN > Find Software > mybbs

 Browse Subversion Repository



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




Diff of /WebModuleUnit1.pas



 Parent Directory

|  Revision Log



|  Patch














revision 11 by yamat0jp,
Mon Sep 19 00:45:34 2016 UTC




revision 12 by yamat0jp,
Wed Sep 21 09:33:28 2016 UTC






#

Line 73 
 type


Line 73 
 type












73
     er: string;
     er: string;

















74
     foo: string;
     foo: string;

















75
     function footer(const path: string): string;
     function footer(const path: string): string;















76


     function regist(var com: string): integer;


     procedure regist(var com: string);















77
   end;
   end;

















78
 
 

















79
 var
 var











#

Line 87 
 implementation


Line 87 
 implementation












87
 
 

















88
 procedure TWebModule1.DataSetPageProducer2HTMLTag(Sender: TObject; Tag: TTag;
 procedure TWebModule1.DataSetPageProducer2HTMLTag(Sender: TObject; Tag: TTag;

















89
   const TagString: string; TagParams: TStrings; var ReplaceText: string);
   const TagString: string; TagParams: TStrings; var ReplaceText: string);












90
 
 var







91
 
   s: TURLEncoding;












92
 begin
 begin

















93
   ReplaceText := FDTable1.FieldByName(TagString).AsString;
   ReplaceText := FDTable1.FieldByName(TagString).AsString;












94
 
   if TagString = 'com' then







95
 
     regist(ReplaceText);












96
 end;
 end;

















97
 
 

















98
 function TWebModule1.footer(const path: string): string;
 function TWebModule1.footer(const path: string): string;











#

Line 240 
 begin


Line 244 
 begin












244
     ReplaceText := 'checked="checked"';
     ReplaceText := 'checked="checked"';

















245
 end;
 end;

















246
 
 















247


 function TWebModule1.regist(var com: string): integer;


 procedure TWebModule1.regist(var com: string);















248
 var
 var

















249
   i: integer;
   i: integer;

















250
 begin
 begin














   result := 1;
 













251
   i := 1;
   i := 1;

















252
   while True do
   while True do

















253
   begin
   begin











#

Line 254 
 begin


Line 257 
 begin












257
     Delete(com, i, Length(#$D#$A));
     Delete(com, i, Length(#$D#$A));

















258
     Insert('<br>', com, i);
     Insert('<br>', com, i);

















259
     inc(i, 4);
     inc(i, 4);














     inc(result);
 













260
   end;
   end;

















261
 end;
 end;

















262
 
 











#

Line 406 
 var


Line 408 
 var












408
   no, line: integer;
   no, line: integer;

















409
   i: integer;
   i: integer;

















410
   s: TResourceStream;
   s: TResourceStream;












411
 
   t: TURLEncoding;












412
 begin
 begin

















413
   with Request.ContentFields do
   with Request.ContentFields do

















414
   begin
   begin











#

Line 423 
 begin


Line 426 
 begin












426
   if com = '' then
   if com = '' then

















427
     er := '本文がありません.'#$D#$A
     er := '本文がありません.'#$D#$A

















428
   else
   else















429


     line := regist(com);


     for i := 1 to Length(com) do













430


 


       if Copy(com, i, i + 2) = #$D#$A then













431


 


         inc(line);















432
   for i := 0 to words.count - 1 do
   for i := 0 to words.count - 1 do

















433
     if ContainsText(AnsiString(com), AnsiString(words[i])) = True then
     if ContainsText(AnsiString(com), AnsiString(words[i])) = True then

















434
     begin
     begin











#

Line 451 
 begin


Line 456 
 begin












456
     end;
     end;

















457
     Exit;
     Exit;

















458
   end;
   end;















459


   FDTable1.AppendRecord([na, no, DateTimeToStr(Now), sub, com, pass, line]);


   t := TURLEncoding.Create;













460


 


   try













461


 


     FDTable1.AppendRecord([na, no, DateTimeToStr(Now), sub,













462


 


       ReplaceText(ReplaceText(com, '<', t.Encode('<')), '>', t.Encode('>')),













463


 


       pass, line]);













464


 


   finally













465


 


     t.Free;













466


 


   end;















467
   with Response.Cookies.Add do
   with Response.Cookies.Add do

















468
   begin
   begin

















469
     path := '/';
     path := '/';





























Legend:



Removed from v.11
 


changed lines


 
Added in v.12













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[bbs-as-pbbs]/WebModuleUnit1.pas
-revision 11 by yamat0jp,
Mon Sep 19 00:45:34 2016 UTC
+revision 12 by yamat0jp,
Wed Sep 21 09:33:28 2016 UTC
 Line 73 
 type
      er: string;
      foo: string;
      function footer(const path: string): string;
-     function regist(var com: string): integer;
+     procedure regist(var com: string);
    end;
  var
 Line 87 
 implementation
  procedure TWebModule1.DataSetPageProducer2HTMLTag(Sender: TObject; Tag: TTag;
    const TagString: string; TagParams: TStrings; var ReplaceText: string);
+ var
+   s: TURLEncoding;
  begin
    ReplaceText := FDTable1.FieldByName(TagString).AsString;
+   if TagString = 'com' then
+     regist(ReplaceText);
  end;
  function TWebModule1.footer(const path: string): string;
-Line 240 
 begin
+Line 244 
 begin
      ReplaceText := 'checked="checked"';
  end;
- function TWebModule1.regist(var com: string): integer;
+ procedure TWebModule1.regist(var com: string);
  var
    i: integer;
  begin
-   result := 1;
    i := 1;
    while True do
    begin
-Line 254 
 begin
+Line 257 
 begin
      Delete(com, i, Length(#$D#$A));
      Insert('<br>', com, i);
      inc(i, 4);
-     inc(result);
    end;
  end;
-Line 406 
 var
+Line 408 
 var
    no, line: integer;
    i: integer;
    s: TResourceStream;
+   t: TURLEncoding;
  begin
    with Request.ContentFields do
    begin
-Line 423 
 begin
+Line 426 
 begin
    if com = '' then
      er := '本文がありません.'#$D#$A
    else
-     line := regist(com);
+     for i := 1 to Length(com) do
+       if Copy(com, i, i + 2) = #$D#$A then
+         inc(line);
    for i := 0 to words.count - 1 do
      if ContainsText(AnsiString(com), AnsiString(words[i])) = True then
      begin
-Line 451 
 begin
+Line 456 
 begin
      end;
      Exit;
    end;
-   FDTable1.AppendRecord([na, no, DateTimeToStr(Now), sub, com, pass, line]);
+   t := TURLEncoding.Create;
+   try
+     FDTable1.AppendRecord([na, no, DateTimeToStr(Now), sub,
+       ReplaceText(ReplaceText(com, '<', t.Encode('<')), '>', t.Encode('>')),
+       pass, line]);
+   finally
+     t.Free;
+   end;
    with Response.Cookies.Add do
    begin
      path := '/';
 Legend:



Removed from v.11
 


changed lines


 
Added in v.12
 Legend:



Removed from v.11
 


changed lines


 
Added in v.12
-Removed from v.11
+Added in v.12
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

mybbs

Browse Subversion Repository