TDBSessionFactory

type TDBSessionFactory = class(TSessionFactory)

protected

  procedure Notification(); override;

  procedure StartWork; virtual;

  procedure EndWork(); virtual;

  function GetTransaction;

  function CreateQuery(); virtual;

  procedure ExecSQL(); virtual;

  function Expiry();

  function UseVersion;

  function NewVersion; virtual;

  function GetDialect; virtual;

  function GetColumnType(); virtual;

  function GetDBObjectName(); virtual;

  function LoadSession(); virtual;

  procedure MergeData(); virtual;

  function StoreSession(); virtual;

  procedure StoreValues(); virtual;

  procedure DeleteSession(); virtual;

  procedure RenameSession(); virtual;

  function DataToString(); virtual;

  procedure StringToData(); virtual;

  function DoCreateSession(); override;

  procedure DoCleanupSessions; override;

  procedure DoDoneSession(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure GetCreateTablesSQL(); virtual;

  procedure CreateTables; virtual;

  property Connection: TSQLConnection; [rw]

  property Transaction: TSQLTransaction; [rw]

  property StorageType: TDBSessionStorageType; [rw]

  property Cached: Boolean; [rw]

  property SessionTableName: string; [rw]

  property ValuesTableName: string; [rw]

  property SessionIDFieldName: string; [rw]

  property ExpiresFieldName: string; [rw]

  property DataFieldName: string; [rw]

  property KeyFieldName: string; [rw]

  property ValueFieldName: string; [rw]

  property VersionFieldName: string; [rw]

  property MaxWriteAttempts: Integer; [rw]

end;

TDBSessionFactory

TSessionFactory

TObject