・書き込み時の新しい「書きこみ＆クッキー」メッセージに対応

・板一覧更新でゴミを登録しないよう修正

diff --git a/Editor.pas b/Editor.pas
index a9100ce..02f43cc 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -1087,6 +1087,9 @@ begin
        else if (AnsiPos('\81E\93\8a\8de\8eÒ\82Í\81A\8cf\8e¦\94Â\89^\89c\8eÒ\82É\91Î\82µ\82Ä\81A\92\98\8dì\8eÒ\90l\8ai\8c \82ð\88ê\90Ø\8ds\8eg\82µ\82È\82¢\82±\82Æ\82ð\8f³\91ø\82µ\82Ü\82·\81B<br>', ResponseText) > 0) or
                                         (AnsiPos('\81i\92\98\8dì\8c \96@\91æ21\8fð\82È\82¢\82µ\91æ28\8fð\82É\8bK\92è\82³\82ê\82é\8c \97\98\82à\8aÜ\82Þ\81j\82»\82Ì\91¼\82Ì\8c \97\98\82É\82Â\82«\81A', ResponseText) > 0) then
                 Result := grtCookie
+    else if (AnsiPos('\8f\91\82«\82±\82Ý\81\95\83N\83b\83L\81[\8am\94F', ResponseText) > 0) or
+            (AnsiPos('(cookie\82ð\90Ý\92è\82·\82é\82Æ\82±\82Ì\89æ\96Ê\82Í\82Å\82È\82­\82È\82è\82Ü\82·\81B)', ResponseText) > 0) then
+        Result := grtCookie
     else
         Result := grtError;
 end;

diff --git a/NewBoard.pas b/NewBoard.pas
index 1cf9497..8c3a9a8 100644 (file)
--- a/NewBoard.pas
+++ b/NewBoard.pas
@@ -222,7 +222,8 @@ begin
                        while True do begin
                                idx1 := AnsiPos('<b>', s);
                                idx2 := AnsiPos('<a', s);
-                               if (idx1 = 0) and (idx2 = 0) then Break;
+//                             if (idx1 = 0) and (idx2 = 0) then Break;
+                               if (idx2 = 0) then Break;   // \82à\82¤URL\82Í\82È\82¢
 
                                if idx1 < idx2 then begin
                                        //<br>

diff --git a/gikoNavi.res b/gikoNavi.res
index 067a664..dfd00e5 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ