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