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