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.127 by yoffy, Sat Nov 22 15:11:26 2003 UTC revision 1.128 by yoffy, Sat Nov 22 17:06:14 2003 UTC
# Line 5992  end; Line 5992  end;
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;
# Line 6071  begin Line 6071  begin
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

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