From becd331663d47edd844cba6862d933aef587bb62 Mon Sep 17 00:00:00 2001 From: zako Date: Thu, 18 Dec 2014 20:36:16 +0900 Subject: [PATCH] =?utf8?q?=E3=81=BE=E3=81=A1BBS=E3=81=A7=E3=82=A8=E3=83=A9?= =?utf8?q?=E3=83=BC=E6=96=87=E5=AD=97=E5=88=97=E3=82=92=E5=8F=97=E4=BF=A1?= =?utf8?q?=E3=81=97=E3=81=9F=E5=A0=B4=E5=90=88=E3=81=AB=E5=89=8A=E9=99=A4?= =?utf8?q?=E3=83=AC=E3=82=B9=E3=81=A8=E5=90=8C=E3=81=98=E6=89=B1=E3=81=84?= =?utf8?q?=E3=81=AB=E3=81=97=E3=81=A6=E3=81=97=E3=81=BE=E3=81=86=E4=B8=8D?= =?utf8?q?=E5=85=B7=E5=90=88=E3=82=92=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- gikoNavi.res | Bin 4316 -> 4316 bytes res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr | 61 ++++++++++++++++------------- res/ExternalBoardPlugIn/MachiBBSPlugIn.res | Bin 1540 -> 1540 bytes 3 files changed, 33 insertions(+), 28 deletions(-) diff --git a/gikoNavi.res b/gikoNavi.res index d9e594aa858cc8729cbea140e1fd28fbc7a428c1..d9a7c1f65b12e55b4d3595f0a0bd837d9117a097 100644 GIT binary patch delta 31 ncmcbkct>%=8(z*JW(EdV21bUU&0l%h8JSHP3^xDgyUPdwoZSgs delta 31 ncmcbkct>%=8(z*pW(EdV21bU!&0l%h8JSHOEI0q>yUPdwoaG5) diff --git a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr index 807ffda..f3b1a7e 100644 --- a/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr +++ b/res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr @@ -86,7 +86,7 @@ const MAJOR_VERSION = 1; MINOR_VERSION = 0; RELEASE_VERSION = 'beta'; - REVISION_VERSION = 24; + REVISION_VERSION = 25; // ========================================================================= // ŽG—pŠÖ” @@ -454,6 +454,8 @@ end; // Žw’肵‚½ URL ‚̃XƒŒƒbƒh‚̃_ƒEƒ“ƒ[ƒh‚ðŽwŽ¦‚³‚ꂽ // ************************************************************************* function TMachiBBSThreadItem.Download : TDownloadState; +const + RES_ERROR: String = ''; var modified : Double; tmp : PChar; @@ -474,7 +476,8 @@ var if responseCode = 200 then begin // API‚Å‚ÍdatŒ`Ž®‚Å•Ô‚Á‚Ä‚­‚é content.Text := string( tmp ); - To2chDat2( content ); // Œ`Ž®•ÏŠ· + if (content.Count > 0) and (Pos(RES_ERROR, content.Strings[0]) <> 1) then + To2chDat2( content ); // Œ`Ž®•ÏŠ· (* ‹ŒŽd—liHTML‚ÅŽóM‚µdat‚É•ÏŠ·‚·‚éj downResult := TStringList.Create; try @@ -562,40 +565,42 @@ begin downAndParse; if content.Count > 0 then begin - if Count <= 0 then begin - Result := dsComplete; - // V‹K‘‚«ž‚Ý - content[ 0 ] := content[ 0 ] + Title; - logStream := TFileStream.Create( FilePath, fmCreate or fmShareDenyWrite ); - try - logStream.Position := logStream.Size; - logStream.Write( PChar( content.Text )^, Length( content.Text ) ); - finally - logStream.Free; - end; - NewReceive := 1; - Count := content.Count; - end else begin - if (content.Count > 1) or (Trim(content.Text) <> '') then begin - Result := dsDiffComplete; - // ’Ç‹L - logStream := TFileStream.Create( FilePath, fmOpenReadWrite or fmShareDenyWrite ); + if (Pos(RES_ERROR, content.Strings[0]) <> 1) then begin + if Count <= 0 then begin + Result := dsComplete; + // V‹K‘‚«ž‚Ý + content[ 0 ] := content[ 0 ] + Title; + logStream := TFileStream.Create( FilePath, fmCreate or fmShareDenyWrite ); try logStream.Position := logStream.Size; logStream.Write( PChar( content.Text )^, Length( content.Text ) ); finally logStream.Free; end; - NewReceive := Count + 1; - Count := Count + content.Count; + NewReceive := 1; + Count := content.Count; end else begin - Result := dsNotModify; + if (content.Count > 1) or (Trim(content.Text) <> '') then begin + Result := dsDiffComplete; + // ’Ç‹L + logStream := TFileStream.Create( FilePath, fmOpenReadWrite or fmShareDenyWrite ); + try + logStream.Position := logStream.Size; + logStream.Write( PChar( content.Text )^, Length( content.Text ) ); + finally + logStream.Free; + end; + NewReceive := Count + 1; + Count := Count + content.Count; + end else begin + Result := dsNotModify; + end; + end; + if (Result <> dsNotModify) then begin + // CGI ‚©‚ç‚͐³‚µ‚¢“ú•t‚ª“¾‚ç‚ê‚È‚¢‚Ì‚ÅŒ»Ý‚ɐݒè + LastModified := Now; + NewResCount := content.Count; end; - end; - if (Result <> dsNotModify) then begin - // CGI ‚©‚ç‚͐³‚µ‚¢“ú•t‚ª“¾‚ç‚ê‚È‚¢‚Ì‚ÅŒ»Ý‚ɐݒè - LastModified := Now; - NewResCount := content.Count; end; end else begin Result := dsNotModify; diff --git a/res/ExternalBoardPlugIn/MachiBBSPlugIn.res b/res/ExternalBoardPlugIn/MachiBBSPlugIn.res index ba1e1da7128e3c22a7db1811c95c1d2cc6c0b522..f771f2df419e981475bf164b018bd43099bfdf95 100644 GIT binary patch delta 28 icmZqSY2n#$h?!H8fq{V$h$SbVX1>g5x_LfJDkA`4iU#-q delta 28 icmZqSY2n#$h?!G@fq{V$h$SYUX1>g5vUxsBDkA`4WCryB -- 2.11.0