Class T_NNTP (unit tcpip)

Inherits from

T_TcpIp

@\\\0000001701*) (*@/// T_NNTP = class(T_TcpIp) // RFC 977

Constructors


constructor Create(Aowner:TComponent);

@\\\0000000330*) (*@/// constructor t_nntp.


Functions

destructor Destroy;

@\\\0000000401*) (*@/// destructor t_nntp.

procedure GetAllNewsgroups;

Methods more for a Newsreader

@\\\0000000601*) (*@/// procedure t_nntp.


procedure GetArticle(const group:string; index:integer);

To get an article from a URL like nntp://hostname/number

@\\\0000000D01*) (*@/// procedure t_nntp.


procedure GetArticleID(const msgid:string);

To get an article from a URL like news:msgid

@\\\0000000306*) (*@/// procedure t_nntp.


procedure GetArticleNr(index:integer);

@\\\0000000601*) (*@/// procedure t_nntp.

procedure GetCurrentArticle;

@\\\0000000401*) (*@/// procedure t_nntp.

procedure GetNewNewsgroups(since:TDateTime);

@\\\0000000601*) (*@/// procedure t_nntp.

procedure GetNextArticle;

@\\\0000000401*) (*@/// procedure t_nntp.

procedure GetPreviousArticle;

@\\\0000000401*) (*@/// procedure t_nntp.

procedure Login;

@\\\0000000401*) (*@/// procedure t_nntp.

procedure Logout;

@\\\0000000508*) (*@/// procedure t_nntp.

procedure PostArticle;

@\\\0000000301*) (*@/// procedure t_nntp.

procedure SetCurrentArticle(index:integer);

@\\\0000000401*) (*@/// procedure t_nntp.

procedure SetGroup(const group:string; var low,high,count: integer);

@\\\0000000601*) (*@/// procedure t_nntp.

procedure action;

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

procedure GetArticleInternally;

@\\\0000000301*) (*@/// procedure t_nntp.

procedure response;

@\\\0000000401*) (*@/// procedure t_nntp.

procedure SetNews(value:TStringlist);

???

@\\\0000000501*) (*@/// procedure t_nntp.


Properties

property Hostname : string


property News : TStringlist


property NewsGroups : TStringlist


Events

event OnTrace :


Variables

f_news : TStringList;


f_newsgroups : TStringList;


f_status_nr : integer;


f_status_txt : string;



Constructors


constructor Create(Aowner:TComponent);

@\\\0000000330*) (*@/// constructor t_nntp.Create(Aowner:TComponent);


Functions


destructor Destroy;

@\\\0000000401*) (*@/// destructor t_nntp.Destroy;


procedure GetAllNewsgroups;

Methods more for a Newsreader

@\\\0000000601*) (*@/// procedure t_nntp.GetAllNewsgroups; // LIST


procedure GetArticle(const group:string; index:integer);

To get an article from a URL like nntp://hostname/number

@\\\0000000D01*) (*@/// procedure t_nntp.GetArticle(group:string; index:integer);


procedure GetArticleID(const msgid:string);

To get an article from a URL like news:msgid

@\\\0000000306*) (*@/// procedure t_nntp.GetArticleID(msgid:string); // ARTICLE


procedure GetArticleNr(index:integer);

@\\\0000000601*) (*@/// procedure t_nntp.GetArticleNr(index:integer); // ARTICLE


procedure GetCurrentArticle;

@\\\0000000401*) (*@/// procedure t_nntp.GetCurrentArticle; // HEAD and BODY


procedure GetNewNewsgroups(since:TDateTime);

@\\\0000000601*) (*@/// procedure t_nntp.GetNewNewsgroups(since:TDateTime); // NEWGROUPS


procedure GetNextArticle;

@\\\0000000401*) (*@/// procedure t_nntp.GetNextArticle; // NEXT


procedure GetPreviousArticle;

@\\\0000000401*) (*@/// procedure t_nntp.GetPreviousArticle; // LAST


procedure Login;

@\\\0000000401*) (*@/// procedure t_nntp.Login;


procedure Logout;

@\\\0000000508*) (*@/// procedure t_nntp.Logout; // QUIT


procedure PostArticle;

@\\\0000000301*) (*@/// procedure t_nntp.PostArticle; // POST


procedure SetCurrentArticle(index:integer);

@\\\0000000401*) (*@/// procedure t_nntp.SetCurrentArticle(index:integer); // STAT


procedure SetGroup(const group:string; var low,high,count: integer);

@\\\0000000601*) (*@/// procedure t_nntp.SetGroup(group:string; low,high,count: integer); // GROUP


procedure action;

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


procedure GetArticleInternally;

@\\\0000000301*) (*@/// procedure t_nntp.GetArticleInternally;


procedure response;

@\\\0000000401*) (*@/// procedure t_nntp.response;


procedure SetNews(value:TStringlist);

???

@\\\0000000501*) (*@/// procedure t_nntp.SetNews(value:TStringlist);


Properties


property Hostname : string


property News : TStringlist


property NewsGroups : TStringlist


Events


event OnTrace :


Variables


f_news : TStringList;


f_newsgroups : TStringList;


f_status_nr : integer;


f_status_txt : string;