Class TNNTPForm (unit NewsRdr1) |
Inherits from
TForm
procedure AbortButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ArticleByIDButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ArticleByNumberButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AuthenticateButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure BodyByIDButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure BodyByNumberButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DateButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure GroupButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HeadByIDButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HeadByNumberButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HelpButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LastButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ListButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NewGroupsButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NewNewsButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NextButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NntpCli1DataAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by TNntpCli when it has received data and } { don't know what to do with it.
procedure NntpCli1MessageBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by TNntpCli component just before the } { component will begin receiving a message.
procedure NntpCli1MessageEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by TNntpCli component when a message has } { been received completely.
procedure NntpCli1MessageLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by TNntpCli component for each line of an } { incomming message.
procedure NntpCli1RequestDone(Sender: TObject; RqType: TNntpRequest; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called for each NNTP command when the command has } { been exected (correctly or not).
procedure NntpCli1SessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NntpCli1SessionConnected(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OverViewFmtButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PostButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Posting a message require to build the message, including his header.
procedure QuitButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure StatByIDButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure StatByNumberButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure XOverButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Msg : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetStream : TStream;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This function is called internally to create a TFileStream if any file } { name is specified in the FileEdit box.
procedure LineToStream(Buf : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AbortButton : TButton;
ArticleByIDButton : TButton;
ArticleByNumberButton : TButton;
ArticleIDEdit : TEdit;
ArticleNumEdit : TEdit;
AuthenticateButton : TButton;
BodyByIDButton : TButton;
BodyByNumberButton : TButton;
ConnectButton : TButton;
DateButton : TButton;
DisplayMemo : TMemo;
FileEdit : TEdit;
GroupButton : TButton;
GroupEdit : TEdit;
HeadByIDButton : TButton;
HeadByNumberButton : TButton;
HelpButton : TButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
LastButton : TButton;
ListButton : TButton;
NewGroupsButton : TButton;
NewNewsButton : TButton;
NextButton : TButton;
NntpCli1 : TNntpCli;
OverViewFmtButton : TButton;
Panel1 : TPanel;
PasswordEdit : TEdit;
PostButton : TButton;
QuitButton : TButton;
ServerEdit : TEdit;
StatByIDButton : TButton;
StatByNumberButton : TButton;
UserEdit : TEdit;
UserNameEdit : TEdit;
XOverButton : TButton;
FDataStream : TStream;
FInitialized : Boolean;
Déclarations privées
procedure AbortButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ArticleByIDButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ArticleByNumberButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure AuthenticateButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure BodyByIDButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure BodyByNumberButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ConnectButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure DateButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormClose(Sender: TObject; var Action: TCloseAction);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure FormShow(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure GroupButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HeadByIDButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HeadByNumberButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure HelpButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure LastButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure ListButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NewGroupsButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NewNewsButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NextButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NntpCli1DataAvailable(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by TNntpCli when it has received data and } { don't know what to do with it. It should normally not occur !
procedure NntpCli1MessageBegin(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by TNntpCli component just before the } { component will begin receiving a message. It's a good place to open a } { file or start a progress bar.
procedure NntpCli1MessageEnd(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by TNntpCli component when a message has } { been received completely. It's a good place to close a file, delete the } { progress bar and alert user.
procedure NntpCli1MessageLine(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called by TNntpCli component for each line of an } { incomming message. Header line as well as body lines are comming here. } { It's a good place to write to a file or update screen or progress bar. } { It's also the place to intercept header lines.
procedure NntpCli1RequestDone(Sender: TObject; RqType: TNntpRequest; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This event handler is called for each NNTP command when the command has } { been exected (correctly or not).
procedure NntpCli1SessionClosed(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure NntpCli1SessionConnected(Sender: TObject; Error: Word);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure OverViewFmtButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure PostButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { Posting a message require to build the message, including his header. } { Here we use a TMemoryStream to create a message on the fly. Normally we } { should use a TFileStream to get the message from a file where it has } { been written by some user interface.
procedure QuitButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure StatByIDButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure StatByNumberButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure XOverButtonClick(Sender: TObject);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
procedure Display(Msg : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
function GetStream : TStream;
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} { This function is called internally to create a TFileStream if any file } { name is specified in the FileEdit box. If the edit box is blank, nil is } { returned. The TFileStream will be supplyed to the comoponent for every } { command which can take a TStream to store data such as ArticleByNum. } { The stream is destroyed in the OnRequestDone event handler.
procedure LineToStream(Buf : String);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
AbortButton : TButton;
ArticleByIDButton : TButton;
ArticleByNumberButton : TButton;
ArticleIDEdit : TEdit;
ArticleNumEdit : TEdit;
AuthenticateButton : TButton;
BodyByIDButton : TButton;
BodyByNumberButton : TButton;
ConnectButton : TButton;
DateButton : TButton;
DisplayMemo : TMemo;
FileEdit : TEdit;
GroupButton : TButton;
GroupEdit : TEdit;
HeadByIDButton : TButton;
HeadByNumberButton : TButton;
HelpButton : TButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
LastButton : TButton;
ListButton : TButton;
NewGroupsButton : TButton;
NewNewsButton : TButton;
NextButton : TButton;
NntpCli1 : TNntpCli;
OverViewFmtButton : TButton;
Panel1 : TPanel;
PasswordEdit : TEdit;
PostButton : TButton;
QuitButton : TButton;
ServerEdit : TEdit;
StatByIDButton : TButton;
StatByNumberButton : TButton;
UserEdit : TEdit;
UserNameEdit : TEdit;
XOverButton : TButton;
FDataStream : TStream;
FInitialized : Boolean;
Déclarations privées