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