Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ExternalBoardItem.pas

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

revision 1.2 by yoffy, Mon Nov 17 16:04:13 2003 UTC revision 1.3 by h677, Sat Jun 25 11:27:22 2005 UTC
# Line 22  type Line 22  type
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          // *************************************************************************          // *************************************************************************
# Line 85  type Line 86  type
86    
87  implementation  implementation
88    
89  uses ExternalBoardManager, GikoSystem, BoardGroup;  uses ExternalBoardManager, GikoSystem, BoardGroup, MojuUtils;
90    
91  // *************************************************************************  // *************************************************************************
92  // TBoardItem クラスのプロパティを取得する  // TBoardItem クラスのプロパティを取得する
# Line 118  begin Line 119  begin
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;
# Line 146  begin Line 149  begin
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            // スレッド未読数
# Line 155  begin Line 159  begin
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;
# Line 279  var Line 285  var
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}
# Line 288  begin Line 296  begin
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    
# Line 325  exports Line 340  exports
340          BoardItemWorkEnd;          BoardItemWorkEnd;
341    
342  end.  end.
   

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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