Discussion :

[Ouail1825]

Salut et bonjour fan delphi;

suite aux besoins de mon travail, je suis entrain développer une application Intraweb sous delphi 2009 (environnement Windows), une application de Base de données d'accès distant, reliant le service où je travail, avec un autre bâtiment via une connexion RTC de 28 Kb/s, la connexion est parfaite les raquettes rapides, la consultation s’effectue à merveille.

Au niveau des sessions utilisateurs, quand un utilisateur s’authentifie je stock ses identifiants (Session et mot de passe) dans un fichier texte que je crée dans un répertoire ayant le nom des segments de la même session, pour les recharger si besoin, les droits d'accès sont stockées dans une table Access, si l'utilisateur (X) est connecté un champs Connecté type boolean := True, sinon il reçoit false.

Le problème est quand l'utilisateur se déconnecte directement en fermant la navigateur, j'arrive pas à:

01- intercepter la fermeture du navigateur.
02- Gérer les variables au niveau de la Usersession.
03- je veux si possible injecter des variables spécifique à chaque utilisateur ex: Username et non globaux, ou pouvoir les extraire du fichier texte qui s'enregistre automatiquement qund l'utilisateur s'authentifie.

merci, et j'espère que que ma question n'est pas aussi bête

[SergioMaster]

Bonjour, et bienvenue sur le forum

suite aux besoins de mon travail, je suis entrain développer une application Intraweb sous delphi 2009 (environnement Windows), une application de Base de données d'accès distant, reliant le service où je travail, avec un autre bâtiment via une connexion RTC de 28 Kb/s, la connexion est parfaite les raquettes rapides, la consultation s’effectue à merveille.

pourquoi un programme Intraweb ? enfin là n'est pas le sujet

01- intercepter la fermeture du navigateur.

utilisation de ondestroy de la session ?
//ce code + celui du point 02 représente la totalité de mon unité IWUserSession

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TIWUserSession.IWUserSessionBaseDestroy(Sender: TObject);
begin
DeleteFile(pdfname);
FreeAndNil(iwDatas);
end;

02- Gérer les variables au niveau de la Usersession.

je comprends pas le terme 'gérer'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
uses
  IWUserSessionBase, SysUtils, Classes, DatamoduleUnit;
type
  TIWUserSession = class(TIWUserSessionBase)
    procedure IWUserSessionBaseCreate(Sender: TObject);
    procedure IWUserSessionBaseDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iwdatas : TDatas;
    increment : Integer;
    Marque : String;
    pdfname : String;
    repImage : String;
    Langue : String;
  end;
 
implementation
 
uses ServerController;
{$R *.dfm}
 
procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
begin
Increment:=-1;  // initialisation d'une variable 
iwDatas:=TDatas.Create(Self);  // création d'un datamodule
end;

le code du point 03 montre une utilisation de ces variables

03- je veux si possible injecter des variables spécifique à chaque utilisateur ex: Username et non globaux, ou pouvoir les extraire du fichier texte qui s'enregistre automatiquement qund l'utilisateur s'authentifie.

autrement dit les cookies , j'ai fourni dans un de mes posts récents une unité que j'avais trouvé sur le net , cependant c'est avec la version IW 14 ,dans les versions précédentes on utilise une TStringlist pour passer les cookies

Code iwmain :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
interface 
 uses ....  ServerController, UserSessionUnit, .... ;  // bien sur ne pas oublier d'indiquer l'utilisation des unités (point 01)
....
// lecture de cookies
  UserSession.marque:=WebApplication.Request.CookieFields.Values['Marque'];
 UserSession.Langue:=WebApplication.Request.CookieFields.Values['Language'];
// envoi de cookies durée de vie 10 jours (IncDay(Now,10))
var slist : TStringList;
...
begin
  sList := TStringList.Create;
  sList.Add('Increment='+inttostr(usersession.increment));
  sList.Add('Marque='+userSession.Marque);
  sList.Add('Language='+UserSession.Langue);
  WebApplication.Response.SetCookieField(sList,'','',IncDay(Now,10),false);
  sList.Free;
end;