Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.161 by yoffy, Sun Nov 30 07:51:52 2003 UTC revision 1.162 by yoffy, Sun Nov 30 08:58:02 2003 UTC
# Line 2402  var Line 2402  var
2402    
2403          threadItem      : TThreadItem;          threadItem      : TThreadItem;
2404          board                           : TBoard;          board                           : TBoard;
2405            i                                               : Integer;
2406            found                           : Boolean;
2407    
2408          //wkInt: Integer;          //wkInt: Integer;
2409          wkIntSt: Integer;          wkIntSt: Integer;
# Line 2489  begin Line 2491  begin
2491    
2492                          PathRec := Gikosys.Parse2chURL2(URL);                          PathRec := Gikosys.Parse2chURL2(URL);
2493    
2494                          if PathRec.FDone then begin                          if PathRec.FDone or (not GikoSys.Is2chHost( URL )) then begin
2495    
2496                                    //===== プラグイン
2497                                    found := False;
2498                                    try
2499                                            for i := Length( BoardPlugIns ) - 1 downto 0 do begin
2500                                                    if Assigned( Pointer( BoardPlugIns[ i ].Module ) ) then begin
2501                                                            if BoardPlugIns[ i ].AcceptURL( URL ) = atThread then begin
2502                                                                    found := True;
2503                                                                    ThreadItem := TThreadItem.Create( BoardPlugIns[ i ], URL );
2504                                                                    try
2505                                                                            URL := ThreadItem.URL;
2506                                                                    finally
2507                                                                            ThreadItem.Free;
2508                                                                            ThreadItem := nil;
2509                                                                    end;
2510    
2511                                                                    Break;
2512                                                            end;
2513                                                    end;
2514                                            end;
2515                                    except
2516                                            // exception が発生した場合は内部処理に任せたいのでここでは何もしない
2517                                    end;
2518    
2519                                    if not found then
2520                                            URL := GikoSys.Get2chBrowsableThreadURL( URL );
2521    
2522                                  wkIntSt := PathRec.FSt;                                  wkIntSt := PathRec.FSt;
2523                                  wkIntTo := PathRec.FTo;                                  wkIntTo := PathRec.FTo;
# Line 2519  begin Line 2547  begin
2547    
2548                                  ATitle := ActiveFileName <> PathRec.FKey;                                  ATitle := ActiveFileName <> PathRec.FKey;
2549    
2550                                    board := BBSsFindBoardFromURL( PathRec.FBBS );
2551                                  threadItem := BBSsFindThreadFromURL( URL );                                  threadItem := BBSsFindThreadFromURL( URL );
2552                                  if threadItem = nil then begin                                  if threadItem = nil then begin
2553                                          board := BBSsFindBoardFromBBSID( PathRec.FBBS );                                          board := BBSsFindBoardFromBBSID( PathRec.FBBS );

Legend:
Removed from v.1.161  
changed lines
  Added in v.1.162

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