urssbase.pas

自己写的一个 RSS 阅读器

{*****************************************************************************}
{                                                                             }
{                           Delphi XML Data Binding                           }
{                                                                             }
{         Generated on: 18.05.2004 15:35:27                                   }
{                                                                             }
{*****************************************************************************}
unit uRSSBase;

interface

uses uW3CDTF, FastStringFuncs, MSXML2_TLB, uConstants;

type
  IRSSBase = interface;
  IRSSItemBase = interface;
  IRSSItemBaseList = interface;

  IRSSBase = interface
    ['{DD9BE881-3AD1-478B-A88F-7E252C6AFE5F}']
    function Get_Version : WideString;
    function Get_Title : string;
    function Get_Link: WideString;
    function Get_Description: string;
    function Get_Creator: WideString;
    function Get_Items: IRSSItemBaseList;

    property Version: WideString read Get_Version;
    property Title: string read Get_Title;
    property Link: Widestring read Get_Link;
    property Description: string read Get_Description;
    property Creator: WideString read Get_Creator;
    property Items: IRSSItemBaseList read Get_Items;
  end;


  IRSSItemBaseList = interface
    ['{28D80C98-C04A-4531-A59E-B82FD12413F4}']
    procedure Add(item : TInterfacedObject);
    function Get_Item(index : integer): IRSSItemBase; overload;
    function Get_Count(): integer;

    property Item[Index: Integer]: IRSSItemBase read Get_Item; default;
    property Count : integer read Get_Count;
  end;

  IRSSItemBase = interface
  	['{D45FAA5F-D1FD-461F-9EFE-549343BA9968}']
    function Get_Author: string;
    function Get_Title: string;
    function Get_PubDate: TW3CDTF;
    function Get_Guid: WideString;
    function Get_Link: WideString;
    function Get_Category: string;
    function Get_Creator: WideString;
    function Get_Description: string;

    property PubDate: TW3CDTF read Get_PubDate;
    property Title: string read Get_Title;
    property Link: WideString read Get_Link;
    property Guid: WideString read Get_Guid;
    property Description: string read Get_Description;
    property Author: string read Get_Author;
    property Category: string read Get_Category;
    property Creator: WideString read Get_Creator;
  end;

implementation

end.