david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
100 lines
2.3 KiB
ObjectPascal
100 lines
2.3 KiB
ObjectPascal
unit Global;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.Collections, System.ComponentModel,
|
|
System.Web, System.Web.SessionState, System.Data;
|
|
|
|
type
|
|
TGlobal = class(System.Web.HttpApplication)
|
|
{$REGION 'Designer Managed Code'}
|
|
strict private
|
|
procedure InitializeComponent;
|
|
{$ENDREGION}
|
|
strict protected
|
|
procedure Application_Start(sender: System.Object; e: EventArgs);
|
|
procedure Session_Start(sender: System.Object; e: EventArgs);
|
|
procedure Application_BeginRequest(sender: System.Object; e: EventArgs);
|
|
procedure Application_EndRequest(sender: System.Object; e: EventArgs);
|
|
procedure Application_AuthenticateRequest(sender: System.Object; e: EventArgs);
|
|
procedure Application_Error(sender: System.Object; e: EventArgs);
|
|
procedure Session_End(sender: System.Object; e: EventArgs);
|
|
procedure Application_End(sender: System.Object; e: EventArgs);
|
|
private
|
|
{ Private Declarations }
|
|
public
|
|
constructor Create;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$REGION 'Designer Managed Code'}
|
|
/// <summary>
|
|
/// Required method for Designer support -- do not modify
|
|
/// the contents of this method with the code editor.
|
|
/// </summary>
|
|
procedure TGlobal.InitializeComponent;
|
|
begin
|
|
|
|
end;
|
|
{$ENDREGION}
|
|
|
|
constructor TGlobal.Create;
|
|
begin
|
|
inherited;
|
|
//
|
|
// Required for Designer support
|
|
//
|
|
InitializeComponent;
|
|
//
|
|
// TODO: Add any constructor code after InitializeComponent call
|
|
//
|
|
end;
|
|
|
|
procedure TGlobal.Application_Start(sender: System.Object; e: EventArgs);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TGlobal.Session_Start(sender: System.Object; e: EventArgs);
|
|
var
|
|
dataSet : System.Data.DataSet;
|
|
begin
|
|
dataSet := System.Data.DataSet.Create();
|
|
HttpContext.Current.Session.Add('dataset', dataSet);
|
|
end;
|
|
|
|
procedure TGlobal.Application_BeginRequest(sender: System.Object; e: EventArgs);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TGlobal.Application_EndRequest(sender: System.Object; e: EventArgs);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TGlobal.Application_AuthenticateRequest(sender: System.Object; e: EventArgs);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TGlobal.Application_Error(sender: System.Object; e: EventArgs);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TGlobal.Session_End(sender: System.Object; e: EventArgs);
|
|
begin
|
|
// HttpContext.Current.Session.Clear();
|
|
end;
|
|
|
|
procedure TGlobal.Application_End(sender: System.Object; e: EventArgs);
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|
|
|