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