Discussion :

[pitbul100]

Bjr, j'ai du creer un prog pr mon cour d'info.
il sagi d'un site(Fan-Club) ou on px grace a un mot de passe et son pseudo, voir des photo's et plus...
mais si vous ne posedez pas de mots de passe ni de pseudo, vs pouvez en creer un.
Mais j'ai un grand probleme!! au moment ke j'apuie sur 'ok' apret avoir entre mots de passe et psuedo...tout se bloque!! en m'indiquant --> Project Project4 raised exception class EInOutError with message 'I/O error 104' process stopped et m'indique ke la partie que g mis en rouge n'est pas bon.




home page:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls;

type
TFormEersteScherm = class(TForm)
EditUsername: TEdit;
EditPassword: TEdit;
ButtonNotMembre: TButton;
ButtonCheck: TButton;
Image1: TImage;
LabelPassword: TLabel;
LabelUsername: TLabel;
Image2: TImage;
procedure ButtonNotMembreClick(Sender: TObject);
procedure ButtonCheckClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type tbestand = textfile;


var
FormEersteScherm: TFormEersteScherm;
bestand:tbestand;
bestand10:Textfile;
bestand11:Textfile;
paswoord:string;
gevonden:boolean;
implementation

uses Unit2, Unit3;

{$R *.DFM}



procedure TFormEersteScherm.ButtonCheckClick(Sender: TObject);
var gevonden1:boolean;
gevonden2:boolean;
Username: string;
paswoord: string;
begin
gevonden1:=false;

assignfile(bestand10, 'C:\Username.txt');

reset(bestand10);

while not EOF(bestand10)
do
begin
readln(bestand10,Username);

if EditUsername.text = Username

then gevonden1:=true;



closefile(bestand10);
end;


gevonden2:=false;

assignfile(bestand11, 'C:\paswoord.txt');

reset(bestand11);

while not EOF(bestand11)
do

begin
readln(bestand11,paswoord);

if Editpassword.text = paswoord
then gevonden2:=true;

closefile(bestand11);
end;
begin

if gevonden1 =true and gevonden2 =true

then
begin
showmessage('paswoord en Username OK!!');
formEersteScherm.hide;
form3.show
end;
end;

begin
if gevonden1 =false and gevonden2 =false


then showmessage('Verkeerd Username of paswoord');
end;



end;


procedure TFormEersteScherm.ButtonNotMembreClick(Sender: TObject);
begin
formEersteScherm.hide;
form2.show;
end;






end.

page d'inscription de mot de passe et pseudo:

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm2 = class(TForm)
LabelWriteUsername: TLabel;
LabelInsertPassword: TLabel;
EditInsertUsername: TEdit;
EditInsertPassword: TEdit;
Button1: TButton;
Image2: TImage;
Image1: TImage;
procedure Button1Click(Sender: TObject);





private
{ Private declarations }
public
{ Public declarations }
end;

type
tbestand =textfile;
var
Form2: TForm2;
bestand10:tbestand;
bestand11:tbestand;
paswoord:string;

implementation

uses Unit1;

{$R *.DFM}



procedure TForm2.Button1Click(Sender: TObject);
var
Bestand10 : TextFile;
bestand11 : TextFile;

begin

AssignFile(Bestand10,'C:\Username.txt');
if not FileExists('c:\Username.txt')
then rewrite(bestand10)

else append(bestand10);
rewrite(bestand10);
Write(Bestand10,Form2.EditInsertUsername.Text);

CloseFile(Bestand10);

AssignFile(Bestand11,'C:\paswoord.txt');
if not FileExists('c:\paswoord.txt')then rewrite(bestand11)
else append(bestand11);
rewrite(bestand11);
Write(Bestand11,Form2.EditInsertPassword.Text);

CloseFile(Bestand11);


showmessage('Uw paswoord en Username zijn gememoriseerd');

Form2.hide;
formEersteScherm.show;
end;








end.

[MrDuChnok]

Tu fermes ton fichier dans la boucle...

Code :

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

1
2
3
4
5
6
7
8
9
while not EOF(bestand10)
do
begin
readln(bestand10,Username);
if EditUsername.text = Username then 
    gevonden1:=true;
end;
closefile(bestand10);

J'ai pas regardé la suite, mais dejà ça devrai passer cette erreur.

[nihao]

Amical conseil :

Tu éviterais ce genre de problèmes en indentant ton code !!

Code :

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

1
2
3
4
5
6
7
8
9
assignfile(bestand10, 'C:\Username.txt');
reset(bestand10);
while not EOF(bestand10) do
begin
       readln(bestand10,Username);
       if EditUsername.text = Username then gevonden1:=true;
       closefile(bestand10); // là tu fermes ton fichier dans la boucle !!!
end;

[pitbul100]

merci bcp!! il n'indique plus de faute...mais mnt il permait tout le monde de rentrer sur le site, meme avec un mot de passe et pseudo qui n'ont pas etais memorisé...??? kel est le prob

[MrDuChnok]

Ton test pour verifier que le pseudo et le mot de passe ont bien été trouvé dans les fichiers n'ai pas correct

Code :

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

1
2
3
4
5
 
Si (pseudo est dans fichier) et (mot de passe dans fichier ) alors
    ok
sinon
    pas ok

c'est normal que tu ne fais pas de vérification que le mot de pase correspond au pseudo saisie ?

Et tu as remarqué que pour ta deuxième boucle de parcours de fichier (celui des mots de passes), tu ferme aussi le fichier dans ta boucle ? et non pas après...

[Rayek]

Est ce que C:\paswoord.txt' est le bon nom de fichier, ca serait pas plutot c:\password.txt ?

[pitbul100]

j'avais déjà changé mon code en suivant ta fasson mais ca m'indiquai une faute; qu'il attendai un 'END' mais qu'il trouve un 'ELSE'.

if gevonden1 =true and gevonden2 =true then

showmessage('paswoord en Username OK!!');
formEersteScherm.hide;
form3.show


else showmessage('Verkeerd Username of paswoord');

end;

desolai de poser autant de question mais nos cours n'ont pas etais assez clair pr tout comprendre du premier coup...

ps; je dois donc fermer le fichier tout a la fin ... Closefile(...)

[MrDuChnok]

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
...
if gevonden1 =true and gevonden2 =true then
begin
   showmessage('paswoord en Username OK!!');
   //Femerture de la fenetre
   formEersteScherm.hide;
   form3.show
 end
else 
 begin
  showmessage('Verkeerd Username of paswoord');
  //là aussi femerture ??
 end;
 
end;

Je pense que ton code est un peu brouillon, tu as pensé le mettre sur papier avant, regarder ce que tu doit faire, et en faire un petit algorithme?
Après pour les problèmes de langage / syntaxe, il y a tous les cours necessaires sur le site.

edit :

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
 
function verificationUtilisateur(login : string ; password : string) : boolean
 
begin
 
  on ouvre le fichier de login
  on le parcours jusqu'à la fin ou jusqu'à trouver le login
  on ferme le fichier de login
 
  on ouvre le fichier de password
  on le parcours jusqu'à la fin ou jusqu'à trouver le password
  on ferme le fichier de password
 
  si login est ok et password est ok alors
     on retourne vrai
  sinon on retourne faux
 
 
end;

Bon courage

[pitbul100]

voila, j'ai tout changé mais tj le mm prob..il te donne tj acces au site...

if gevonden1 =true and gevonden2 =true then
begin
showmessage('paswoord en Username OK!!');
formEersteScherm.hide;
form3.show
end

else
begin
showmessage('Verkeerd Username of paswoord');
end

[MrDuChnok]

vérifie bien que tes variables booléennes sont initialisés à False.

Execute ton application "pas à pas" et regarde voir si les données sont cohérentes. Tu devrai trouver ton erreur comme ça. Pose des points d'arret.

Et c'est normal que ça fonctionne ça :

pseudo1 s'inscrit avec mdp1 comme mot de passe
pseudo2 s'inscrit avec mdp2 comme mot de passe

et donc maintenant pseudo1 peut se connecté avec le mot de passe mdp2, selon ton système de fichier ça marche, je trouve pas ça très logique.

[pitbul100]

merci bcp...ca fonctionne bien... jdois juste trouvé cmm faire pr kil refuse aussi l'acces kon les cases sont vide!!

et pr repondre a ta kestion...c'est pas grave ke le mot de passe et le code ne correspondent pas, ma prof serra tres contante avec ceci!!