Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
| 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; |
| 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 |
|
|
|