| 21 |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan, |
| 22 |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil, |
| 23 |
IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain, |
IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain, |
| 24 |
StdActns, GikoXMLDoc, Variants, ExtActns; |
StdActns, GikoXMLDoc, Variants, ExtActns,IdTCPConnection, IdBaseComponent, |
| 25 |
|
IdTCPClient; |
| 26 |
|
|
| 27 |
type |
type |
| 28 |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite); |
| 550 |
LogFolderOpenAction: TAction; |
LogFolderOpenAction: TAction; |
| 551 |
OpenLogFolder: TMenuItem; |
OpenLogFolder: TMenuItem; |
| 552 |
Browser: TWebBrowser; |
Browser: TWebBrowser; |
| 553 |
|
LocalRuleView: TToolButton; |
| 554 |
|
IdHTTP1: TIdHTTP; |
| 555 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 556 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 557 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 888 |
NewHeight: Integer; var Resize: Boolean); |
NewHeight: Integer; var Resize: Boolean); |
| 889 |
procedure LogFolderOpenActionExecute(Sender: TObject); |
procedure LogFolderOpenActionExecute(Sender: TObject); |
| 890 |
procedure LogFolderOpenActionUpdate(Sender: TObject); |
procedure LogFolderOpenActionUpdate(Sender: TObject); |
| 891 |
|
procedure LocalRuleViewClick(Sender: TObject); |
| 892 |
private |
private |
| 893 |
{ Private 宣言 } |
{ Private 宣言 } |
| 894 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 5934 |
AddressComboBox.Items.Insert(0, URL); |
AddressComboBox.Items.Insert(0, URL); |
| 5935 |
end; |
end; |
| 5936 |
end; |
end; |
| 5937 |
MoveToURL( URL ); |
MoveToURL( URL ); |
| 5938 |
end; |
end; |
| 5939 |
end; |
end; |
| 5940 |
end; |
end; |
| 7029 |
var |
var |
| 7030 |
protocol, host, path, document, port, bookmark : string; |
protocol, host, path, document, port, bookmark : string; |
| 7031 |
URL2, protocol2, host2, path2, document2, port2, bookmark2 : string; |
URL2, protocol2, host2, path2, document2, port2, bookmark2 : string; |
|
tmpURL: string; |
|
| 7032 |
tmp1, tmp2: string; |
tmp1, tmp2: string; |
| 7033 |
BBSID, BBSKey: string; |
BBSID, BBSKey: string; |
| 7034 |
Board: TBoard; |
Board: TBoard; |
| 7043 |
ctrlDown : Boolean; |
ctrlDown : Boolean; |
| 7044 |
begin |
begin |
| 7045 |
|
|
|
|
|
| 7046 |
GikoSys.ParseURI( URL, protocol, host, path, document, port, bookmark ); |
GikoSys.ParseURI( URL, protocol, host, path, document, port, bookmark ); |
| 7047 |
GikoSys.Parse2chURL( URL, path, document, BBSID, BBSKey ); |
GikoSys.Parse2chURL( URL, path, document, BBSID, BBSKey ); |
| 7048 |
|
|
| 7049 |
|
|
| 7050 |
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001); |
shiftDown := GetAsyncKeyState(VK_SHIFT) = Smallint($8001); |
| 7051 |
ctrlDown := GetAsyncKeyState(VK_CONTROL) = Smallint($8001); |
ctrlDown := GetAsyncKeyState(VK_CONTROL) = Smallint($8001); |
| 7052 |
if shiftDown then begin |
if shiftDown then begin |
| 7053 |
GikoSys.OpenBrowser(URL, gbtUserApp); |
GikoSys.OpenBrowser(URL, gbtUserApp); |
| 7054 |
Exit; |
Exit; |
| 7055 |
end else if ctrlDown then begin |
end else if ctrlDown then begin |
| 7056 |
GikoSys.OpenBrowser(URL, gbtIE); |
GikoSys.OpenBrowser(URL, gbtIE); |
| 7137 |
// 過去ログ倉庫から、ダウソしたスレが発見できないのでここで探すようにする (2004/01/22) |
// 過去ログ倉庫から、ダウソしたスレが発見できないのでここで探すようにする (2004/01/22) |
| 7138 |
Board := BBSs[ 0 ].FindBBSID( Copy(BBSID, 1 , Length(BBSID) - 1) ); |
Board := BBSs[ 0 ].FindBBSID( Copy(BBSID, 1 , Length(BBSID) - 1) ); |
| 7139 |
end; |
end; |
| 7140 |
if Board = nil then begin |
URL2 := Board.URL; |
| 7141 |
// 入るべき板が見つからなかったので、普通のブラウザで開く |
GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 ); |
| 7142 |
|
tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host)); |
| 7143 |
|
tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2)); |
| 7144 |
|
// 外部の板なのに2chのURLにされてしまった奴をここで確認する |
| 7145 |
|
if (Board = nil) or (tmp1 <> tmp2) then begin |
| 7146 |
GikoSys.OpenBrowser(URL, gbtUserApp); |
GikoSys.OpenBrowser(URL, gbtUserApp); |
| 7147 |
Exit; |
Exit; |
| 7148 |
end else begin |
//Board := GikoSys.GetUnknownBoard( nil, boardURL ); |
| 7149 |
// 外部の板なのに2chのURLにされてしまった奴をここで確認する |
//if (FTreeType = gtt2ch) and (FActiveBBS = BBSs[ 1 ]) then |
| 7150 |
URL2 := Board.URL; |
// ShowBBSTree( BBSs[ 1 ] ); |
|
GikoSys.ParseURI(URL2 , protocol2, host2, path2, document2, port2, bookmark2 ); |
|
|
tmp1 := Copy(host, AnsiPos('.', host) + 1, Length(host)); |
|
|
tmp2 := Copy(host2, AnsiPos('.', host2) + 1, Length(host2)); |
|
|
if (tmp1 <> tmp2) then begin |
|
|
GikoSys.OpenBrowser(URL, gbtUserApp); |
|
|
Exit; |
|
|
end; |
|
| 7151 |
end; |
end; |
| 7152 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 7153 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 10603 |
LogFolderOpenAction.Enabled := False; |
LogFolderOpenAction.Enabled := False; |
| 10604 |
end; |
end; |
| 10605 |
|
|
| 10606 |
|
procedure TGikoForm.LocalRuleViewClick(Sender: TObject); |
| 10607 |
|
var |
| 10608 |
|
RefURL, |
| 10609 |
|
RefeURL, |
| 10610 |
|
RuleURL, |
| 10611 |
|
RuleTxt:String; |
| 10612 |
|
FBoard: TBoard; |
| 10613 |
|
Indy: TIdHTTP; |
| 10614 |
|
begin |
| 10615 |
|
//フシアナトラップ警告(SETTING.TXT Mode) by 定期便 |
| 10616 |
|
RefURL := GikoSys.UrlToServer(FBoard.URL) |
| 10617 |
|
+ GikoSys.UrlToID(FBoard.URL) |
| 10618 |
|
+ '/'; |
| 10619 |
|
//RefURLを元にSETTING.TXTアドレス指定 |
| 10620 |
|
RefeURL := RefURL |
| 10621 |
|
+ 'SETTING.TXT'; |
| 10622 |
|
//試しにローカルルール取得も |
| 10623 |
|
RuleURL := RefURL |
| 10624 |
|
+ 'head.txt'; |
| 10625 |
|
//取得〜 |
| 10626 |
|
RuleTxt := Indy.Get(RuleURL); |
| 10627 |
|
|
| 10628 |
|
end; |
| 10629 |
|
|
| 10630 |
initialization |
initialization |
| 10631 |
OleInitialize(nil); |
OleInitialize(nil); |
| 10632 |
finalization |
finalization |