Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 5992 |
|
|
| 5993 |
procedure TGikoForm.MoveToURL(URL: string); |
procedure TGikoForm.MoveToURL(URL: string); |
| 5994 |
var |
var |
| 5995 |
Host : string; |
protocol, host, path, document, port, bookmark : string; |
| 5996 |
BBSKey: string; |
BBSID, BBSKey: string; |
| 5997 |
Board: TBoard; |
Board: TBoard; |
| 5998 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 5999 |
i, bi : Integer; |
i, bi : Integer; |
| 6071 |
// exception が発生した場合は内部処理に任せたいのでここでは何もしない |
// exception が発生した場合は内部処理に任せたいのでここでは何もしない |
| 6072 |
end; |
end; |
| 6073 |
|
|
| 6074 |
Host := GikoSys.UrlToServer( URL ); |
GikoSys.ParseURI( URL, protocol, host, path, document, port, bookmark ); |
| 6075 |
|
GikoSys.Parse2chURL( URL, path, document, BBSID, BBSKey ); |
| 6076 |
|
|
| 6077 |
if GikoSys.Is2chHost(Host) then begin |
if GikoSys.Is2chHost(Host) then begin |
| 6078 |
Board := BBSsFindBoardFromURL( GikoSys.Get2chThreadURL2BoardURL( URL ) ); |
Board := BBSsFindBoardFromURL( GikoSys.Get2chThreadURL2BoardURL( URL ) ); |
|
|
Legend:
| Removed from v.1.127 |
|
| changed lines |
| |
Added in v.1.128 |
|
|
| |