Class T_News (unit tcpip)

Inherits from

T_MailNews

@\\\0000000601*) (*@/// T_News = class(T_MailNews) // RFC 850

Constructors


constructor Create(Aowner:TComponent);

@\\\0000000B01*) (*@\\\0000000801*) (*@/// class t_news(t_mailnews) *) (*@/// constructor t_news.


Functions

procedure action;

@\\\0000000603*) (*@/// procedure t_news.

destructor Destroy;

@\\\0000000501*) (*@/// destructor t_news.

procedure SetNewsgroups(Value: TStringList);

@\\\000000030F*) (*@/// procedure t_news.

Properties

property Newsgroups : TStringlist


property NNTP : T_NNTP


property Organization : string


Events

Variables

f_newsgroups : TStringlist;


f_nntp : T_NNTP;


f_organization : string;



Constructors


constructor Create(Aowner:TComponent);

@\\\0000000B01*) (*@\\\0000000801*) (*@/// class t_news(t_mailnews) *) (*@/// constructor t_news.Create(Aowner:TComponent);


Functions


procedure action;

@\\\0000000603*) (*@/// procedure t_news.action;


destructor Destroy;

@\\\0000000501*) (*@/// destructor t_news.Destroy;


procedure SetNewsgroups(Value: TStringList);

@\\\000000030F*) (*@/// procedure t_news.SetNewsgroups(Value: TStringList);


Properties


property Newsgroups : TStringlist


property NNTP : T_NNTP


property Organization : string


Events


Variables


f_newsgroups : TStringlist;


f_nntp : T_NNTP;


f_organization : string;