コミット: 5e7ef90839d42b21920ae419b19eaa880bb5621c - gikonavi (git)

ギコナビ

コミットメタ情報

• リビジョン: 5e7ef90839d42b21920ae419b19eaa880bb5621c (tree)
• 日時: 2007-08-02 00:02:43
• 作者: cvs2git <cvs2git>
• コミッター: cvs2git

ログメッセージ

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

変更サマリ

• modified: BoardGroup.pas
• modified: Giko.pas
• modified: GikoDataModule.pas
• modified: GikoSystem.pas
• modified: KuroutSetting.dfm
• modified: KuroutSetting.pas
• modified: Setting.pas
• modified: gikoNavi.res
• modified: readme/gikoSetup.iss
• modified: readme/readme.txt
• modified: res/default/Samba.default

差分

--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -1787,18 +1787,7 @@ begin
             Result := ZERO_DATE
         else begin
             // ƒƒOƒtƒ@ƒCƒ‹‚ÌŠg’£Žq‚ð‚Í‚¸‚µ‚½‚à‚Ì‚ªƒXƒŒì¬“úŽž
-			tmp := ChangeFileExt(FFileName, '');
-			if AnsiPos('_', tmp) <> 0 then
-				if AnsiPos('_', tmp) > 9 then
-					tmp := Copy(tmp, 1, AnsiPos('_', tmp)-1)
-				else
-					Delete(tmp, AnsiPos('_', tmp), 1);
-
-			if ( Length(tmp) = 9) and ( tmp[1] = '0' ) then
-				Insert('1', tmp, 1);
-
-			unixtime := StrToInt64Def(tmp, ZERO_DATE);
-			Result := UnixToDateTime(unixtime) + OffsetFromUTC;
+            Result := GikoSys.GetCreateDateFromName(FFileName);
 			if GikoSys.Setting.FutureThread then begin
         		if CompareDateTime(Result, Now) = 1 then
             		Result := ZERO_DATE;

--- a/Giko.pas
+++ b/Giko.pas
@@ -686,6 +686,10 @@ type
         procedure SameBoardThreadSubItemOnClick(Sender: TObject);
         //! ƒ|ƒbƒvƒAƒbƒvƒuƒ‰ƒEƒUì¬
         procedure CreateResPopupBrowser;
+        //! D&D‚ðŽó‚¯Žæ‚é
+        procedure WMDropFiles(var Msg: TWMDropFiles); Message WM_DropFiles;
+        //! ƒtƒ@ƒCƒ‹ƒ`ƒFƒbƒN
+        function isValidFile(FileName: String) : boolean;
 	protected
 		procedure CreateParams(var Params: TCreateParams); override;
 		procedure WndProc(var Message: TMessage); override;
@@ -1312,6 +1316,8 @@ begin
 
     //’uŠ·Ý’èƒtƒ@ƒCƒ‹‚̓ǂݍž‚Ý
     ReplaceDM.LoadFromFile(GikoSys.GetReplaceFileName);
+    // D&D‚ðŽó‚¯Žæ‚é
+    DragAcceptFiles(Self.Handle, True);
 end;
 
 // CoolBar ‚̐ݒè‚ð•Ï”‚É•Û‘¶
@@ -1467,6 +1473,13 @@ begin
 			GikoDM.TabsOpenAction.Execute;
             GikoDM.TabsOpenAction.Tag := 0;
             if (GikoSys.Setting.LastCloseTabURL <> '') then begin
+                PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( FActiveContent.Browser ), 0 );
+                if ( FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
+            		while (FActiveContent.Browser.ReadyState <> READYSTATE_COMPLETE) and
+    			    	(FActiveContent.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
+            			Application.ProcessMessages;
+                    end;
+		        end;
                 item := BBSsFindThreadFromURL( GikoSys.Setting.LastCloseTabURL );
                 if (item <> nil) and (item.IsLogFile) then begin
                     OpenThreadItem(item, item.URL);
@@ -2740,7 +2753,8 @@ var
 begin
 	Thread := inThread;
 	idx := BrowserTab.TabIndex;
-	if (FActiveContent <> nil) and
+	if  (not FStartUp) and
+        (FActiveContent <> nil) and
 		(FActiveContent.Thread <> Thread.Thread) and
 		(FActiveContent.Browser <> nil) and
 		(Assigned(FActiveContent.Browser.Document)) then begin
@@ -2777,6 +2791,12 @@ begin
 	ThreadTitle := Thread.Thread.Title;
 	ThreadPTitle := Thread.Thread.ParentBoard.Title;
 	//ThreadScrollTop := Thread.Thread.ScrollTop;
+    if Thread.Thread.IsLogFile then  begin
+        if not FileExists(Thread.Thread.GetThreadFileName) then begin
+            Thread.Thread.DeleteLogFile;
+        end;
+    end;
+
 	ThreadIsLog := Thread.Thread.IsLogFile;
 	ThreadItem := Thread.Thread;
 	ThreadNewArraical :=  Thread.Thread.NewArrival;
@@ -6955,10 +6975,11 @@ end;
 
 procedure TGikoForm.BrowserPanelResize(Sender: TObject);
 begin
-	if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
-		MoveWindow(FActiveContent.Browser.Handle, 0, 0, BrowserPanel.ClientWidth, BrowserPanel.ClientHeight, false);
-	end;
-
+    if (FIsMinimize <> mtMinimizing) then begin
+    	if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
+	    	MoveWindow(FActiveContent.Browser.Handle, 0, 0, BrowserPanel.ClientWidth, BrowserPanel.ClientHeight, false);
+    	end;
+    end;
 end;
 procedure TGikoForm.CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
 var
@@ -7582,6 +7603,93 @@ begin
         FResPopupBrowser := TResPopupBrowser.Create(BrowserPanel);
     end;
 end;
+//! ŠO‚©‚ç‚ÌD&Dˆ—
+procedure TGikoForm.WMDropFiles(var Msg: TWMDropFiles);
+var
+    FileName: Array[0..MAX_PATH] of Char;
+    Cnt, K: Integer;
+    Board: TBoard;
+    LogFolder: String;
+    datList: TStringList;
+begin
+    // •\Ž¦‚µ‚Ä‚¢‚é‚̔‚̂Ƃ«ˆÈŠO‚Í‹‘”Û
+    if GetActiveList is TBoard then begin
+        Board := TBoard(GetActiveList);
+        if MsgBox(Handle, Board.Title
+            + ' ”‚ɓü‚ê‚Ä‚¢‚¢‚Å‚·‚©H', 'ƒMƒRƒiƒr', MB_YESNO or MB_ICONQUESTION) = IDYES	then begin
+            // ”‚̎ž‚́AƒƒOƒtƒHƒ‹ƒ_‚ɃRƒs[‚µ‚Ä‚Í‚®‚ꃍƒO‘Ήž‚Æ“¯‚¶ˆ—H
+            datList := TStringList.Create;
+            try
+                Cnt := DragQueryFile(Msg.Drop, $FFFFFFFF, FileName, SizeOf(FileName));
+                for K := 0 to Cnt - 1 do begin
+                    DragQueryFile(Msg.Drop, K, FileName, SizeOf(FileName));
+                    {FileName‚Édrop‚³‚ꂽƒtƒ@ƒCƒ‹–¼‚ª“ü‚Á‚Ä‚¢‚é‚̂ŁA‚±‚±‚ʼn½‚ç‚©‚̏ˆ—‚ð‚·‚éB‚½‚Æ‚¦‚ÎŽŸ‚̍s}
+                    // ƒtƒ@ƒCƒ‹‚̃`ƒFƒbƒN
+                    if (isValidFile(FileName)) then begin
+                        LogFolder := ExtractFilePath(Board.FilePath);
+                        if (FileExists( LogFolder + ExtractFileName(FileName))) then begin
+                            GikoUtil.MsgBox(Handle, LogFolder + '‚É' + ExtractFileName(FileName) + '‚ªŠù‚É‘¶Ý‚µ‚Ü‚·B', 'ƒGƒ‰[', MB_ICONSTOP or MB_OK);
+                        end else begin
+                            if (not DirectoryExists(LogFolder)) then begin
+                                if (not GikoSys.ForceDirectoriesEx(LogFolder) ) then begin
+                                    GikoUtil.MsgBox(Handle, LogFolder + '‚̐¶¬‚ÉŽ¸”s‚µ‚Ü‚µ‚½B', 'ƒGƒ‰[', MB_ICONSTOP or MB_OK);
+                                end;
+                            end;
+                            if (not Windows.CopyFile(FileName,  PChar(LogFolder + ExtractFileName(FileName)), true)) then begin
+                                GikoUtil.MsgBox(Handle, FileName + '‚̃Rƒs[‚ÉŽ¸”s‚µ‚Ü‚µ‚½B', 'ƒGƒ‰[', MB_ICONSTOP or MB_OK);
+                            end else begin
+                                datList.Add(ExtractFileName(FileName));
+                            end;
+                        end;
+                    end;
+                end;
+                DragFinish(Msg.Drop);
+                if (datList.Count > 0) then begin
+                    GikoSys.AddOutofIndexDat(Board, datList, False);
+                    ShowMessage(IntToStr(datList.Count) + 'ŒÂ‚Ìdatƒtƒ@ƒCƒ‹‚ªƒRƒs[‚³‚ê‚Ü‚µ‚½B' );
+              		if GikoForm.TreeView.Visible then
+            			GikoForm.TreeView.Refresh;
+		            if GikoForm.ListView.Visible then
+        		    	GikoForm.ListView.Refresh;
+                end else begin
+                    ShowMessage('ˆê‚‚àƒRƒs[‚³‚ê‚Ü‚¹‚ñ‚Å‚µ‚½B' );
+                end;
+            finally
+                datList.Free;
+            end;
+
+        end;
+    end else begin
+        ShowMessage('”‚ð•\Ž¦‚µ‚Ä‚­‚¾‚³‚¢B');
+    end;
+end;
+//! ƒtƒ@ƒCƒ‹ƒ`ƒFƒbƒN
+function TGikoForm.isValidFile(FileName: String) : boolean;
+var
+    dt: TDateTime;
+begin
+    Result := True;
+    // ‘¶Ý‚·‚é‚©AŠg’£ŽqdatAƒtƒ@ƒCƒ‹–¼
+    if ( not FileExists(FileName) ) then begin
+        Result := False;
+        GikoUtil.MsgBox(Handle, FileName + '‚Í‘¶Ý‚µ‚Ü‚¹‚ñB', 'ƒGƒ‰[', MB_ICONSTOP or MB_OK);
+    end else if (ExtractFileExt(ExtractFileName(FileName)) <> '.dat' ) then begin
+        Result := False;
+        GikoUtil.MsgBox(Handle, ExtractFileName(FileName) + '‚ÌŠg’£Žq‚ª".dat"‚Å‚ ‚è‚Ü‚¹‚ñB', 'ƒGƒ‰[', MB_ICONSTOP or MB_OK);
+    end else begin
+        // ƒƒOƒtƒ@ƒCƒ‹‚ÌŠg’£Žq‚ð‚Í‚¸‚µ‚½‚à‚Ì‚ªƒXƒŒì¬“úŽž
+        try
+            dt := GikoSys.GetCreateDateFromName(FileName);
+            if ((UnixToDateTime(ZERO_DATE) + OffsetFromUTC) = dt) then begin
+                Result := False;
+                GikoUtil.MsgBox(Handle, ExtractFileName(FileName) + '‚̃tƒ@ƒCƒ‹–¼‚ª•s³‚Å‚·B', 'ƒGƒ‰[', MB_ICONSTOP or MB_OK);
+            end;
+        except
+            Result := False;
+            GikoUtil.MsgBox(Handle, ExtractFileName(FileName) + '‚̃tƒ@ƒCƒ‹–¼‚ª•s³‚Å‚·B', 'ƒGƒ‰[', MB_ICONSTOP or MB_OK);
+        end;
+    end;
+end;
 
 initialization
 				OleInitialize(nil);

--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -2261,9 +2261,11 @@ begin
                     if item <> nil then
                         GikoForm.InsertBrowserTab( item, false );
                 end;
-                //Å‰‚Ì‚P–‡‚ÉÝ’è ƒAƒhƒŒƒX‚̐ݒè‚Ì‚½‚߂̃Jƒ‰ŒÄ‚Ñ
-                if GikoForm.BrowserTab.Tabs.Count > 0 then begin
-                    GikoForm.BrowserTab.OnChange(nil);
+                //Å‰‚Ì‚P–‡‚ɐݒè
+                if (GikoSys.Setting.URLDisplay) and
+                    (GikoForm.BrowserTab.Tabs.Count > 0) then begin
+					GikoForm.AddressComboBox.Text :=
+                        TBrowserRecord(GikoForm.BrowserTab.Tabs.Objects[0]).Thread.URL;
                 end;
             end;
         finally

--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -116,8 +116,6 @@ type
 		function ChooseString(const Text, Separator: string; Index: integer): string;
         //! ˆêŽžƒtƒ@ƒCƒ‹‚©‚ç‚Ì•œ‹Œ
         procedure RestoreThreadData(Board: TBoard);
-        //! ƒCƒ“ƒfƒbƒNƒX‚É‚È‚¢dati‚Í‚®‚êdatj‚̒ljÁ
-        procedure AddOutofIndexDat(Board: TBoard; DatList: TStringList);
 	public
 		{ Public éŒ¾ }
 		FAbon : TAbon;
@@ -129,13 +127,10 @@ type
 		property ResRange : Longint read FResRange write FResRange;
 		//! ƒo[ƒWƒ‡ƒ“î•ñ
 		property Version : String read FVersion;
-//		function MsgBox(Msg: string; Title: string; Flags: Longint): integer; overload;
-//		function MsgBox(Handle: THandle; Msg: string; Title: string; Flags: Longint): integer; overload;
 		function IsNumeric(s: string): boolean;
 		function IsFloat(s: string): boolean;
 		function DirectoryExistsEx(const Name: string): Boolean;
 		function ForceDirectoriesEx(Dir: string): Boolean;
-//		function GetVersion: string;
 
 		function GetBoardFileName: string;
 		function GetCustomBoardFileName: string;
@@ -257,6 +252,10 @@ type
         function GetOEIndentChar : string;
         //! ’uŠ·Ý’èƒtƒ@ƒCƒ‹Žæ“¾
         function GetReplaceFileName: String;
+        //! ƒCƒ“ƒfƒbƒNƒX‚É‚È‚¢dati‚Í‚®‚êdatj‚̒ljÁ
+        procedure AddOutofIndexDat(Board: TBoard; DatList: TStringList; AllCreate: boolean = True);
+        //! ƒtƒ@ƒCƒ‹–¼‚©‚ç‚̃XƒŒƒbƒhì¬“ú‚̎擾
+        function GetCreateDateFromName(FileName: String): TDateTime;
 	end;
 
 var
@@ -266,7 +265,7 @@ const
 	ZERO_DATE: Integer	= 25569;
 	BETA_VERSION_NAME_E = 'beta';
 	BETA_VERSION_NAME_J = 'ÊÞÀ';
-	BETA_VERSION				= 56;
+	BETA_VERSION				= 57;
 	BETA_VERSION_BUILD	= '';				//!< debug”Å‚È‚Ç
 	APP_NAME						= 'gikoNavi';
 	BE_PHP_URL = 'http://be.2ch.net/test/p.php?i=';
@@ -572,11 +571,18 @@ var
 	usePlugIn : Boolean;
 	islog : Boolean;
     urlHead: String;
+    datFileCheck: Boolean;
 	{*
 	FavoThreadItem : TFavoriteThreadItem;
 	Node: TTreeNode;
 	*}
+{$IFDEF DEBUG}
+    st, rt: Cardinal;
+{$ENDIF}
 begin
+{$IFDEF DEBUG}
+	st := GetTickCount;
+{$ENDIF}
 	if Board.IsThreadDatRead then
 		Exit;
 	Board.Clear;
@@ -592,12 +598,16 @@ begin
 
 	FileName := Board.GetFolderIndexFileName;
 
-	FileList := TStringList.Create;
-	FileList.Sorted := True;
-	FileList.BeginUpdate;
-	//IsLogFile—pDATƒtƒ@ƒCƒ‹ƒŠƒXƒg
-	GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);
-	FileList.EndUpdate;
+    //
+    datFileCheck := (Setting.CheckDatFile) or (not FileExists(FileName));
+    if (datFileCheck) then begin
+        FileList := TStringList.Create;
+        FileList.Sorted := True;
+        FileList.BeginUpdate;
+        //IsLogFile—pDATƒtƒ@ƒCƒ‹ƒŠƒXƒg
+        GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);
+        FileList.EndUpdate;
+    end;
 
 	// d•¡‚ð–h‚®
 	Board.BeginUpdate;
@@ -609,7 +619,11 @@ begin
 			//‚Qs–Ú‚©‚çi‚Ps–ڂ̓o[ƒWƒ‡ƒ“j
 			for i := sl.Count - 1 downto 1 do begin
 				Rec := ParseIndexLine(sl[i]);
-				islog := FileList.Find( Rec.FFileName, Index );
+                if (datFileCheck) then begin
+    				islog := FileList.Find( Rec.FFileName, Index );
+                end else begin
+                    islog := (Rec.FSize <> 0) and (Rec.FCount <> 0);
+                end;
 				if usePlugIn then
 					ThreadItem := TThreadItem.Create(
 							Board.BoardPlugIn,
@@ -636,7 +650,7 @@ begin
 				end;
 
 				ThreadItem.BeginUpdate;
-				if islog then
+				if (datFileCheck) and (islog) then
 					FileList.Delete( Index );
 
 				ThreadItem.No := Rec.FNo;
@@ -671,50 +685,75 @@ begin
 		if UnRead <> Board.UnRead then
 			Board.UnRead := UnRead;
 
-		//ƒCƒ“ƒfƒbƒNƒX‚É–³‚©‚Á‚½ƒƒO‚ð’ljÁi•…‚êƒCƒ“ƒfƒbƒNƒX‘Ήžj
-        AddOutofIndexDat(Board, FileList);
+        if (datFileCheck) then begin
+		    //ƒCƒ“ƒfƒbƒNƒX‚É–³‚©‚Á‚½ƒƒO‚ð’ljÁi•…‚êƒCƒ“ƒfƒbƒNƒX‘Ήžj
+            AddOutofIndexDat(Board, FileList);
+        end;
 		Board.EndUpdate;
 
         //‘O‰ñˆÙíI—¹Žžƒ`ƒFƒbƒN
         RestoreThreadData( Board );
 	finally
 		sl.Free;
-		FileList.Free;
+        if (datFileCheck) then begin
+    		FileList.Free;
+        end;
 		Board.Sorted := False;
 	end;
 	Board.IsThreadDatRead := True;
+{$IFDEF DEBUG}
+	rt := GetTickCount - st;
+	Writeln('Read Done.' + IntToStr(rt) + ' ms');
+{$ENDIF}
 end;
 {!
 \brief ƒCƒ“ƒfƒbƒNƒX‚É‚È‚¢dati‚Í‚®‚êdatj‚̒ljÁ
 \param Board ’ljÁ‚·‚é”Â
 \param DatList  datƒtƒ@ƒCƒ‹–¼
 }
-procedure TGikoSys.AddOutofIndexDat(Board: TBoard; DatList: TStringList);
+procedure TGikoSys.AddOutofIndexDat(Board: TBoard; DatList: TStringList; AllCreate: Boolean = True);
 var
     i : Integer;
     Boardpath,FileName : String;
     ResRec: TResRec;
     ThreadItem: TThreadItem;
+    create: Boolean;
 begin
+    create := False;
     Boardpath := ExtractFilePath(Board.GetFolderIndexFileName);
     //ƒCƒ“ƒfƒbƒNƒX‚É–³‚©‚Á‚½ƒƒO‚ð’ljÁi•…‚êƒCƒ“ƒfƒbƒNƒX‘Ήžj
     for i := 0 to DatList.Count - 1 do begin
         FileName := Boardpath + DatList[i];
-
-        //ResRec := DivideStrLine(ReadThreadFile(FileName, 1));
-        if Board.IsBoardPlugInAvailable then begin
-            ThreadItem := TThreadItem.Create(
-                Board.BoardPlugIn,
-                Board,
-                Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), DatList[i] ) );
-            THTMLCreate.DivideStrLine(Board.BoardPlugIn.GetDat( DWORD( ThreadItem ), 1 ), @ResRec);
-        end else begin
-            ThreadItem := TThreadItem.Create(
-                nil,
-                Board,
-                Get2chBoard2ThreadURL( Board, ChangeFileExt( DatList[i], '' ) ) );
-            THTMLCreate.DivideStrLine(ReadThreadFile(FileName, 1), @ResRec);
+        ThreadItem := nil;
+        if (not AllCreate) then begin
+            create := False;
+            ThreadItem := Board.FindThreadFromFileName(DatList[i]);
+            if (ThreadItem = nil) then begin
+                create := True;
+            end else begin
+                if Board.IsBoardPlugInAvailable then begin
+                    THTMLCreate.DivideStrLine(Board.BoardPlugIn.GetDat( DWORD( ThreadItem ), 1 ), @ResRec);
+                end else begin
+                    THTMLCreate.DivideStrLine(ReadThreadFile(FileName, 1), @ResRec);
+                end;
+            end;
+        end;
+        if (ThreadItem = nil) then begin
+            if Board.IsBoardPlugInAvailable then begin
+                ThreadItem := TThreadItem.Create(
+                    Board.BoardPlugIn,
+                    Board,
+                    Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), DatList[i] ) );
+                THTMLCreate.DivideStrLine(Board.BoardPlugIn.GetDat( DWORD( ThreadItem ), 1 ), @ResRec);
+            end else begin
+                ThreadItem := TThreadItem.Create(
+                    nil,
+                    Board,
+                    Get2chBoard2ThreadURL( Board, ChangeFileExt( DatList[i], '' ) ) );
+                THTMLCreate.DivideStrLine(ReadThreadFile(FileName, 1), @ResRec);
+            end;
         end;
+        
 
         ThreadItem.BeginUpdate;
         ThreadItem.FileName := DatList[i];
@@ -736,7 +775,9 @@ begin
         ThreadItem.ScrollTop := 0;
         ThreadItem.AgeSage := gasNone;
         ThreadItem.EndUpdate;
-        Board.Add(ThreadItem);
+        if (AllCreate) or (create) then begin
+            Board.Add(ThreadItem);
+        end;
     end;
 end;
 {!
@@ -3309,7 +3350,8 @@ begin
 					ThreadItem.NewReceive := ini.ReadInteger(SECTION, 'NewReceive', 0);
 
 					ThreadItem.Size := ini.ReadInteger(SECTION, 'Size', 0);
-					if(ThreadItem.Size = 0) and (FileExists(ThreadItem.GetThreadFileName)) then begin
+                    ThreadItem.IsLogFile := FileExists(ThreadItem.GetThreadFileName);
+					if(ThreadItem.Size = 0) and (ThreadItem.IsLogFile) then begin
 						try
 							ThreadItem.Size := GetFileSize(ThreadItem.GetThreadFileName) - ThreadItem.Count;
 						except
@@ -3399,6 +3441,26 @@ function TGikoSys.GetReplaceFileName: String;
 begin
     Result := Setting.GetReplaceFileName;
 end;
+//! ƒtƒ@ƒCƒ‹–¼‚©‚ç‚̃XƒŒƒbƒhì¬“ú‚̎擾
+function TGikoSys.GetCreateDateFromName(FileName: String): TDateTime;
+var
+    tmp : String;
+    unixtime: Int64;  
+begin
+    // ƒƒOƒtƒ@ƒCƒ‹‚ÌŠg’£Žq‚ð‚Í‚¸‚µ‚½‚à‚Ì‚ªƒXƒŒì¬“úŽž
+    tmp := ChangeFileExt(FileName, '');
+    if AnsiPos('_', tmp) <> 0 then
+        if AnsiPos('_', tmp) > 9 then
+            tmp := Copy(tmp, 1, AnsiPos('_', tmp)-1)
+        else
+            Delete(tmp, AnsiPos('_', tmp), 1);
+
+    if ( Length(tmp) = 9) and ( tmp[1] = '0' ) then
+        Insert('1', tmp, 1);
+
+    unixtime := StrToInt64Def(tmp, ZERO_DATE);
+    Result := UnixToDateTime(unixtime) + OffsetFromUTC;
+end;
 
 initialization
 	GikoSys := TGikoSys.Create;

--- a/KuroutSetting.dfm
+++ b/KuroutSetting.dfm
@@ -21,8 +21,8 @@ object KuroutOption: TKuroutOption
     Top = 0
     Width = 517
     Height = 393
-    ActivePage = KakikomiTabSheet
-    TabIndex = 2
+    ActivePage = TabSheet2
+    TabIndex = 3
     TabOrder = 0
     object TabSheet1: TTabSheet
       Caption = #35443#32048#35373#23450#65297
@@ -562,6 +562,22 @@ object KuroutOption: TKuroutOption
           TabOrder = 1
         end
       end
+      object LogGroupBox: TGroupBox
+        Left = 16
+        Top = 160
+        Width = 465
+        Height = 65
+        Caption = #12525#12464
+        TabOrder = 1
+        object CheckDatFileCheckBox: TCheckBox
+          Left = 22
+          Top = 14
+          Width = 369
+          Height = 17
+          Caption = #12473#12524#12483#12489#19968#35239#65288'Folder.idx'#65289#35501#12415#36796#12415#26178#12395'dat'#12501#12449#12452#12523#12434#12481#12455#12483#12463#12377#12427#12290
+          TabOrder = 0
+        end
+      end
     end
   end
   object OkBotton: TButton

--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -81,6 +81,8 @@ type
     Label14: TLabel;
     ExtListLabeledEdit: TLabeledEdit;
     Label15: TLabel;
+    LogGroupBox: TGroupBox;
+    CheckDatFileCheckBox: TCheckBox;
 	procedure OkBottonClick(Sender: TObject);
 	procedure FormCreate(Sender: TObject);
 	procedure CDeleteButtonClick(Sender: TObject);
@@ -156,6 +158,8 @@ begin
     ReplaceDatCheckBox.Checked := GikoSys.Setting.ReplaceDat;
     SentIniFileSizeUpDown.Position := GikoSys.Setting.SentIniFileSize;
     ExtListLabeledEdit.Text := GikoSys.Setting.ExtList;
+    // Folder.idx“ǂݍž‚ÝŽždatƒ`ƒFƒbƒN
+    CheckDatFileCheckBox.Checked := GikoSys.Setting.CheckDatFile;
 end;
 
 procedure TKuroutOption.SaveSetting;
@@ -198,6 +202,8 @@ begin
     GikoSys.Setting.ReplaceDat := ReplaceDatCheckBox.Checked;
     GikoSys.Setting.SentIniFileSize := SentIniFileSizeUpDown.Position;
     GikoSys.Setting.ExtList := ExtListLabeledEdit.Text;
+    // Folder.idx“ǂݍž‚ÝŽždatƒ`ƒFƒbƒN
+    GikoSys.Setting.CheckDatFile := CheckDatFileCheckBox.Checked;
 end;
 
 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);

--- a/Setting.pas
+++ b/Setting.pas
@@ -450,6 +450,8 @@ type
         FExtList: String;
         //! SkinŠÖ˜A
         FSkinFiles: TSkinFiles;
+        //! indexƒtƒ@ƒCƒ‹‚ð“Ç‚ÝŽž‚Édat‚ðŒŸõ‚·‚é
+        FCheckDatFile: Boolean;
 		function GetMainCoolSet(Index: Integer): TCoolSet;
 		function GetBoardCoolSet(Index: Integer): TCoolSet;
 		function GetBrowserCoolSet(Index: Integer): TCoolSet;
@@ -807,7 +809,8 @@ type
         property ExtList: String read FExtList write FExtList;
         //! Skinƒtƒ@ƒCƒ‹ŠÇ—
         property SkinFiles: TSkinFiles read FSkinFiles;
-
+        //! ƒCƒ“ƒfƒbƒNƒX“ǂݍž‚ÝŽždatƒtƒ@ƒCƒ‹ƒ`ƒFƒbƒN
+        property CheckDatFile: Boolean read FCheckDatFile write FCheckDatFile;
 end;
 
 
@@ -1293,6 +1296,9 @@ begin
 
         FSentIniFileSize := ini.ReadInteger('Function', 'SentIniFileSize', 3);
         FExtList := ini.ReadString('Function', 'ExtList', '*.gif;*.jpg;*.jpeg;*.png;*.zip;*.rar');
+
+        FCheckDatFile := ini.ReadBool('ThreadList', 'CheckDatFile', True);
+
 		ini.UpdateFile;
 	finally
 		ini.Free;
@@ -1675,6 +1681,7 @@ begin
         ini.WriteBool('Thread', 'ReplaceDat', FReplaceDat);
         ini.WriteInteger('Function', 'SentIniFileSize', FSentIniFileSize);
         ini.WriteString('Function', 'ExtList', FExtList);
+        ini.WriteBool('ThreadList', 'CheckDatFile', FCheckDatFile);
 		ini.UpdateFile;
 	finally
 		ini.Free;

Binary files a/gikoNavi.res and b/gikoNavi.res differ

--- a/readme/gikoSetup.iss
+++ b/readme/gikoSetup.iss
@@ -10,11 +10,11 @@ VersionInfoDescription=
 DefaultGroupName=ƒMƒRƒiƒr
 ; Ž©•ª‚̊‹«‚ɍ‡‚킹‚Ä‚­‚¾‚³‚¢
 SourceDir=G:\Release
-OutputDir=G:\Output
+OutputDir=G:\InnoSetup\Output
 SetupIconFile="G:\gikoNaviSFX_102\MainIcon.ico"
 ; ƒMƒRƒiƒr‚̃o[ƒWƒ‡ƒ“‚É‚ ‚킹‚Ä‚­‚¾‚³‚¢
-VersionInfoVersion=1.56.0.714
-OutputBaseFilename=gikoNavi_1.56.0.714_2_setup
+VersionInfoVersion=1.56.1.716
+OutputBaseFilename=gikoNavi_b56_setup
 
 
 [Tasks]
@@ -90,7 +90,7 @@ begin
         begin
           DelTree(path, True, True, True);
         end;
-        
+
         path := ExpandConstant('{app}') + '\config';
         if MsgBox(path + 'ƒtƒHƒ‹ƒ_ˆÈ‰º‚ðŠ®‘S‚ɏÁ‹Ž‚µ‚Ä‚æ‚낵‚¢‚Å‚µ‚傤‚©H', mbConfirmation, MB_YESNO) = IDYES then
         begin

--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -1,4 +1,4 @@
-¡ƒMƒRƒiƒr Version1.00 ÊÞÀ56 Readme.txt
+¡ƒMƒRƒiƒr Version1.00 ÊÞÀ57 Readme.txt
 
 
 ------------------------------
@@ -108,6 +108,9 @@ LICENSE
 ------------------------------
 —š—ð
 ------------------------------
+2007/XX/XX
+  Version ÊÞÀ57
+  
 2007/08/05
   Version ÊÞÀ56
 @ƒŒƒXƒ|ƒbƒvƒAƒbƒv‚Ì‘½’i‘Ήž

--- a/res/default/Samba.default
+++ b/res/default/Samba.default
@@ -1,44 +1,36 @@
 [Setting]
-@ascii2d=30
-@chiri=30
-@gline=30
 @newsplus=120
-@operate=30
-@tv=30
-aa6=30
+@skate=60
 academy6=30
-anime2=45
-book4=30
-bubble5=30
+anime2=60
+bubble6=30
 etc6=30
 ex20=30
 ex21=30
-ex22=30
-food7=30
+ex23=20
+food8=30
 game11=30
 game12=30
 hobby9=30
-human6=30
+human7=30
 life8=30
 live23=10
 live24=10
 live25=10
-love5=30
-money5=30
+love6=30
+money6=30
 music8=30
 news21=30
 news22=30
-off4=30
-pc9=30
+news23=128
 pc11=30
 qb5=30
-school6=30
+school7=30
 science6=30
-sports10=60
+sports11=60
 tmp6=45
-travel3=30
 tv11=60
-wwwww=20
+wwwww=15
 
 idol=30
 pie=30