Class TwmdListPics (unit ListPics1)

Inherits from

TWebModule

Demonstration of WebPics CGI program. Written by Keith Wood, 12 Aug 1997.

Constructors



Functions

procedure wmdListPicswacListPicsAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

Picture list --------------------------------------------------------------- } { Generate list of pictures in the database

procedure wmdListPicswacOnePicAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

Single picture ------------------------------------------------------------- } { Generate a single picture page

procedure wppNotFoundHTMLTag(Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings; var ReplaceText: String);

Supply error message with incorrect parameters

procedure wppOnePicHTMLTag(Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings; var ReplaceText: String);

Substitute database values into the page

procedure wtpListPicsFormatCell(Sender: TObject; CellRow, CellColumn: Integer; var BgColor: THTMLBgColor; var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs, CellData: String);

Format each description as a link to the picture

Properties

Events

Variables

qryListPics : TQuery;


qryListPicsPICTURE_NO : TIntegerField;


qryListPicsPICTURE_TEXT : TStringField;


qryListPicsPICTURE_TYPE : TStringField;


wppNotFound : TPageProducer;


wppOnePic : TPageProducer;


wtpListPics : TDataSetTableProducer;



Constructors


Functions


procedure wmdListPicswacListPicsAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

Picture list --------------------------------------------------------------- } { Generate list of pictures in the database


procedure wmdListPicswacOnePicAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

Single picture ------------------------------------------------------------- } { Generate a single picture page


procedure wppNotFoundHTMLTag(Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings; var ReplaceText: String);

Supply error message with incorrect parameters


procedure wppOnePicHTMLTag(Sender: TObject; Tag: TTag; const TagString: String; TagParams: TStrings; var ReplaceText: String);

Substitute database values into the page


procedure wtpListPicsFormatCell(Sender: TObject; CellRow, CellColumn: Integer; var BgColor: THTMLBgColor; var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs, CellData: String);

Format each description as a link to the picture


Properties


Events


Variables


qryListPics : TQuery;


qryListPicsPICTURE_NO : TIntegerField;


qryListPicsPICTURE_TEXT : TStringField;


qryListPicsPICTURE_TYPE : TStringField;


wppNotFound : TPageProducer;


wppOnePic : TPageProducer;


wtpListPics : TDataSetTableProducer;