| 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; |
| 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; |
| 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' |
| 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; |
| 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'; |
| 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; |
| 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 |
|
|
| 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 ); |