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