| Class TWebModuleCounter (unit main) |
TWebModule
----------------------------------------------------------------------------- Project: TGIFImage CGI Counter Module: main Description: CGI Hit Counter using TGIFImage to create GIF images. Version: 2.0 Release: 3 Date: 26-APR-1998 Target: Win32, Delphi 3, C++ Builder 3 Author(s): anme: Anders Melander, anders@melander.dk Copyright (c) 1997,98 by Anders Melander Formatting: 2 space indent, 8 space tabs, 80 columns. ----------------------------------------------------------------------------- This software is copyrighted as noted above. It may be freely copied, modified, and redistributed, provided that the copyright notice(s) is preserved on all copies. // There is no warranty or other guarantee of fitness for this software, it is provided solely "as is". Bug reports or fixes may be sent to the author, who may or may not act on them as he desires. // You may not include this software in a program or other software product without supplying the source, or without informing the end-user that the source is available for no extra charge. // If you modify this software, you should include a notice in the "Revision history" section giving the name of the person performing the modification, the date of modification, and the reason for such modification. ----------------------------------------------------------------------------- Revision history: // 0100 251197 anme - Initial version. // 0105 280298 anme - Revised for release. - Released as version 1.5 // 0200 260498 anme - Revised for release. - Released as version 2.0 // ----------------------------------------------------------------------------- To do (in rough order of priority): // * Add support for external digit images. // ----------------------------------------------------------------------------- Additional comments: // The CGI Counter has been tested on the following platforms: * Netscape FastTrack 2.0 using NSAPI on Windows 95 * Microsoft IIS 3.0 using ISAPI on Windows NT 4.0 -----------------------------------------------------------------------------
| Constructors |
| Functions |
procedure WebActionItemCounterAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure WebModuleCounterCreate(Sender: TObject);
procedure WebModuleCounterDestroy(Sender: TObject);
procedure IncrementCounter(Item: string; Increment: boolean);
procedure LoadDomains(Key, Item: string; List: TStrings);
procedure LoadSetup(Item: string);| Properties |
| Events |
| Variables |
ColorBackground : TColor;
ColorDigits : TColor;
ColorFrame : TColor;
ColorShadow : TColor;
ColorTransparent : TColor;
Count : integer;
CountFormat : string;
DigitFont : string;
DigitShadow : boolean;
DigitSize : integer;
FrameWidth : integer;
IgnoreReferers : TStringList;
ImageBackground : string;
ImageDigits : string;
ImageHeight : integer;
ImageMargin : integer;
ImageWidth : integer;
Interlaced : boolean;
Message : string;
MessageFont : string;
Registry : TRegistry;
ShadowHeight : integer;
Transparent : boolean;
ValidReferers : TStringList;
GIFImage : TGIFImage;| Constructors |
| Functions |
procedure WebActionItemCounterAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);Read item-specific setup
procedure WebModuleCounterCreate(Sender: TObject);Max number of milli seconds to remember an IP #
procedure WebModuleCounterDestroy(Sender: TObject);
procedure IncrementCounter(Item: string; Increment: boolean);Read and optionally Increment the counter value stored in the registry
procedure LoadDomains(Key, Item: string; List: TStrings);Load a list of domains (or any other list for that matter
procedure LoadSetup(Item: string);Load configuration from registry
| Properties |
| Events |
| Variables |
ColorBackground : TColor;
ColorDigits : TColor;
ColorFrame : TColor;
ColorShadow : TColor;
ColorTransparent : TColor;
Count : integer;
CountFormat : string;
DigitFont : string;
DigitShadow : boolean;
DigitSize : integer;
FrameWidth : integer;
IgnoreReferers : TStringList;
ImageBackground : string;
ImageDigits : string;
ImageHeight : integer;
ImageMargin : integer;
ImageWidth : integer;Future
Interlaced : boolean;
Message : string;
MessageFont : string;
Registry : TRegistry;
ShadowHeight : integer;
Transparent : boolean;
ValidReferers : TStringList;Public declarations
GIFImage : TGIFImage;Private declarations