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