Class TwmdListPics (unit ListPics1) |
Inherits from
TWebModule
Demonstration of WebPics CGI program.
Written by Keith Wood, 12 Aug 1997.
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
qryListPics : TQuery;
qryListPicsPICTURE_NO : TIntegerField;
qryListPicsPICTURE_TEXT : TStringField;
qryListPicsPICTURE_TYPE : TStringField;
wppNotFound : TPageProducer;
wppOnePic : TPageProducer;
wtpListPics : TDataSetTableProducer;
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
qryListPics : TQuery;
qryListPicsPICTURE_NO : TIntegerField;
qryListPicsPICTURE_TEXT : TStringField;
qryListPicsPICTURE_TYPE : TStringField;
wppNotFound : TPageProducer;
wppOnePic : TPageProducer;
wtpListPics : TDataSetTableProducer;