| Class TwmdListPics (unit ListPics1) |
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);
procedure wmdListPicswacOnePicAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure wppNotFoundHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
procedure wppOnePicHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
procedure wtpListPicsFormatCell(Sender: TObject; CellRow,
CellColumn: Integer; var BgColor: THTMLBgColor;
var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,
CellData: String);| 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;