| 713 |
Board.BoardPlugIn, |
Board.BoardPlugIn, |
| 714 |
Board, |
Board, |
| 715 |
Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), FileList[i] ) ); |
Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), FileList[i] ) ); |
| 716 |
DivideStrLine(Board.BoardPlugIn.GetDat( DWORD( ThreadItem ), 1 ), @ResRec); |
THTMLCreate.DivideStrLine(Board.BoardPlugIn.GetDat( DWORD( ThreadItem ), 1 ), @ResRec); |
| 717 |
end else begin |
end else begin |
| 718 |
ThreadItem := TThreadItem.Create( |
ThreadItem := TThreadItem.Create( |
| 719 |
nil, |
nil, |
| 720 |
Board, |
Board, |
| 721 |
Get2chBoard2ThreadURL( Board, ChangeFileExt( FileList[i], '' ) ) ); |
Get2chBoard2ThreadURL( Board, ChangeFileExt( FileList[i], '' ) ) ); |
| 722 |
DivideStrLine(ReadThreadFile(FileName, 1), @ResRec); |
THTMLCreate.DivideStrLine(ReadThreadFile(FileName, 1), @ResRec); |
| 723 |
end; |
end; |
| 724 |
|
|
| 725 |
ThreadItem.BeginUpdate; |
ThreadItem.BeginUpdate; |
| 2953 |
|
|
| 2954 |
for i := 0 to threadItem.Count - 1 do begin |
for i := 0 to threadItem.Count - 1 do begin |
| 2955 |
// レス |
// レス |
| 2956 |
DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), i + 1), @Res); |
THTMLCreate.DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), i + 1), @Res); |
| 2957 |
if(AnsiPos(AID, Res.FDateTime) > 0) then begin |
if(AnsiPos(AID, Res.FDateTime) > 0) then begin |
| 2958 |
body.Add(IntToStr(i+1)); |
body.Add(IntToStr(i+1)); |
| 2959 |
end; |
end; |
| 2963 |
try |
try |
| 2964 |
ReadList.LoadFromFile(ThreadItem.GetThreadFileName); |
ReadList.LoadFromFile(ThreadItem.GetThreadFileName); |
| 2965 |
for i := 0 to ReadList.Count - 1 do begin |
for i := 0 to ReadList.Count - 1 do begin |
| 2966 |
DivideStrLine(ReadList[i], @Res); |
THTMLCreate.DivideStrLine(ReadList[i], @Res); |
| 2967 |
if AnsiPos(AID, Res.FDateTime) > 0 then begin |
if AnsiPos(AID, Res.FDateTime) > 0 then begin |
| 2968 |
body.Add(IntToStr(i+1)); |
body.Add(IntToStr(i+1)); |
| 2969 |
end; |
end; |
| 3034 |
//===== プラグインによる表示 |
//===== プラグインによる表示 |
| 3035 |
//boardPlugIn := ThreadItem.BoardPlugIn; |
//boardPlugIn := ThreadItem.BoardPlugIn; |
| 3036 |
boardPlugIn := ThreadItem.ParentBoard.BoardPlugIn; |
boardPlugIn := ThreadItem.ParentBoard.BoardPlugIn; |
| 3037 |
DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), AIDNum), @Res); |
THTMLCreate.DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), AIDNum), @Res); |
| 3038 |
end else begin |
end else begin |
| 3039 |
DivideStrLine( ReadThreadFile(ThreadItem.GetThreadFileName, AIDNum), @Res); |
THTMLCreate.DivideStrLine( ReadThreadFile(ThreadItem.GetThreadFileName, AIDNum), @Res); |
| 3040 |
end; |
end; |
| 3041 |
AID := Res.FDateTime; |
AID := Res.FDateTime; |
| 3042 |
if AnsiPos('id', AnsiLowerCase(AID)) > 0 then begin |
if AnsiPos('id', AnsiLowerCase(AID)) > 0 then begin |