Favorite.pas

   1 unit Favorite;
   2
   3 interface
   4
   5 uses
   6         Messages, SysUtils, Classes, Contnrs, ComCtrls, {HttpApp,} YofUtils,
   7         GikoSystem{, XMLIntf, XMLDoc}, GikoXMLDoc, BoardGroup, windows,
   8     MojuUtils;
   9         {SAX, SAXHelpers, SAXComps, SAXKW;}
  10
  11 type
  12         TFavoriteFolder = class
  13         end;
  14
  15         TFavoriteBoardItem = class
  16         private
  17                 FItem                           : TBoard;
  18                 FURL                            : string;
  19                 FTitle                  : string;
  20                 function        GetItem : TBoard;
  21         public
  22                 constructor Create( inURL : string; inTitle : string = ''; inItem : TBoard = nil );
  23                 constructor CreateWithItem( inItem : TBoard );
  24         destructor Destory;
  25                 property Item                           : TBoard        read GetItem write FItem;
  26                 property URL                            : string        read FURL write FURL;   // Item \82ª\8eæ\93¾\82Å\82«\82È\82\82Ä\82à URL \82Í\8fí\82É\95Û\8e\9d\82³\82ê\82é
  27                 property Title                  : string        read FTitle write FTitle;
  28         end;
  29
  30         TFavoriteThreadItem = class
  31         private
  32                 FItem                           : TThreadItem;
  33                 FURL                            : string;
  34                 FTitle                  : string;
  35                 function        GetItem : TThreadItem;
  36         public
  37                 constructor Create( inURL : string; inTitle : string = ''; inItem : TThreadItem = nil );
  38                 constructor CreateWithItem( inItem : TThreadItem );
  39         destructor Destory;
  40                 property Item                           : TThreadItem   read GetItem write FItem;
  41                 property URL                            : string                        read FURL write FURL;   // Item \82ª\8eæ\93¾\82Å\82«\82È\82\82Ä\82à URL \82Í\8fí\82É\95Û\8e\9d\82³\82ê\82é
  42                 property Title                  : string                        read FTitle write FTitle;
  43         end;
  44
  45         TFavoriteDM = class(TDataModule)
  46                 procedure DataModuleDestroy(Sender: TObject);
  47         private
  48                 { Private \90é\8c¾ }
  49                 FStack: TStack;
  50                 FTreeView: TTreeView;
  51
  52                 procedure ReadNode(Node: IXMLNode);
  53                 procedure AddSaveString(Node: TTreeNode; SaveList: TStringList);
  54 //              procedure AddSaveString(Node: TTreeNode; XMLNode: IXMLNode);
  55 //              procedure SAXStartDocument(Sender: TObject);
  56 //              procedure SAXEndDocument(Sender: TObject);
  57 //              procedure SAXStartElement(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString; const Atts: IAttributes);
  58 //              procedure SAXEndElement(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString);
  59 //              procedure SAXCharacters(Sender: TObject; const PCh: SAXString);
  60         public
  61                 { Public \90é\8c¾ }
  62         procedure Clear;
  63                                 function GetFavoriteFilePath() : String;
  64                                 function SaveFavoriteFile(FileName: String) : Boolean;
  65                 procedure SetFavTreeView(TreeView: TTreeView);
  66                 procedure ReadFavorite;
  67                 procedure WriteFavorite;
  68         procedure URLReplace(oldURLs: TStringList; newURLs: TStringList);
  69                 property TreeView: TTreeView read FTreeView;
  70         end;
  71
  72 var
  73         FavoriteDM: TFavoriteDM;
  74 const
  75         FAVORITE_LINK_NAME = '\83\8a\83\93\83N';
  76
  77 implementation
  78
  79 uses    ExternalBoardManager, ExternalBoardPlugInMain;
  80
  81 const
  82         FAVORITE_ROOT_NAME = '\82¨\8bC\82É\93ü\82è';
  83         FAVORITE_FILE_NAME = 'Favorite.xml';
  84
  85 {$R *.dfm}
  86
  87 constructor TFavoriteBoardItem.Create(
  88         inURL           : string;
  89         inTitle : string = '';
  90         inItem  : TBoard = nil
  91 );
  92 begin
  93
  94         inherited Create;
  95
  96         URL             := inURL;
  97         Title   := inTitle;
  98         Item    := inItem;
  99
 100 end;
 101
 102 constructor TFavoriteBoardItem.CreateWithItem(
 103         inItem  : TBoard
 104 );
 105 begin
 106
 107         Create( inItem.URL, inItem.Title, inItem );
 108
 109 end;
 110 destructor TFavoriteBoardItem.Destory;
 111 begin
 112         if FItem <> nil then
 113         FItem.Free;
 114     inherited;
 115 end;
 116 function        TFavoriteBoardItem.GetItem : TBoard;
 117 var
 118         protocol, host, path, document, port, bookmark : string;
 119         BBSID{, BBSKey} : string;
 120         tmpURL                          : string;
 121 //      category : TCategory;
 122 begin
 123
 124         if FItem = nil then begin
 125                 FItem := BBSsFindBoardFromURL( URL );
 126                 if FItem = nil then begin
 127                         tmpURL := URL;
 128                         GikoSys.ParseURI( tmpURL, protocol, host, path, document, port, bookmark );
 129                         if GikoSys.Is2chHost( host ) then begin
 130                                 BBSID := GikoSys.URLToID( tmpURL );
 131                                 FItem := BBSs[ 0 ].FindBBSID( BBSID );
 132                                 if FItem <> nil then
 133                                         URL := FItem.URL;
 134                         end;
 135                         {
 136                         // \81¦\8dì\82Á\82Ä\82à\81A\92Ç\89Á\82·\82é\83J\83e\83S\83\8a\82ª\96³\82¢\82Ì\82Å\8c\83\82µ\82\95Û\97¯
 137                         FItem                           := GikoSys.GetUnknownBoard( nil, URL );
 138                         FItem.Title     := Title;
 139                         }
 140                 end;
 141         end;
 142
 143         Result := FItem;
 144
 145 end;
 146
 147 constructor TFavoriteThreadItem.Create(
 148         inURL           : string;
 149         inTitle : string = '';
 150         inItem  : TThreadItem = nil
 151 );
 152 begin
 153
 154         inherited Create;
 155
 156         URL             := inURL;
 157         Title   := inTitle;
 158         Item    := inItem;
 159
 160 end;
 161
 162 constructor TFavoriteThreadItem.CreateWithItem(
 163         inItem  : TThreadItem
 164 );
 165 begin
 166
 167         Create( inItem.URL, inItem.Title, inItem );
 168
 169 end;
 170 destructor TFavoriteThreadItem.Destory;
 171 begin
 172         if FItem <> nil then
 173         FItem.Free;
 174     inherited;
 175 end;
 176
 177 function        TFavoriteThreadItem.GetItem : TThreadItem;
 178 var
 179         board                                   : TBoard;
 180         boardURL                        : string;
 181         browsableURL    : string;
 182         protocol, host, path, document, port, bookmark : string;
 183         BBSID, BBSKey   : string;
 184         tmpURL                          : string;
 185 begin
 186
 187         Result := nil;
 188         if FItem = nil then begin
 189                 browsableURL    := GikoSys.GetBrowsableThreadURL( URL );
 190                 boardURL                        := GikoSys.GetThreadURL2BoardURL( browsableURL );
 191                 board                                   := BBSsFindBoardFromURL( boardURL );
 192
 193                 if board = nil then begin
 194                         tmpURL := URL;
 195                         GikoSys.ParseURI( tmpURL, protocol, host, path, document, port, bookmark );
 196                         if GikoSys.Is2chHost( host ) then begin
 197                                 GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey );
 198                                 board := BBSs[ 0 ].FindBBSID( BBSID );
 199                         end;
 200
 201                         if board = nil then begin
 202                                 Exit;
 203                                 // \81¦\8dì\82Á\82Ä\82à\81A\92Ç\89Á\82·\82é\83J\83e\83S\83\8a\82ª\96³\82¢\82Ì\82Å\8c\83\82µ\82\95Û\97¯
 204                                 //board := GikoSys.GetUnknownBoard( nil, boardURL )
 205                         end;
 206                 end;
 207
 208                 FItem := board.FindThreadFromURL( browsableURL );
 209
 210                 if FItem = nil then begin
 211                         tmpURL := URL;
 212                         GikoSys.ParseURI( tmpURL, protocol, host, path, document, port, bookmark );
 213                         if GikoSys.Is2chHost( host ) then begin
 214                                 GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey );
 215                                 FItem := BBSs[ 0 ].FindThreadItem( BBSID, BBSKey + '.dat' );
 216                                 if FItem <> nil then
 217                                         URL := FItem.URL;
 218                         end;
 219                 end;
 220
 221                 if FItem = nil then begin
 222                         FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL );
 223
 224                         FItem.Title := Title;
 225                         board.Add( FItem );
 226                 end;
 227         end;
 228
 229         Result := FItem;
 230
 231 end;
 232
 233 procedure TFavoriteDM.DataModuleDestroy(Sender: TObject);
 234 //var
 235 //      i: Integer;
 236 begin
 237 {    TreeView.Items.BeginUpdate;
 238         for i := TreeView.Items.Count - 1 downto 0 do begin
 239            //   if TObject(TreeView.Items[i].Data) <> nil then
 240        //       TObject(TreeView.Items[i].Data).Free;
 241         end;
 242     TreeView.Items.Clear;
 243     TreeView.Items.EndUpdate;
 244 }    //TreeView.Free;
 245 end;
 246 procedure TFavoriteDM.Clear;
 247 var
 248         Node    : TTreeNode;
 249 begin
 250         TreeView.Items.BeginUpdate;
 251         Node    := TreeView.Items.GetFirstNode;
 252         while Node <> nil do begin
 253                 if TObject(Node.Data) <> nil then
 254                                 TObject(Node.Data).Free;
 255                 Node := Node.GetNext;
 256         end;
 257                 TreeView.Items.Clear;
 258                 TreeView.Items.EndUpdate;
 259     //TreeView.Free;
 260 end;
 261
 262 procedure TFavoriteDM.SetFavTreeView(TreeView: TTreeView);
 263 begin
 264         FTreeView := TreeView;
 265 end;
 266
 267 procedure TFavoriteDM.ReadFavorite;
 268 var
 269         FileName: string;
 270         XMLDoc: IXMLDocument;
 271         XMLNode: IXMLNode;
 272         Node: TTreeNode;
 273         i: Integer;
 274         FavFolder: TFavoriteFolder;
 275         LinkExists: Boolean;
 276 begin
 277
 278         FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 279
 280         FavFolder := TFavoriteFolder.Create;
 281         Node := FTreeView.Items.AddChildObject(nil, FAVORITE_ROOT_NAME, FavFolder);
 282         Node.ImageIndex := 14;
 283         Node.SelectedIndex := 14;
 284
 285         if FileExists(FileName) then begin
 286                 try
 287             XMLDoc := IXMLDocument.Create;
 288                         //XMLDoc := LoadXMLDocument(FileName);
 289             LoadXMLDocument(FileName, XMLDoc);
 290                         XMLNode := XMLDoc.DocumentElement;
 291
 292                         FStack := TStack.Create;
 293                         try
 294                                 FStack.Push(Node);
 295                                 LinkExists := False;
 296                                 if XMLNode.NodeName = 'favorite' then begin
 297                                         for i := 0 to XMLNode.ChildNodes.Count - 1 do begin
 298                                                 ReadNode(XMLNode.ChildNodes[i]);
 299                                                 if (XMLNode.ChildNodes[i].NodeName = 'folder') and
 300                                                          (XMLNode.ChildNodes[i].Attributes['title'] = FAVORITE_LINK_NAME) then begin
 301                                                         LinkExists := True;
 302                                                 end;
 303                                         end;
 304                                 end;
 305                                 if not LinkExists then begin
 306                                         FavFolder := TFavoriteFolder.Create;
 307                                         Node := FTreeView.Items.AddChildObject(Node, FAVORITE_LINK_NAME, FavFolder);
 308                                         Node.ImageIndex := 14;
 309                                         Node.SelectedIndex := 14;
 310                                 end;
 311                         finally
 312                                 FStack.Free;
 313                 XMLDoc.Free;
 314                         end;
 315                 except
 316                 end;
 317         end;
 318
 319 {
 320         FavFolder := TFavoriteFolder.Create;
 321         Node := FTreeView.Items.AddChildObject(nil, FAVORITE_ROOT_NAME, FavFolder);
 322         Node.ImageIndex := 12;
 323         Node.SelectedIndex := 13;
 324
 325         FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 326         if not FileExists(FileName) then
 327                 Exit;
 328
 329                 FavSAXHandler.OnStartDocument := SAXStartDocument;
 330                 FavSAXHandler.OnEndDocument := SAXEndDocument;
 331                 FavSAXHandler.OnStartElement := SAXStartElement;
 332                 FavSAXHandler.OnStartElement := SAXStartElement;
 333                 FavSAXHandler.OnEndElement := SAXEndElement;
 334                 FavSAXHandler.OnCharacters := SAXCharacters;
 335
 336                 FavSAXReader.Vendor := 'Keith Wood';
 337                 FavSAXReader.URL := FileName;
 338                 FavSAXReader.Parse;}
 339 end;
 340
 341 procedure TFavoriteDM.ReadNode(Node: IXMLNode);
 342 var
 343         i: Integer;
 344
 345         ParentNode: TTreeNode;
 346         CurrentNode: TTreeNode;
 347         FavFolder: TFavoriteFolder;
 348         FavBoard: TFavoriteBoardItem;
 349         FavThread: TFavoriteThreadItem;
 350         board                           : TBoard;
 351         threadItem      : TThreadItem;
 352 begin
 353         if Node.NodeName = 'folder' then begin
 354                 ParentNode := FStack.Peek;
 355                 if TObject(ParentNode.Data) is TFavoriteFolder then begin
 356                         FavFolder := TFavoriteFolder.Create;
 357                         CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavFolder);
 358                         CurrentNode.ImageIndex := 14;
 359                         CurrentNode.SelectedIndex := 14;
 360                         CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true';
 361                         FStack.Push(CurrentNode);
 362                 end;
 363                 for i := 0 to Node.ChildNodes.Count - 1 do begin
 364                         ReadNode(Node.ChildNodes[i]);
 365                 end;
 366                 if FStack.Count <> 0 then
 367                         FStack.Pop;
 368         end else if Node.NodeName = 'favitem' then begin
 369                 try
 370                         ParentNode := FStack.Peek;
 371                         if TObject(ParentNode.Data) is TFavoriteFolder then begin
 372                                 if Node.Attributes['favtype'] = 'board' then begin
 373                                         FavBoard := nil;
 374                                         // \8b\8c\8e®\82Ì\82¨\8bC\82É\93ü\82è\82Æ\82Ì\8cÝ\8a·\90«\82Ì\82½\82ß
 375                                         if Length( Node.Attributes[ 'bbs' ] ) > 0 then begin
 376                                                 board := BBSsFindBoardFromBBSID( Node.Attributes[ 'bbs' ] );
 377                                                 if board <> nil then
 378                                                         FavBoard := TFavoriteBoardItem.Create(
 379                                                                 board.URL, Node.Attributes[ 'title' ], board );
 380                                         end else begin
 381                                                 FavBoard := TFavoriteBoardItem.Create(
 382                                                         Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );
 383                                         end;
 384                                         CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavBoard);
 385                                         CurrentNode.ImageIndex := 15;
 386                                         CurrentNode.SelectedIndex := 15;
 387                                 end else if Node.Attributes['favtype'] = 'thread' then begin
 388                                         // \8b\8c\8e®\82Ì\82¨\8bC\82É\93ü\82è\82Æ\82Ì\8cÝ\8a·\90«\82Ì\82½\82ß
 389                                         if Length( Node.Attributes[ 'bbs' ] ) > 0 then begin
 390                                                 board := BBSsFindBoardFromBBSID( Node.Attributes[ 'bbs' ] );
 391                                                 if board = nil then
 392                                                         Exit;
 393
 394                                                 if not board.IsThreadDatRead then
 395                                                         GikoSys.ReadSubjectFile( board );
 396                                                 threadItem := board.FindThreadFromFileName( Node.Attributes[ 'thread' ] );
 397                                                 if threadItem = nil then begin
 398                                                         threadItem := TThreadItem.Create(
 399                                                                 board.BoardPlugIn,
 400                                                                 GikoSys.Get2chBoard2ThreadURL( board, ChangeFileExt( Node.Attributes[ 'thread' ], '' ) ) );
 401                                                         threadItem.Title := Node.Attributes[ 'title' ];
 402                                                         board.Add( threadItem );
 403                                                 end;
 404                                                 FavThread := TFavoriteThreadItem.Create(
 405                                                         threadItem.URL, Node.Attributes[ 'title' ], threadItem );
 406                         threadItem.Free;
 407                                         end else begin
 408                                                 FavThread := TFavoriteThreadItem.Create(
 409                                                         Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );
 410                                         end;
 411                                         CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Node.Attributes['title'], FavThread);
 412                                         CurrentNode.ImageIndex := 16;
 413                                         CurrentNode.SelectedIndex := 16;
 414                                 end;
 415                         end;
 416                 except
 417                         // \82±\82Ì\83A\83C\83e\83\80\82Å\96â\91è\82ª\8bN\82«\82Ä\82à\91¼\82Ì\83A\83C\83e\83\80\82É\89e\8b¿\82ð\97^\82¦\82½\82\82È\82¢\82Ì\82Å
 418                 end;
 419         end;
 420 end;
 421
 422 procedure TFavoriteDM.WriteFavorite;
 423 {
 424 var
 425         FileName: string;
 426 //      SaveList: TStringList;
 427 //      i: Integer;
 428 //      Count: Integer;
 429
 430         XMLDoc: IXMLDocument;
 431         XMLNode: IXMLNode;
 432 //      FavoNode: IXMLNode;
 433 begin
 434         XMLDoc :=       NewXMLDocument;
 435         XMLDoc.Encoding := 'Shift_JIS';
 436         XMLDoc.StandAlone := 'yes';
 437         XMLNode := XMLDoc.AddChild('favorite');
 438         FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 439         AddSaveString(TreeView.Items.GetFirstNode, XMLNode);
 440         XMLDoc.SaveToFile(FileName);
 441 }
 442 var
 443         FileName: string;
 444         SaveList: TStringList;
 445 begin
 446         FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 447         MoveFile( PChar( FileName ), PChar( GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME ) );
 448         SaveList := TStringList.Create;
 449         try
 450                 SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
 451                 SaveList.Add('<favorite>');
 452                 AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);
 453                 SaveList.Add('</favorite>');
 454                 SaveList.SaveToFile(FileName);
 455         finally
 456                 SaveList.Free;
 457         end;
 458 end;
 459
 460 {
 461 procedure TFavoriteDM.AddSaveString(Node: TTreeNode; XMLNode: IXMLNode);
 462 var
 463         i: Integer;
 464 //      s: string;
 465         FavBoard: TFavoriteBoardItem;
 466         FavThread: TFavoriteThreadItem;
 467         FavNode: IXMLNode;
 468 begin
 469         for i := 0 to Node.Count - 1 do begin
 470                 if TObject(Node.Item[i].Data) is TFavoriteFolder then begin
 471                         FavNode := XMLNode.AddChild('folder');
 472                         FavNode.Attributes['title'] := Node.Item[i].Text;
 473                         AddSaveString(Node.Item[i], FavNode);
 474                 end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin
 475                         FavBoard := TFavoriteBoardItem(Node.Item[i].Data);
 476                         FavNode := XMLNode.AddChild('favitem');
 477                         FavNode.Attributes['type'] := '2ch';
 478                         FavNode.Attributes['favtype'] := 'board';
 479                         FavNode.Attributes['bbs'] := FavBoard.BBSID;
 480                         FavNode.Attributes['title'] := Node.Item[i].Text;
 481                         FavNode.Attributes['boardname'] := FavBoard.BoardName;
 482                 end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin
 483                         FavThread := TFavoriteThreadItem(Node.Item[i].Data);
 484                         FavNode := XMLNode.AddChild('favitem');
 485                         FavNode.Attributes['type'] := '2ch';
 486                         FavNode.Attributes['favtype'] := 'thread';
 487                         FavNode.Attributes['bbs'] := FavThread.BBSID;
 488                         FavNode.Attributes['thread'] := FavThread.ThreadID;
 489                         FavNode.Attributes['title'] := Node.Item[i].Text;
 490                         FavNode.Attributes['threadname'] := FavThread.ThreadName;
 491                 end;
 492         end;
 493 end;
 494 }
 495
 496 procedure TFavoriteDM.AddSaveString(Node: TTreeNode; SaveList: TStringList);
 497 var
 498         s: string;
 499         FavBoard: TFavoriteBoardItem;
 500         FavThread: TFavoriteThreadItem;
 501         data : Pointer;
 502 begin
 503         while Node <> nil do begin
 504                 data := Node.Data;
 505                 if TObject(data) is TFavoriteFolder then begin
 506                         if Node.Expanded then
 507                                 s := Format('<folder title="%s" expanded="true">', [HtmlEncode(Node.Text)])
 508                         else
 509                                 s := Format('<folder title="%s" expanded="false">', [HtmlEncode(Node.Text)]);
 510                         SaveList.Add(s);
 511                         AddSaveString(Node.getFirstChild, SaveList);
 512                         SaveList.Add('</folder>');
 513                 end else if TObject(data) is TFavoriteBoardItem then begin
 514                         FavBoard := TFavoriteBoardItem(data);
 515                         s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>',
 516                                                                         [HtmlEncode( FavBoard.URL ), HtmlEncode(Node.Text)]);
 517                         SaveList.Add(s);
 518                 end else if TObject(data) is TFavoriteThreadItem then begin
 519                         FavThread := TFavoriteThreadItem(data);
 520                         s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>',
 521                                                                         [HtmlEncode( FavThread.URL ), HtmlEncode(Node.Text)]);
 522                         SaveList.Add(s);
 523                 end;
 524                 Node := Node.getNextSibling;
 525         end;
 526 end;
 527
 528 {
 529 procedure TFavoriteDM.SAXStartDocument(Sender: TObject);
 530 begin
 531         FStack := TStack.Create;
 532         FStack.Push(FTreeView.Items.GetFirstNode);
 533 end;
 534
 535 procedure TFavoriteDM.SAXEndDocument(Sender: TObject);
 536 begin
 537         FStack.Free;
 538 end;
 539
 540 procedure TFavoriteDM.SAXStartElement(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString;
 541         const Atts: IAttributes);
 542 var
 543         FavType: string;
 544         ParentNode: TTreeNode;
 545         CurrentNode: TTreeNode;
 546         FavFolder: TFavoriteFolder;
 547         FavBoard: TFavoriteBoardItem;
 548         FavThread: TFavoriteThreadItem;
 549 begin
 550         if QName = 'folder' then begin
 551                 ParentNode := FStack.Peek;
 552                 if TObject(ParentNode.Data) is TFavoriteFolder then begin
 553                         FavFolder := TFavoriteFolder.Create;
 554                         CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Atts.getValue('title'), FavFolder);
 555                         CurrentNode.ImageIndex := 12;
 556                         CurrentNode.SelectedIndex := 13;
 557                         FStack.Push(CurrentNode);
 558                 end;
 559         end else if QName = 'favitem' then begin
 560                 ParentNode := FStack.Peek;
 561                 if TObject(ParentNode.Data) is TFavoriteFolder then begin
 562                         FavType := Atts.getValue('favtype');
 563                         if FavType = 'board' then begin
 564                                 FavBoard := TFavoriteBoardItem.Create;
 565                                 FavBoard.BBSID := Atts.getValue('bbs');
 566                                 FavBoard.BoardName := Atts.getValue('boardname');
 567                                 CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Atts.getValue('title'), FavBoard);
 568                                 CurrentNode.ImageIndex := 14;
 569                                 CurrentNode.SelectedIndex := 15;
 570                         end else if FavType = 'thread' then begin
 571                                 FavThread := TFavoriteThreadItem.Create;
 572                                 FavThread.BBSID := Atts.getValue('bbs');
 573                                 FavThread.ThreadID := Atts.getValue('thread');
 574                                 FavThread.ThreadName := Atts.getValue('threadname');
 575                                 CurrentNode := FTreeView.Items.AddChildObject(ParentNode, Atts.getValue('title'), FavThread);
 576                                 CurrentNode.ImageIndex := 16;
 577                                 CurrentNode.SelectedIndex := 17;
 578                         end;
 579                 end;
 580         end;
 581 end;
 582
 583 procedure TFavoriteDM.SAXEndElement(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString);
 584 begin
 585         if QName = 'folder' then begin
 586                 if FStack.Count <> 0 then
 587                         FStack.Pop;
 588         end;
 589 end;
 590
 591 procedure TFavoriteDM.SAXCharacters(Sender: TObject; const PCh: SAXString);
 592 begin
 593 //
 594 end;
 595 }
 596 function TFavoriteDM.SaveFavoriteFile(FileName: String) : Boolean;
 597 var
 598         FavoriteFilePath: string;
 599                 tempStringList: TStringList;
 600 begin
 601         WriteFavorite;
 602         FavoriteFilePath := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 603
 604         if FileExists( FavoriteFilePath ) then begin
 605                 tempStringList := TStringList.Create;
 606                 try
 607                         tempStringList.LoadFromFile( FavoriteFilePath );
 608                         tempStringList.SaveToFile( FileName );
 609                 finally
 610                         tempStringList.Free;
 611                 end;
 612                 Result := true;
 613         end else begin
 614                 Result := false;
 615         end;
 616 end;
 617
 618 procedure TFavoriteDM.URLReplace(oldURLs: TStringList; newURLs: TStringList);
 619 var
 620         i                                       : Integer;
 621                 tmpURL: string;
 622     oldHost: string;
 623     oldBoardName: string;
 624     newHost: string;
 625     newBoardName: string;
 626                 tempString: string;
 627         favBoard        : TFavoriteBoardItem;
 628         favThread       : TFavoriteThreadItem;
 629         favorites       : TTreeNodes;
 630         Node                    : TTreeNode;
 631 begin
 632
 633         // \96Ê\93|\82¾\82¯\82Çthread\82Í\82»\82ê\82¼\82êURL\82ð\83`\83F\83b\83N\82µ\82È\82ª\82ç\82â\82Á\82Ä\82©\82È\82«\82á\82¢\82¯\82È\82¢\81B
 634         favorites := FavoriteDM.FTreeView.Items;
 635         for i := 0 to oldURLs.Count - 1 do begin
 636                 try
 637                         tmpURL                  := Copy(oldURLs[i], 1, Length(oldURLs[i]) -1);
 638                         oldHost                 := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
 639                         oldBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
 640                         tmpURL                  := Copy(newURLs[i], 1, Length(newURLs[i]) -1);
 641                         newHost                 := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
 642                         newBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
 643
 644                         Node := favorites.GetFirstNode.getFirstChild;
 645                         while Node <> nil do begin
 646                                 try
 647                                         if TObject( Node.Data ) is TFavoriteBoardItem then begin
 648                                                 favBoard := TFavoriteBoardItem( Node.Data );
 649                                                 if favBoard = nil then continue;
 650                                                 tempString := favBoard.URL;
 651                                                 if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin
 652                                                         tempString              := StringReplace(tempString, oldHost, newHost,[]);
 653                                                         favBoard.URL    := tempString;
 654                                                 end;
 655                                         end else if TObject( Node.Data ) is TFavoriteThreadItem then begin
 656                                                 favThread := TFavoriteThreadItem( Node.Data );
 657                                                 if favThread = nil then continue;
 658                                                 tempString := favThread.URL;
 659                                                 if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin
 660                                                         tempString              := StringReplace(tempString, oldHost, newHost,[]);
 661                                                         favThread.URL   := tempString;
 662                                                 end;
 663                                         end;
 664                                 except
 665                                 end;
 666                                 Node := Node.GetNext;
 667                         end;
 668                 except
 669                 end;
 670         end;
 671
 672 end;
 673
 674 function TFavoriteDM.GetFavoriteFilePath() : String;
 675 begin
 676         Result := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
 677 end;
 678
 679 end.