Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.184.2.3 by h677, Sun May 15 02:15:31 2005 UTC revision 1.184.2.4 by h677, Sun May 15 14:47:13 2005 UTC
# Line 531  var Line 531  var
531          tmpStr: string;          tmpStr: string;
532      BoardPath : String;      BoardPath : String;
533      server : String;      server : String;
534      //protocol, host, path, document, port, bookmark    : string;          //protocol, host, path, document, port, bookmark        : string;
535      is2ch : Boolean;          //is2ch : Boolean;
536          {*          {*
537          FavoThreadItem : TFavoriteThreadItem;          FavoThreadItem : TFavoriteThreadItem;
538          Node: TTreeNode;          Node: TTreeNode;
# Line 542  begin Line 542  begin
542                  Exit;                  Exit;
543          Board.Clear;          Board.Clear;
544          UnRead := 0;          UnRead := 0;
545      //is2ch := false;          //is2ch := false;
546          usePlugIn := Board.IsBoardPlugInAvailable;          usePlugIn := Board.IsBoardPlugInAvailable;
547      server :=  UrlToServer( Board.URL );          //server :=  UrlToServer( Board.URL );
548      is2ch := Is2chHost(server);          //is2ch := Is2chHost(server);
549    
550          FileName := Board.GetFolderIndexFileName;          FileName := Board.GetFolderIndexFileName;
551    
552          FileList := TStringList.Create;          FileList := TStringList.Create;
553          FileList.Sorted := True;          FileList.Sorted := True;
554      FileList.BeginUpdate;          FileList.BeginUpdate;
555          TmpFileList := TStringList.Create;          TmpFileList := TStringList.Create;
556          TmpFileList.Sorted := True;          TmpFileList.Sorted := True;
557      TmpFileList.BeginUpdate;          TmpFileList.BeginUpdate;
558          //IsLogFile用DATファイルリスト          //IsLogFile用DATファイルリスト
559          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);
560      FileList.EndUpdate;          FileList.EndUpdate;
561          //前回異常終了時用Tmpファイルリスト          //前回異常終了時用Tmpファイルリスト
562          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False);          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False);
563      TmpFileList.EndUpdate;          TmpFileList.EndUpdate;
564    
565          // 重複を防ぐ          // 重複を防ぐ
566          Board.BeginUpdate;          Board.BeginUpdate;
# Line 577  begin Line 577  begin
577                                  if usePlugIn then                                  if usePlugIn then
578                                          ThreadItem := TThreadItem.Create(                                          ThreadItem := TThreadItem.Create(
579                                                          Board.BoardPlugIn,                                                          Board.BoardPlugIn,
580                              Board,                                                          Board,
581                                                          Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), Rec.FFileName ) )                                                          Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), Rec.FFileName ) )
582                                  else begin                                  else begin
583                                          //ThreadItem := TThreadItem.Create(                                          //ThreadItem := TThreadItem.Create(
584                                          //      nil,                                          //      nil,
585                      //    Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' )) );                                          //    Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' )) );
586                      if is2ch then begin                                          if Board.is2ch then begin
587                          ThreadItem := TThreadItem.Create(                                                  ThreadItem := TThreadItem.Create(
588                              nil,                                                          nil,
589                              Board,                                                          Board,
590                              server + 'test/read.cgi/' + Board.BBSID + '/' + ChangeFileExt( Rec.FFileName, '' ) + '/l50'                                                          server + 'test/read.cgi/' + Board.BBSID + '/' + ChangeFileExt( Rec.FFileName, '' ) + '/l50'
591                              );                                                          );
592                      end else begin                                          end else begin
593                          ThreadItem := TThreadItem.Create(                                                  ThreadItem := TThreadItem.Create(
594                              nil,                              nil,
595                              Board,                              Board,
596                              server + 'test/read.cgi?bbs=' + Board.BBSID + '&key=' + ChangeFileExt( Rec.FFileName, '' ) + '&ls=50'                              server + 'test/read.cgi?bbs=' + Board.BBSID + '&key=' + ChangeFileExt( Rec.FFileName, '' ) + '&ls=50'
# Line 3475  begin Line 3475  begin
3475                          if Assigned( Pointer( BoardGroups[i].BoardPlugIn.Module ) ) then begin                          if Assigned( Pointer( BoardGroups[i].BoardPlugIn.Module ) ) then begin
3476                                  if BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) = atThread then begin                                  if BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) = atThread then begin
3477                      board := BBSsFindBoardFromURL( BoardGroups[i].BoardPlugIn.ExtractBoardURL(inURL) );                      board := BBSsFindBoardFromURL( BoardGroups[i].BoardPlugIn.ExtractBoardURL(inURL) );
3478                                          boardPlugIn := BoardGroups[i].BoardPlugIn;                                          if board <> nil then begin
3479                                          threadItem      := TThreadItem.Create( boardPlugIn, board, inURL );                                                  boardPlugIn := BoardGroups[i].BoardPlugIn;
3480                                          Result                  := threadItem.URL;                                                  threadItem      := TThreadItem.Create( boardPlugIn, board, inURL );
3481                                          threadItem.Free;                                                  Result                  := threadItem.URL;
3482                                                    threadItem.Free;
3483    
3484                                          Break;                                          end;
3485                                            Exit;
3486                                  end;                                  end;
3487                          end;                          end;
3488                  end;                  end;
# Line 3587  var Line 3589  var
3589  begin  begin
3590    
3591          server := UrlToServer( inBoard.URL );          server := UrlToServer( inBoard.URL );
3592          if Is2chHost( server ) then          //if Is2chHost( server ) then
3593            if inBoard.Is2ch then
3594                  Result := server + 'test/read.cgi/' + inBoard.BBSID + '/' + inKey + '/l50'                  Result := server + 'test/read.cgi/' + inBoard.BBSID + '/' + inKey + '/l50'
3595          else          else
3596                  Result := server + 'test/read.cgi?bbs=' + inBoard.BBSID + '&key=' + inKey + '&ls=50';                  Result := server + 'test/read.cgi?bbs=' + inBoard.BBSID + '&key=' + inKey + '&ls=50';
# Line 3711  begin Line 3714  begin
3714                                                                                          if not BoardGroups[k].Find(tmpstring, p) then begin                                                                                          if not BoardGroups[k].Find(tmpstring, p) then begin
3715                                                                                                  Board := TBoard.Create( BoardGroups[k].BoardPlugIn, tmpstring );                                                                                                  Board := TBoard.Create( BoardGroups[k].BoardPlugIn, tmpstring );
3716                                                                                                  BoardGroups[k].AddObject(tmpstring, Board);                                                                                                  BoardGroups[k].AddObject(tmpstring, Board);
3717                                                                                                    Category.Add(Board);
3718                                                                                          end else begin                                                                                          end else begin
3719                                                                                                  Board := TBoard(BoardGroups[k].Objects[p]);                                                                                                  Board := TBoard(BoardGroups[k].Objects[p]);
3720                                                                                                    if Board.ParentCategory <> Category then
3721                                                                                                            Category.Add(Board);
3722                                                                                          end;                                                                                          end;
3723                                                                                  end else begin                                                                                  end else begin
3724                                                                                          Board := TBoard.Create( BoardGroups[k].BoardPlugIn, tmpstring );                                                                                          Board := TBoard.Create( BoardGroups[k].BoardPlugIn, tmpstring );
3725                                                                                          BoardGroups[k].AddObject(tmpstring, Board);                                                                                          BoardGroups[k].AddObject(tmpstring, Board);
3726                                                                                            Category.Add(Board);
3727                                                                                  end;                                                                                  end;
3728                                                                          end else begin                                                                          end else begin
3729                                                                                  Board := TBoard(BoardGroups[k].Objects[p]);                                                                                  Board := TBoard(BoardGroups[k].Objects[p]);
3730                                                                                    if Board.ParentCategory <> Category then
3731                                                                                            Category.Add(Board);
3732                                                                          end;                                                                          end;
3733                                                                          Break;                                                                          Break;
3734                                                                  end;                                                                  end;
# Line 3732  begin Line 3741  begin
3741                                                  if not BoardGroups[0].Find(inistr,p) then begin                                                  if not BoardGroups[0].Find(inistr,p) then begin
3742                                                          Board := TBoard.Create( nil, inistr );                                                          Board := TBoard.Create( nil, inistr );
3743                                                          BoardGroups[0].AddObject(inistr, Board);                                                          BoardGroups[0].AddObject(inistr, Board);
3744                                                            Category.Add(Board);
3745                                                  end else begin                                                  end else begin
3746                                                          Board := TBoard(BoardGroups[0].Objects[p]);                                                          Board := TBoard(BoardGroups[0].Objects[p]);
3747                                                            if Board.ParentCategory <> Category then
3748                                                                    Category.Add(Board);
3749                                                  end;                                                  end;
3750                                          end;                                          end;
3751    
# Line 3750  begin Line 3762  begin
3762                                                          Board.RoundName         := RoundItem.RoundName;                                                          Board.RoundName         := RoundItem.RoundName;
3763                                                  end;                                                  end;
3764                                                  Board.Multiplicity := 0;                                                  Board.Multiplicity := 0;
3765                                                  Category.Add(Board);                                                  //Category.Add(Board);
3766                                                  Board.LoadSettings;                                                  Board.LoadSettings;
3767                                                  Board.EndUpdate;                                                  Board.EndUpdate;
3768                                          end else begin                                          end else begin
3769                                                  Board.Multiplicity := Board.Multiplicity + 1;                                                  Board.Multiplicity := Board.Multiplicity + 1;
3770                                                  Category.Add(Board);                                                  //Category.Add(Board);
3771                                          end;                                          end;
3772                                  end;                                  end;
3773                                  bbs.Add( Category );                                  bbs.Add( Category );

Legend:
Removed from v.1.184.2.3  
changed lines
  Added in v.1.184.2.4

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26