Class T_NNTP (unit tcpip) |
Inherits from
T_TcpIp
@\\\0000001701*) (*@/// T_NNTP = class(T_TcpIp) // RFC 977
constructor Create(Aowner:TComponent);
- @\\\0000000330*) (*@/// constructor t_nntp.
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.
property Hostname : string
property News : TStringlist
property NewsGroups : TStringlist
event OnTrace :
f_news : TStringList;
f_newsgroups : TStringList;
f_status_nr : integer;
f_status_txt : string;
constructor Create(Aowner:TComponent);
@\\\0000000330*) (*@/// constructor t_nntp.Create(Aowner:TComponent);
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);
property Hostname : string
property News : TStringlist
property NewsGroups : TStringlist
event OnTrace :
f_news : TStringList;
f_newsgroups : TStringList;
f_status_nr : integer;
f_status_txt : string;