| 22 |
bipIsLogFile, // : Boolean // ログ存在フラグ |
bipIsLogFile, // : Boolean // ログ存在フラグ |
| 23 |
bipUnRead, // : Integer // スレッド未読数 |
bipUnRead, // : Integer // スレッド未読数 |
| 24 |
bipURL, // : string // 板をブラウザで表示する際の URL |
bipURL, // : string // 板をブラウザで表示する際の URL |
| 25 |
bipFilePath // : string // この板が保存されているパス |
bipFilePath, // : string // この板が保存されているパス |
| 26 |
|
bipIs2ch // : Boolean //ホストが2chかどうか |
| 27 |
); |
); |
| 28 |
|
|
| 29 |
// ************************************************************************* |
// ************************************************************************* |
| 86 |
|
|
| 87 |
implementation |
implementation |
| 88 |
|
|
| 89 |
uses ExternalBoardManager, GikoSystem, BoardGroup; |
uses ExternalBoardManager, GikoSystem, BoardGroup, MojuUtils; |
| 90 |
|
|
| 91 |
// ************************************************************************* |
// ************************************************************************* |
| 92 |
// TBoardItem クラスのプロパティを取得する |
// TBoardItem クラスのプロパティを取得する |
| 119 |
Result := DWORD( CreateResultString( boardItem.URL ) ); |
Result := DWORD( CreateResultString( boardItem.URL ) ); |
| 120 |
bipFilePath: // このスレが保存されているパス |
bipFilePath: // このスレが保存されているパス |
| 121 |
Result := DWORD( CreateResultString( boardItem.FilePath ) ); |
Result := DWORD( CreateResultString( boardItem.FilePath ) ); |
| 122 |
|
bipIs2ch: |
| 123 |
|
Result := DWORD( boardItem.Is2ch ); |
| 124 |
else |
else |
| 125 |
Result := 0; |
Result := 0; |
| 126 |
end; |
end; |
| 149 |
bipRound: // : Boolean // 巡回フラグ |
bipRound: // : Boolean // 巡回フラグ |
| 150 |
boardItem.Round := Boolean( param ); |
boardItem.Round := Boolean( param ); |
| 151 |
bipRoundName: // : string // 巡回名 |
bipRoundName: // : string // 巡回名 |
| 152 |
boardItem.RoundName := string( PChar( param ) ); |
//boardItem.RoundName := string( PChar( param ) ); |
| 153 |
|
boardItem.RoundName := PChar( param ); |
| 154 |
bipIsLogFile: // : Boolean // ログ存在フラグ |
bipIsLogFile: // : Boolean // ログ存在フラグ |
| 155 |
boardItem.IsLogFile := Boolean( param ); |
boardItem.IsLogFile := Boolean( param ); |
| 156 |
bipUnRead: // : Integer // スレッド未読数 |
bipUnRead: // : Integer // スレッド未読数 |
| 159 |
boardItem.URL := string( PChar( param ) ); |
boardItem.URL := string( PChar( param ) ); |
| 160 |
bipFilePath: // : string // このスレが保存されているパス |
bipFilePath: // : string // このスレが保存されているパス |
| 161 |
boardItem.FilePath := string( PChar( param ) ); |
boardItem.FilePath := string( PChar( param ) ); |
| 162 |
|
bipIs2ch: |
| 163 |
|
boardItem.Is2ch := Boolean( param ); |
| 164 |
end; |
end; |
| 165 |
|
|
| 166 |
end; |
end; |
| 285 |
i : Integer; |
i : Integer; |
| 286 |
rec : TSubjectRec; |
rec : TSubjectRec; |
| 287 |
isContinue : Boolean; |
isContinue : Boolean; |
| 288 |
|
threadURL : string; |
| 289 |
|
template : string; |
| 290 |
begin |
begin |
| 291 |
|
|
| 292 |
{$IFDEF DEBUG} |
{$IFDEF DEBUG} |
| 296 |
board := TBoard( inInstance ); |
board := TBoard( inInstance ); |
| 297 |
subject := TStringList.Create; |
subject := TStringList.Create; |
| 298 |
try |
try |
| 299 |
|
//FileNameによって変化する部分を'(FILENAME!)'とした、文字列をもらう。 |
| 300 |
|
template := board.BoardPlugIn.FileName2ThreadURL( DWORD( board ), '(FILENAME!)' ); |
| 301 |
subject.Text := inSubjectText; |
subject.Text := inSubjectText; |
| 302 |
|
|
| 303 |
for i := 0 to subject.Count - 1 do begin |
for i := 0 to subject.Count - 1 do begin |
| 304 |
rec := GikoSys.DivideSubject( subject[i] ); |
rec := GikoSys.DivideSubject( subject[i] ); |
| 305 |
rec.FFileName := Trim(rec.FFileName); |
rec.FFileName := Trim(rec.FFileName); |
| 306 |
|
if AnsiPos('.', rec.FFileName) > 0 then |
| 307 |
|
rec.FFileName := Copy(rec.FFileName, 1, AnsiPos('.', rec.FFileName) - 1); |
| 308 |
if (rec.FTitle = '') and (rec.FCount = 0) then |
if (rec.FTitle = '') and (rec.FCount = 0) then |
| 309 |
Continue; |
Continue; |
| 310 |
|
|
| 311 |
|
//テンプレートの'(FILENAME!)'をFileNameに置換する |
| 312 |
|
threadURL := CustomStringReplace(template, '(FILENAME!)', Rec.FFileName); |
| 313 |
|
|
| 314 |
isContinue := inCallBack( |
isContinue := inCallBack( |
| 315 |
inInstance, |
inInstance, |
| 316 |
PChar( board.BoardPlugIn.FileName2ThreadURL( DWORD( board ), rec.FFileName ) ), |
PChar( threadURL ), |
| 317 |
PChar( rec.FTitle ), |
PChar( rec.FTitle ), |
| 318 |
DWORD( rec.FCount ) ); |
DWORD( rec.FCount ) ); |
| 319 |
|
|
| 340 |
BoardItemWorkEnd; |
BoardItemWorkEnd; |
| 341 |
|
|
| 342 |
end. |
end. |
|
|
|