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.347 by h677, Thu Jul 1 13:58:34 2004 UTC revision 1.348 by genyakun, Fri Jul 2 06:21:07 2004 UTC
# Line 21  uses Line 21  uses
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);
# Line 549  type Line 550  type
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);
# Line 885  type Line 888  type
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;
# Line 5930  begin Line 5934  begin
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;
# Line 7025  procedure TGikoForm.MoveToURL(URL: strin Line 7029  procedure TGikoForm.MoveToURL(URL: strin
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;
# Line 7040  var Line 7043  var
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);
# Line 7135  begin Line 7137  begin
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);
# Line 10604  begin Line 10603  begin
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

Legend:
Removed from v.1.347  
changed lines
  Added in v.1.348

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