Class TWebModuleCounter (unit main)

Inherits from

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

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


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