セキュアクッキーやめました

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 7b86976..585095e 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -849,11 +849,11 @@ begin
     Name := 'user';
     Value := hash(Request.ContentFields.Values['password']);
     Expires := Now + 14;
-    Secure := true;
+//    Secure := true;
   end;
   i := DataModule1.FDTable1.Lookup('database',
     Request.ContentFields.Values['record'], 'dbnum');
-  Response.SendResponse;
+  Response.SendRedirect('/admin?db='+i.ToString);
 end;
 
 procedure TWebModule1.WebModule1logoutAction(Sender: TObject;