Folder.iniに冒険の書が記録されている場合削除してから投稿するように修正

diff --git a/Editor.pas b/Editor.pas
index 7102345..93b311e 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -1196,6 +1196,10 @@ begin
                                        Board.SPID      := '';
                                        Board.PON               := '';
                                end;
+                // \96`\8c¯\82Ì\8f\91\83\8c\83x\83\8b\96ß\82é\96â\91è\91Î\89\9e
+                if (Board.Is2ch) and (AnsiPos('HAP=', Board.Cookie)>0) then begin
+                    Board.Cookie := '';
+                end;
                                Send(Board.Cookie, Board.SPID, Board.PON, True);
                        end else begin
                                if not FSambaTimer.CheckSambaTime(Now()) then begin
@@ -1224,6 +1228,10 @@ begin
                                        Board.SPID      := '';
                                        Board.PON               := '';
                                end;
+                // \96`\8c¯\82Ì\8f\91\83\8c\83x\83\8b\96ß\82é\96â\91è\91Î\89\9e
+                if (Board.Is2ch) and (AnsiPos('HAP=', Board.Cookie)>0) then begin
+                    Board.Cookie := '';
+                end;
                                Send(Board.Cookie, Board.SPID, Board.PON, True);
                        end;
                end;
@@ -1939,9 +1947,7 @@ begin
         end;
         for i := 0 to curCookies.Count - 1 do begin
             if (curCookies.Strings[i] <> '') then begin
-                if (AnsiPos(VAL_HAP + '=', curCookies.Strings[i]) <> 1 ) then begin
-                    ABoard.Cookie := ABoard.Cookie + curCookies.Strings[i] + '; ';
-                end;
+                ABoard.Cookie := ABoard.Cookie + curCookies.Strings[i] + '; ';
             end;
         end;
     finally
@@ -2457,7 +2463,8 @@ end;
 function TEditorForm.getHeaderStr(const ACOOKIE: string; const SPID : string;
     const PON : string; const HAP : string; Board : TBoard) : string;
 begin
-       Result := ACOOKIE;
+    Result := ACOOKIE;
+
        if SPID <> '' then
                Result := Result + 'SPID=' + SPID + '; ';
        if PON <> '' then