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