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