Discussion :

[fthdz]

Bonjour

je voudrais faire une application avec un mot de passe alors j pensé a utiliser un fichier .ini voici unit1

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, Menus, Buttons, XPMan,IniFiles;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Ouvrir1: TMenuItem;
    N1: TMenuItem;
    Quiter1: TMenuItem;
    Edition1: TMenuItem;
    Copier1: TMenuItem;
    Configuration1: TMenuItem;
    Outils1: TMenuItem;
    Aide1: TMenuItem;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton5: TToolButton;
    Configurer1: TMenuItem;
    Compo1: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    ListedesClients1: TMenuItem;
    Aide2: TMenuItem;
    ListedesComptes1: TMenuItem;
    ListeClientComptes1: TMenuItem;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Quiter1Click(Sender: TObject);
    procedure OuvertureFiche(Class_Fiche: TFormClass);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ListedesClients1Click(Sender: TObject);
    procedure Aide2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   Passe,Asist : boolean;
  ini:TIniFile;
implementation
  Uses Unit2,Unit4,quickcli,apropos,Unit5,Unit6,Unit7;
{$R *.dfm}
 
//la fonction d'ouverture des fiches
procedure TForm1.OuvertureFiche(Class_Fiche: TFormClass);
var
  Num_Fiche : integer;
  trouve_Fiche : Boolean;
begin
  trouve_Fiche := false;
  Num_Fiche    := 0;
  while (Not trouve_Fiche) and (Num_Fiche<Screen.FormCount) do
  begin
    if (Screen.Forms[Num_Fiche] is Class_Fiche) then
    begin
       if Not (csDestroying in Screen.Forms[Num_Fiche].ComponentState) then
        Screen.Forms[Num_Fiche].Show;
        trouve_Fiche := true;
        break; 
    end;
    Inc(Num_Fiche);
  end;
 
  if Not trouve_Fiche then
    with Class_Fiche.Create(Self) do
       show;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//rien
 ini:=TIniFile.Create(ExtractFilePath(Application.EXEName)+'SysInfo.ini');
Passe :=ini.ReadBool('securite','mdp',true);
Asist :=ini.ReadBool('securite','ast',true);
ini.Free;
//Asist:=true;
//Passe:=false;
if Asist then
   begin
        formAssist:=TformAssist.Create(Form1);
        formAssist.Show
        //form1.Visible:=false;
   end
  else if Passe then
                   begin
                     FormPass:=TFormPass.Create(Form1);
                     FormPass.Show;
                  end;
end;
 
 
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
//Form2:=TForm2.Create(Form1); {création}
//Form2.Show;
 OuvertureFiche(TForm2);
end;
 
procedure TForm1.Quiter1Click(Sender: TObject);
begin
      application.Terminate;
end;
 
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  OuvertureFiche(TForm4);
end;
 
procedure TForm1.ListedesClients1Click(Sender: TObject);
begin
QuickReport5.Preview;
end;
 
procedure TForm1.Aide2Click(Sender: TObject);
begin
prop:=Tprop.Create(Form1); {création}
prop.Show;
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
 Form7:=TForm7.Create(Form1); {création}
Form7.Show;
end;
 
 
end.

la forme formAssist pour l'assistant de configuration de mot de passe et la form formPass pour afficher boite de dialogue pour entrer le mot de passe et sont de type normale alors que la form1 est de type fsMDIForm mais

il ya deux pbs:
1.la form formAssist (ou formPass) ne s'affiche pas apres la creation de form1 mais seulement aprés avoir cliqué sur une n'importe quelle fenetre de barre de taches au desous ?

2.la variable booleene ini ne reçoit pas la valeur lit de fichier SysInfo.ini(reçoit toujour la valeur par defaut) ?

MERCI D'AVANCE

[PierreDelcroix]

1.la form ... de taches au desous ?

On ne peut pas faire des "Form.show" dans la création de la fénêtre principale, on doit le faire dans le Form1.FormShow.

Je ne conseille pas de garder l'information de sécurité dans un fichier Ini . Tout le monde peut changer ceux-ci.

[fthdz]

On ne peut pas faire des "Form.show" dans la création de la fénêtre principale, on doit le faire dans le Form1.FormShow.

meme avec l'evenement OnShow de form1 il donne la meme chose ?

Je ne conseille pas de garder l'information de sécurité dans un fichier Ini . Tout le monde peut changer ceux-ci.

le mot de passe dans le fichier .ini est crypté .bon pour le moment je commence avec les fichiers .ini mais apres je doit pensé a une autre solution (avec base des données)

[macumba]

2.la variable booleene ini ne reçoit pas la valeur lit de fichier SysInfo.ini(reçoit toujour la valeur par defaut) ?

Qu'est ce que tu as dans ton fichier ini comme valeur?
D'après le code du readbool , le test est fait par rapport au nombre 0.
En fait :

Code :

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

1
2
3
 0 = Faux
 Autre valeur entière = Vrai
 Valeur Alphanumérique = Valeur par défaut

Pour le reste fait plutot des showmodal et met l'application comme propriétaire de ta fenêtre mot de passe, tu essaies d'afficher une fenêtre dont le propriétaire n'est pas encore complètement créé dans le formcreate. Autrement le formshow devrait marcher (si tu mets showmodal).

[Sub0]

Si tu veux, tu peux t"inspirer de ce code :
http://sub0.developpez.com/delphi/login.zip

[fthdz]

pour tous
exactement PierreDelcroix ,il marche tres avec Form1.FormShow mais avec showmodal comme il indique macumba et avec qlq modifications (visible) .

pour le 2eme pb:

Qu'est ce que tu as dans ton fichier ini comme valeur?

le fichier SysInfo.ini:

[securite]
ast=false
mdp=true

puis j changer en:

[securite]
ast=0
mdp=1

et c tres bien marché

merci Sub0 pour le code que je trouve tres interessant

merci

[Sub0]

Dans le même genre, mais avec un accès internet, j'ai développé un espace membre pour Delphi qui utilise des scripts PHP et une base de données MySQL. C'est assez facile de l'intégrer dans un projet, surtout si l'on connait le PHP. Je travaille actuellement sur une nouvelle version plus complète. Cela dit, il existe d'autres solutions pour identifier un utilisateur, je pense par exemple à l'authentification NTLM qui utilise le login de la session de Windows pour accéder au serveur web... D'ailleurs, ça me fait penser que tu peux songer à utiliser ce système pour ton application, cela pourrait éviter à tes utilisateurs de devoir créer un nouveau login, et cela ne nécessite pas forcément un accès internet pour fonctionner.

[fthdz]

exactement Sub0 c une bonne solution (surtout que je suis un tres bon programmeur en PHP,j réaliser un cms dont la partie membre est constitue des groupes qui ont des privilèges et chaque membre de portail est inclus dans un groupe...), mais a mon avis c'est une solution destiné a des applications en ligne

Ce programme est destiné à être utiliser dans un projet tel qu'un tchat ou un jeu en ligne

qui requiert beaucoup de securité(privilèges,injections....etc) et qui sont executé en multiutilisateurs(utilisation des Sessions).

Dans mon cas c'est une application simple executé en monoposte ,monoutilisatur donc j pas besoin d'utliser des sessions , il est constitué d'un seul mot de passe que le user peut le changer.je sais que la solution avec fichier .ini n'est pas fiable mais ce n'est que le debut,je doit pensé a d'autres solutions (je doit chercher dans developpez.net ou ouvrir une nouvelle descussion)
en plus votre solution requiert beucoup de ressources surtout parraport a une application simple(installation LAMP ou WAMP)
revenant a votre tutoriel que je trouve tres interissant surtout pour les developpeurs qui connaissent PHP (surtout php5 objet) ,integrer php avec delphi permet d'obtenir les multiple avantages des languages web.
espérant voir des bibliothèques des composants PHP a intégré dans l'environnement delphi( j n sais pas c déja le cas?).