svn/view/UserSessionUnit.pas

unit UserSessionUnit;

{
  This is a DataModule where you can add components or declare fields that are specific to
  ONE user. Instead of creating global variables, it is better to use this datamodule. You can then
  access the it using UserSession.
}
interface

uses
  IWUserSessionBase, SysUtils, Classes, Unit3, graphics, Data.DB, jpeg;

type
  TIWUserSession = class(TIWUserSessionBase)
    procedure IWUserSessionBaseDestroy(Sender: TObject);
    procedure IWUserSessionBaseCreate(Sender: TObject);
  private
    FDM: TDataModule3;
    function GetDM: TDataModule3;
    { Private declarations }
  public
    { Public declarations }
    FPage: Boolean;
    user_number: integer;
    FThumbnail: Boolean;
    Serial: integer;
    function hash(const pass: string): string;
    procedure ImgToField(img: TPicture; field: TField);
    procedure FieldToImg(img: TPicture; field: TField);
    property DM: TDataModule3 read GetDM;
  end;

implementation

{$R *.dfm}
{ TIWUserSession }

procedure TIWUserSession.FieldToImg(img: TPicture; field: TField);
var
  s: TStream;
  jpg: TJpegImage;
begin
  if field.IsNull = false then
  begin
    s := field.DataSet.CreateBlobStream(field, bmRead);
    jpg := TJpegImage.Create;
    try
      jpg.LoadFromStream(s);
      img.Assign(jpg);
    finally
      s.Free;
      jpg.Free;
    end;
  end
  else
    img.Assign(nil);
end;

function TIWUserSession.GetDM: TDataModule3;
begin
  if Assigned(FDM) = false then
    FDM := TDataModule3.Create(nil);
  result := FDM;
end;

function TIWUserSession.hash(const pass: string): string;
var
  i: integer;
  k: integer;
begin
  result := '';
  for i := Length(pass) downto 1 do
  begin
    k := Ord(pass[i]) * i;
    result := result + k.ToString;
  end;
end;

procedure TIWUserSession.ImgToField(img: TPicture; field: TField);
var
  s: TStream;
  jpg: TJpegImage;
  bmp: TBitmap;
begin
  s := field.DataSet.CreateBlobStream(field, bmWrite);
  jpg := TJpegImage.Create;
  bmp:=TBitmap.Create;
  try
    bmp.Assign(img.Graphic);
    jpg.Assign(bmp);
    jpg.SaveToStream(s);
  finally
    s.Free;
    bmp.Free;
    jpg.Free;
  end;
end;

procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
var
  s: string;
begin
  FThumbnail := true;
  s := WebApplication.Request.CookieFields.Values['user_cookie'];
  if (s <> '') and (DM.FDTable1.Locate('NUMBER', s, []) = true) then
  begin
    user_number := s.ToInteger;
    if DM.FDTable1.FieldByName('EMAIL').AsString = '' then
      FPage := true
    else
      FPage := false;
  end
  else
    FPage := true;
end;

procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);
begin
  FreeAndNil(FDM);
end;

end.