| Class T_NNTP (unit tcpip) |
@\\\0000001701*) (*@/// T_NNTP = class(T_TcpIp) // RFC 977
| Constructors |
constructor Create(Aowner:TComponent);| Functions |
destructor Destroy;
procedure GetAllNewsgroups;@\\\0000000601*) (*@/// procedure t_nntp.
procedure GetArticle(const group:string; index:integer);@\\\0000000D01*) (*@/// procedure t_nntp.
procedure GetArticleID(const msgid:string);@\\\0000000306*) (*@/// procedure t_nntp.
procedure GetArticleNr(index:integer);
procedure GetCurrentArticle;
procedure GetNewNewsgroups(since:TDateTime);
procedure GetNextArticle;
procedure GetPreviousArticle;
procedure Login;
procedure Logout;
procedure PostArticle;
procedure SetCurrentArticle(index:integer);
procedure SetGroup(const group:string; var low,high,count: integer);
procedure action;
procedure GetArticleInternally;
procedure response;
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;