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