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