• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revisione65842accac2bc118eb9e3e46360536efdb0d0ca (tree)
Time2009-02-09 00:39:34
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_60_0_780'.

Change Summary

Incremental Difference

--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -279,7 +279,7 @@ type
279279 public
280280 constructor Create(const inPlugIn : TBoardPlugIn; const inBoard : TBoard; inURL : string ); overload;
281281 constructor Create(const inPlugIn : TBoardPlugIn; const inBoard : TBoard;
282- inURL : string; inExist: Boolean; const inFilename: string ); overload;
282+ const inURL : string; inExist: Boolean; const inFilename: string ); overload;
283283
284284 destructor Destroy; override;
285285
@@ -1574,7 +1574,7 @@ end;
15741574 constructor TThreadItem.Create(
15751575 const inPlugIn : TBoardPlugIn;
15761576 const inBoard : TBoard;
1577- inURL : string;
1577+ const inURL : string;
15781578 inExist: Boolean;
15791579 const inFilename: string
15801580 );
@@ -1589,7 +1589,7 @@ begin
15891589 // dat の保存パスを設定
15901590 FileName := inFilename;
15911591 IsLogFile := inExist;
1592- URL := GikoSys.Get2chBrowsableThreadURL( inURL );
1592+ URL := inURL;
15931593 end else begin
15941594 // プラグインに TThreadItem が作成されたことを伝える
15951595 inPlugIn.CreateThreadItem( DWORD( Self ) );
--- a/GikoBayesian.pas
+++ b/GikoBayesian.pas
@@ -5,7 +5,7 @@ unit GikoBayesian;
55 \brief ベイジアンフィルタ
66
77
8-$Id: GikoBayesian.pas,v 1.21 2006/06/26 14:57:15 h677 Exp $
8+$Id: GikoBayesian.pas,v 1.22 2009/01/31 15:47:15 h677 Exp $
99 }
1010
1111 //! 平仮名を辞書に含めない
@@ -310,12 +310,12 @@ begin
310310
311311 for i := 1 to sl.Count - 1 do begin
312312 s := sl[ i ];
313- name := RemoveToken( s, #1 );
313+ name := GikoBayesian.RemoveToken( s, #1 );
314314 info := TWordInfo.Create;
315- info.NormalWord := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );
316- info.ImportantWord := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );
317- info.NormalText := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );
318- info.ImportantText := StrToIntDef( '$' + RemoveToken( s, #1 ), 0 );
315+ info.NormalWord := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
316+ info.ImportantWord := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
317+ info.NormalText := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
318+ info.ImportantText := StrToIntDef( '$' + GikoBayesian.RemoveToken( s, #1 ), 0 );
319319
320320 AddObject( name, info );
321321 end;
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -181,7 +181,7 @@ type
181181
182182 procedure MenuFont(Font: TFont);
183183
184- function RemoveToken(var s:string; const delimiter:string):string;
184+// function RemoveToken(var s:string; const delimiter:string):string;
185185 function GetTokenIndex(s: string; delimiter: string; index: Integer): string;
186186
187187 function GetShortName(const LongName: string; ALength: integer): string;
@@ -264,7 +264,7 @@ const
264264 ZERO_DATE: Integer = 25569;
265265 BETA_VERSION_NAME_E = 'beta';
266266 BETA_VERSION_NAME_J = 'バタ';
267- BETA_VERSION = 59;
267+ BETA_VERSION = 60;
268268 BETA_VERSION_BUILD = ''; //!< debug版など
269269 APP_NAME = 'gikoNavi';
270270 BE_PHP_URL = 'http://be.2ch.net/test/p.php?i=';
@@ -645,7 +645,7 @@ begin
645645 end;
646646 end;
647647
648- ThreadItem.BeginUpdate;
648+ //ThreadItem.BeginUpdate;
649649 if (datFileCheck) and (islog) then
650650 FileList.Delete( Index );
651651
@@ -670,7 +670,7 @@ begin
670670 Node := FavoriteDM.TreeView.Items.AddChildObject( FavoriteDM.TreeView.Items.Item[0], ThreadItem.Title, FavoThreadItem);
671671 *}
672672
673- ThreadItem.EndUpdate;
673+ //ThreadItem.EndUpdate;
674674 Board.Add(ThreadItem);
675675
676676 if (ThreadItem.UnRead) and (ThreadItem.IsLogFile) then
@@ -699,7 +699,7 @@ begin
699699 Board.IsThreadDatRead := True;
700700 {$IFDEF DEBUG}
701701 rt := GetTickCount - st;
702- Writeln('Read Done.' + IntToStr(rt) + ' ms');
702+ Writeln('Read Done.' + Board.Title + ':' + IntToStr(rt) + ' ms');
703703 {$ENDIF}
704704 end;
705705 {!
@@ -943,7 +943,7 @@ begin
943943 Result.FLastModified := IntToDateTime(StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), ZERO_DATE));
944944 Result.FKokomade := StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), -1);
945945 Result.FNewReceive := StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), 0);
946- RemoveToken(Line, #1);//9: ; //未使用
946+ MojuUtils.RemoveToken(Line, #1);//9: ; //未使用
947947 Result.FUnRead := IntToBool(StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), 0));
948948 Result.FScrollTop := StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), 0);
949949 Result.FAllResCount := StrToIntDef('$' + MojuUtils.RemoveToken(Line, #1), 0);
@@ -1098,8 +1098,8 @@ begin
10981098 Delim := ','
10991099 else
11001100 Delim := '<>';
1101- Result.FFileName := RemoveToken(Line, Delim);
1102- Result.FTitle := Trim(RemoveToken(Line, Delim));
1101+ Result.FFileName := MojuUtils.RemoveToken(Line, Delim);
1102+ Result.FTitle := Trim(MojuUtils.RemoveToken(Line, Delim));
11031103
11041104 ws := Result.FTitle;
11051105 if Copy(ws, Length(ws), 1) = ')' then begin
@@ -1363,7 +1363,7 @@ end;
13631363
13641364 どこかのサイトからのパクリ
13651365 }
1366-function TGikoSys.RemoveToken(var s: string;const delimiter: string): string;
1366+{function TGikoSys.RemoveToken(var s: string;const delimiter: string): string;
13671367 var
13681368 p: Integer;
13691369 begin
@@ -1374,7 +1374,7 @@ begin
13741374 Result := Copy(s, 1, p - 1);
13751375 Delete(s, 1, Length(Result) + Length(delimiter));
13761376 end;
1377-
1377+}
13781378
13791379 {!
13801380 \brief n 個目のトークンを切り出し
@@ -1390,7 +1390,7 @@ var
13901390 begin
13911391 Result := '';
13921392 for i := 0 to index do
1393- Result := RemoveToken(s, delimiter);
1393+ Result := MojuUtils.RemoveToken(s, delimiter);
13941394 end;
13951395
13961396
@@ -1632,7 +1632,7 @@ begin
16321632 SI.cbReserved2 := 0;
16331633 SI.lpReserved2 := nil;
16341634 SI.dwysize := 0;
1635- Windows.CreateProcess(nil,
1635+ if Windows.CreateProcess(nil,
16361636 PChar(Path),
16371637 nil,
16381638 nil,
@@ -1641,7 +1641,11 @@ begin
16411641 nil,
16421642 nil,
16431643 SI,
1644- PI);
1644+ PI) then
1645+ begin
1646+ CloseHandle(PI.hProcess);
1647+ end;
1648+
16451649 end;
16461650
16471651 {!
--- a/HTMLCreate.pas
+++ b/HTMLCreate.pas
@@ -1459,10 +1459,10 @@ begin
14591459 Line := CustomStringReplace(Line, '@`', ',');
14601460 end;
14611461 //Trimしてはいけない気がする byもじゅ
1462- PRes.FName := RemoveToken(Line, delimiter);
1463- PRes.FMailTo := RemoveToken(Line, delimiter);
1464- PRes.FDateTime := RemoveToken(Line, delimiter);
1465- PRes.FBody := RemoveToken(Line, delimiter);
1462+ PRes.FName := MojuUtils.RemoveToken(Line, delimiter);
1463+ PRes.FMailTo := MojuUtils.RemoveToken(Line, delimiter);
1464+ PRes.FDateTime := MojuUtils.RemoveToken(Line, delimiter);
1465+ PRes.FBody := MojuUtils.RemoveToken(Line, delimiter);
14661466 //2ちゃんねるとかだと、本文の先頭に1つ半角空白が入っているので削除する
14671467 //他の掲示板で、レス自体の空白かもしれないけどそれは諦める
14681468 PRes.FBody := TrimLeft(PRes.FBody);
@@ -1470,7 +1470,7 @@ begin
14701470 if PRes.FBody = '' then
14711471 PRes.FBody := '&nbsp;';
14721472
1473- PRes.FTitle := RemoveToken(Line, delimiter);
1473+ PRes.FTitle := MojuUtils.RemoveToken(Line, delimiter);
14741474 end;
14751475
14761476 {!
--- a/UpdateCheck.pas
+++ b/UpdateCheck.pas
@@ -80,7 +80,7 @@ const
8080 CHECK_URL = 'http://gikonavi.sourceforge.jp/updater/latest.txt';
8181 {$ENDIF}
8282 var
83- value : string;
83+ value, url : string;
8484 ResStream: TMemoryStream;
8585 downResult, current, newest: TStringList;
8686 newgiko: Boolean;
@@ -129,8 +129,10 @@ begin
129129 newgiko := false;
130130 // night buildは、ビルド番号だけで判定する
131131 if (nightbuild) then begin
132+ url := downResult.Values[ 'n_url' ];
132133 newgiko := StrToInt(current[3]) < StrToInt(newest[3]);
133134 end else begin
135+ url := downResult.Values[ 'url' ];
134136 newgiko := ( StrToInt(current[1]) < StrToInt(newest[1]) ) or
135137 ( (StrToInt(current[1]) = StrToInt(newest[1]))) and
136138 ((StrToInt(current[2]) < StrToInt(newest[2])) );
@@ -138,9 +140,8 @@ begin
138140 if (newgiko) then begin
139141 if GikoUtil.MsgBox(Handle, '新しいギコナビがあります。ダウンロードしますか?', '更新確認',
140142 MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) = ID_YES then begin
141-
142- ResultMemo.Lines.Add('新しいギコナビがあります。ダウンロードを開始します。' + downResult.Values[ 'url' ]);
143- DonwloadUpdate(Trim(downResult.Values[ 'url' ]));
143+ ResultMemo.Lines.Add('新しいギコナビがあります。ダウンロードを開始します。' + url);
144+ DonwloadUpdate(Trim(url));
144145 Result := True;
145146 end;
146147 end else begin
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/gikoSetup.iss
+++ b/readme/gikoSetup.iss
@@ -13,8 +13,8 @@ SourceDir=G:\Release
1313 OutputDir=G:\InnoSetup\Output
1414 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
1515 ; ギコナビのバージョンにあわせてください
16-VersionInfoVersion=1.58.1.764
17-OutputBaseFilename=gikoNavi_b58_setup
16+VersionInfoVersion=1.59.1.778
17+OutputBaseFilename=gikoNavi_b59_setup
1818
1919
2020 [Tasks]
--- a/readme/gikoUSetup.iss
+++ b/readme/gikoUSetup.iss
@@ -18,8 +18,8 @@ SourceDir=G:\Release
1818 OutputDir=G:\InnoSetup\Output
1919 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
2020 ; ギコナビのバージョンにあわせてください
21-VersionInfoVersion=1.59.0.778
22-OutputBaseFilename=gikoNavi_b59_778_usetup
21+VersionInfoVersion=1.60.0.779
22+OutputBaseFilename=gikoNavi_b60_779_usetup
2323 CreateUninstallRegKey=no
2424
2525 [Tasks]
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -1,4 +1,4 @@
1-■ギコナビ Version1.00 バタ59 Readme.txt
1+■ギコナビ Version1.00 バタ60 Readme.txt
22
33
44 ------------------------------
@@ -108,8 +108,19 @@ LICENSE
108108 ------------------------------
109109 履歴
110110 ------------------------------
111-2008/XX/XX
111+2009/XX/YY
112+ Version バタ60
113+
114+
115+2009/02/01
112116 Version バタ59
117+ レス本文中にAタグ以外のタグが含まれると、レスポップアップで、本文が欠ける不具合の修正
118+ ギコナビ更新機能追加
119+ メインフォームで利用しているアイコンの画像を差し替えれるように修正
120+ 保存したタブのログが存在しない場合にこける問題の修正
121+ RoundBoard.2ch、RoundItem.2chの内容が1行もない場合クラッシュするバグの修正
122+ 前回投稿時とIPアドレス(ホスト名)が変わっているときに、Cookie情報が空になる不具合の修正
123+ したらばJBBSの過去ログで、投稿日+IDの前に"投稿日:"の文字列がない場合に対応
113124
114125 2008/09/16
115126 Version バタ58
Show on old repository browser