書き込み完了時にCookieの更新をするようにした。

diff --git a/Editor.pas b/Editor.pas
index 41926f9..846d6c7 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -826,6 +826,7 @@ begin
                 begin
                     FSambaTimer.WriteSambaTime(Now());
                 end;
+                GetCookie(Indy.CookieManager, Board);
                                State := gdsComplete;
                        end else if ResultType = grtCookie then begin
                                //\83\8b\81[\83v\96h\8e~
@@ -907,6 +908,8 @@ begin
                                                '\8bM\95û\82Ì\96`\8c¯\82Ì\8f\91\82ð\8dì\90¬\92\86\82Å\82·\81B\88ø\82«\95Ô\82·\82È\82ç\82¢\82Ü\82¾\81B(\82Q\95ª\82Ù\82Ç\82©\82©\82è\82Ü\82·)' + #13#10
                                                , '\8am\94F',
                                                MB_OK or MB_ICONQUESTION);
+                Board.PON  := '';
+                Board.SPID := '';
                 GetCookie(Indy.CookieManager, Board);
                 // \96`\8c¯\82Ì\8f\91\82Ì\95Û\91¶
                 GikoSys.Setting.WriteBoukenSettingFile;
@@ -993,10 +996,12 @@ begin
        if AnsiPos('\8f\91\82«\82±\82Ý\82ª\8fI\82í\82è\82Ü\82µ\82½', ResponseText) <> 0 then
                Result := grtOK
     else if (AnsiPos('\82d\82q\82q\82n\82q\81F\8bM\95û\82Ì\96`\8c¯\82Ì\8f\91\82ð\8dì\90¬\92\86\82Å\82·', ResponseText) > 0)
-             //(AnsiPos('\82d\82q\82q\82n\82q\81F\8fC\8ds\82ª\91«\82è\82Ü\82¹\82ñ', ResponseText) > 0) or   \83G\83\89\81[\88µ\82¢
-              //(AnsiPos('\82d\82q\82q\82n\82q\81FLv\82ª\91«\82è\82È\82­\82Ä\83X\83\8c\83b\83h\97§\82Ä', ResponseText) > 0) ) \83G\83\89\81[\88µ\82¢
                 and (AnsiPos(RES2CH_COOKIE, ResponseText) > 0)         then
         Result := grtBouken
+    else if ( (AnsiPos('\82d\82q\82q\82n\82q\81F\8fC\8ds\82ª\91«\82è\82Ü\82¹\82ñ', ResponseText) > 0) or   // \83G\83\89\81[\88µ\82¢
+              (AnsiPos('\82d\82q\82q\82n\82q\81FLv\82ª\91«\82è\82È\82­\82Ä\83X\83\8c\83b\83h\97§\82Ä', ResponseText) > 0) ) // \83G\83\89\81[\88µ\82¢
+              and (AnsiPos(RES2CH_COOKIE, ResponseText) > 0)   then
+        Result := grtError
        else if ( AnsiPos('\83N\83b\83L\81[\82ª\82È\82¢\82©\8aú\8cÀ\90Ø\82ê\82Å\82·', ResponseText) > 0) or
                                        (AnsiPos('<title>\83N\83b\83L\81[\8am\94F\81I</title>', ResponseText) > 0)    or
                                        (AnsiPos('<title>\81¡\83N\83b\83L\81[\8am\94F\81I\81¡</title>', ResponseText) > 0) or

diff --git a/gikoNavi.res b/gikoNavi.res
index a494c97..5ba2f7b 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ