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