Class TwmdWebPics (unit WebPics1)

Inherits from

TWebModule

Extract a picture from a database and display it on the web. Written by Keith Wood, 12 Aug 1997.

Constructors



Functions

procedure wmdWebPicsCreate(Sender: TObject);

Initialisation

procedure wmdWebPicsDestroy(Sender: TObject);

Free resources

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

Configuration -------------------------------------------------------------- } { Accept request and perform configuration actions

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

Extract a picture from the database and return it

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

Display a new scheme

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

List all schemes

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

Display an existing scheme

procedure AddScheme;

Add a scheme

function Coded(sPassword: String): String;

En/decode password field

procedure DeleteScheme;

Delete a scheme

function LoadScheme(sId: String): Boolean;

Load details about a scheme from the registry

procedure SaveScheme(sSchemeId: String);

Save a scheme to the registry

procedure SetFields;

Set pointer to request fields depending on request method

procedure UpdateScheme;

Update a scheme

Properties

Events

Variables

dbsWebPics : TDatabase;


qryWebPics : TQuery;


wppAddScheme : TPageProducer;


wppListSchemes : TPageProducer;


wppUpdateScheme : TPageProducer;


regSchemes : TRegistry;


sAliasName : String;


sBlobField : String;


sKeyField : String;


slsHTTPFields : TStrings;

Private declarations

slsOtherParams : TStringList;


sPassword : String;


sSchemeId : String;


sSchemeName : String;


sTableName : String;


sTypeField : String;


sUserId : String;



Constructors


Functions


procedure wmdWebPicsCreate(Sender: TObject);

Initialisation


procedure wmdWebPicsDestroy(Sender: TObject);

Free resources


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

Configuration -------------------------------------------------------------- } { Accept request and perform configuration actions


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

Extract a picture from the database and return it


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

Display a new scheme


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

List all schemes


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

Display an existing scheme


procedure AddScheme;

Add a scheme


function Coded(sPassword: String): String;

En/decode password field


procedure DeleteScheme;

Delete a scheme


function LoadScheme(sId: String): Boolean;

Load details about a scheme from the registry


procedure SaveScheme(sSchemeId: String);

Save a scheme to the registry


procedure SetFields;

Set pointer to request fields depending on request method


procedure UpdateScheme;

Update a scheme


Properties


Events


Variables


dbsWebPics : TDatabase;


qryWebPics : TQuery;


wppAddScheme : TPageProducer;


wppListSchemes : TPageProducer;


wppUpdateScheme : TPageProducer;


regSchemes : TRegistry;


sAliasName : String;


sBlobField : String;


sKeyField : String;


slsHTTPFields : TStrings;

Private declarations


slsOtherParams : TStringList;


sPassword : String;


sSchemeId : String;


sSchemeName : String;


sTableName : String;


sTypeField : String;


sUserId : String;