From 8f8b36e13f8327ba77be2b1f8256c9f943d96c24 Mon Sep 17 00:00:00 2001 From: h677 Date: Sun, 2 Jul 2006 09:48:04 +0000 Subject: [PATCH] =?utf8?q?=E3=81=97=E3=81=9F=E3=82=89=E3=81=B0JBBS?= =?utf8?q?=E3=81=AE=E6=9D=BF=E6=9B=B4=E6=96=B0=E3=81=8C=E5=8B=95=E4=BD=9C?= =?utf8?q?=E3=81=97=E3=81=AA=E3=81=84=E4=B8=8D=E5=85=B7=E5=90=88=E3=81=AE?= =?utf8?q?=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- .../ShitarabaJBBSAcquireBoard.pas | 27 ++++++++++++++------- res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr | 4 +-- res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.res | Bin 1540 -> 1540 bytes 3 files changed, 20 insertions(+), 11 deletions(-) diff --git a/res/ExternalBoardPlugIn/ShitarabaJBBSAcquireBoard.pas b/res/ExternalBoardPlugIn/ShitarabaJBBSAcquireBoard.pas index cf2641b..ea47d85 100644 --- a/res/ExternalBoardPlugIn/ShitarabaJBBSAcquireBoard.pas +++ b/res/ExternalBoardPlugIn/ShitarabaJBBSAcquireBoard.pas @@ -202,10 +202,13 @@ var htmlList : TStringList; i : Integer; const - BBS_HOST = 'http://jbbs.livedoor.jp/'; + //http://rentalbbs.livedoor.com/jbbs/search/?word=%C2%E7%B3%D8&category=auto + BBS_HOST = 'http://rentalbbs.livedoor.com/'; + BOARD_HOST = 'http://jbbs.livedoor.jp/'; CATEGORIES : array[0..14] of string = ( 'auto', 'computer', 'game', 'movie', 'music', 'shop', 'sports', 'travel', 'buisiness', 'study', 'news', 'otaku', 'anime', 'comic', 'school' ); + MSG_CONTENTAREA = ''; label NextBoard; begin @@ -219,34 +222,40 @@ begin '”î•ñ‚ðŽæ“¾’†‚Å‚·( "' + category + '", "' + boardname + '" )' + #13#10; try url := - BBS_HOST + 'bbs/left_menu.cgi?CATEGORY=' + category + + BBS_HOST + 'jbbs/search/?CATEGORY=' + category + '&WORD=' + HttpEncode( SJIStoEUC( boardname ) ); responseCode := InternalDownload( PChar( url ), modified, tmp ); try if (responseCode = 200) or (responseCode = 206) then begin downResult := EUCtoSJIS( tmp ); + if (AnsiPos(MSG_CONTENTAREA, downResult) > 0) then begin + downResult := Copy(downResult, + AnsiPos(MSG_CONTENTAREA, downResult) + Length(MSG_CONTENTAREA), + Length(downResult)); + end; htmlList := TStringList.Create(); try - downResult := CustomStringReplace(downResult, '', ''); - downResult := CustomStringReplace(downResult, '', ''); htmlList.Text := CustomStringReplace(downResult, '
', #13#10); for i := htmlList.Count - 1 downto 0 do begin downResult := htmlList[i]; try //ƒgƒˆƒ^Ž©“®ŽÔŒfŽ¦” - if (AnsiPos(category, downResult) > 0) and (AnsiPos('–¾Ž¡‘åŠw@“ñ•”E’Z‘å + if (AnsiPos('', downResult) + 2, - Length(downResult)); + key := Copy(board, AnsiPos('">', board) + 2, + Length(board)); key := Copy(key, 1, AnsiPos('', key) -1); board := Copy(board, 1, AnsiPos('">', board) - 1); if (board = '../') then begin - board := CustomStringReplace(board, '../', BBS_HOST); + board := CustomStringReplace(board, '../', BOARD_HOST); end else if (AnsiPos('/', board) = 1) then begin - board := BBS_HOST + Copy(board, 2, Length(board)); + board := BOARD_HOST + Copy(board, 2, Length(board)); end; board := key + '=' + board; diff --git a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr index c416f46..3532d2a 100644 --- a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr +++ b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.dpr @@ -2,7 +2,7 @@ library ShitarabaJBBSPlugIn; { ShitarabaJBBSPlugIn - $Id: ShitarabaJBBSPlugIn.dpr,v 1.43 2006/02/21 15:58:27 h677 Exp $ + $Id: ShitarabaJBBSPlugIn.dpr,v 1.44 2006/07/02 09:48:04 h677 Exp $ } uses @@ -83,7 +83,7 @@ const MAJOR_VERSION = 1; MINOR_VERSION = 1; RELEASE_VERSION = 'alpha'; - REVISION_VERSION = 14; + REVISION_VERSION = 15; SYNCRONIZE_MENU_CAPTION = '‚µ‚½‚ç‚ÎJBBS”XV'; diff --git a/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.res b/res/ExternalBoardPlugIn/ShitarabaJBBSPlugIn.res index fc3f32349503e89306e9c0ab3964744db83c27ff..7b30fbc2973204865342ff3929778f414d44e425 100644 GIT binary patch delta 28 icmZqSY2n#$h?$e0fe{E982BfjX1>g5x_LfJDkA`3Tn6O; delta 28 icmZqSY2n#$h?$d*fe{E982BciX1>g5vUxsBDkA`3HU{DV -- 2.11.0