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.343 by h677, Sun Jun 20 05:40:40 2004 UTC revision 1.344 by h677, Tue Jun 22 11:59:05 2004 UTC
# Line 7012  procedure TGikoForm.MoveToURL(URL: strin Line 7012  procedure TGikoForm.MoveToURL(URL: strin
7012    
7013  var  var
7014          protocol, host, path, document, port, bookmark : string;          protocol, host, path, document, port, bookmark : string;
7015            URL2, protocol2, host2, path2, document2, port2, bookmark2 : string;
7016            tmp1, tmp2: string;
7017          BBSID, BBSKey: string;          BBSID, BBSKey: string;
7018          Board: TBoard;          Board: TBoard;
7019          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
# Line 7119  begin Line 7121  begin
7121                          // 過去ログ倉庫から、ダウソしたスレが発見できないのでここで探すようにする (2004/01/22)                          // 過去ログ倉庫から、ダウソしたスレが発見できないのでここで探すようにする (2004/01/22)
7122                          Board := BBSs[ 0 ].FindBBSID( Copy(BBSID, 1 , Length(BBSID) - 1) );                          Board := BBSs[ 0 ].FindBBSID( Copy(BBSID, 1 , Length(BBSID) - 1) );
7123                  end;                  end;
7124                  if (Board = nil) or (boardURL <> Board.URL) then begin                  URL2 :=  Board.URL;
7125                    GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 );
7126                    tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host));
7127                    tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2));
7128            // 外部の板なのに2chのURLにされてしまった奴をここで確認する
7129                    if (Board = nil) or (tmp1 <> tmp2) then begin
7130                          GikoSys.OpenBrowser(URL, gbtUserApp);                          GikoSys.OpenBrowser(URL, gbtUserApp);
7131                          Exit;                          Exit;
7132                          //Board := GikoSys.GetUnknownBoard( nil, boardURL );                          //Board := GikoSys.GetUnknownBoard( nil, boardURL );

Legend:
Removed from v.1.343  
changed lines
  Added in v.1.344

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