Class TNNTPForm (unit NewsRdr1)

Inherits from

TForm

Constructors



Functions

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);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

Events

Variables

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


Constructors


Functions


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);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


Events


Variables


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