| Class TwmdWebPics (unit WebPics1) |
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);
procedure wmdWebPicsDestroy(Sender: TObject);
procedure wmdWebPicswacConfigureAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure wmdWebPicswacGetPicAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure wppAddSchemeHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
procedure wppListSchemesHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
procedure wppUpdateSchemeHTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
procedure AddScheme;
function Coded(sPassword: String): String;
procedure DeleteScheme;
function LoadScheme(sId: String): Boolean;
procedure SaveScheme(sSchemeId: String);
procedure SetFields;
procedure UpdateScheme;| Properties |
| Events |
| Variables |
dbsWebPics : TDatabase;
qryWebPics : TQuery;
wppAddScheme : TPageProducer;
wppListSchemes : TPageProducer;
wppUpdateScheme : TPageProducer;
regSchemes : TRegistry;
sAliasName : String;
sBlobField : String;
sKeyField : String;
slsHTTPFields : TStrings;
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;