Bonsoir à tous !
Je suis confronté à un problème depuis plusieurs jours...
J'ai créé un thread comme Delphi 7 le fait si bien et j'y rajoute dans ce thread des attributs, des méthodes et tout ce qu'il faut.
J'ai surchargé le constructeur "Create" et j'y ai ajouté 2 attributs dans ce constructeur.
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 type connec = class(TThread) private version:integer; revisionMajeure:integer; nomUtilisateur:string; motDePasse:string; [...] protected procedure Execute; override; public function getVersion:integer; function getRevisionMajeure:integer; function getNomUtilisateur:string; function getMotDePasse:string; [...] constructor Create(CreateSuspended:boolean); destructor Destroy; override; end;
Lorsque j'exécute le projet dans Delphi 7, une exeption est alors levé et m'affiche une erreur de type AccessViolation ici : "nomUtilisateur := 'admin';". Si je mets en commentaire "nomUtilisateur := 'admin';", l'erreur est alors au niveau de "motDePasse := 'monmdp';" et ainsi de suite...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 constructor connec.Create(CreateSuspended:boolean); begin nomUtilisateur := 'admin'; motDePasse := 'monmdp'; inherited Create(CreateSuspended); FreeOnTerminate:=False; Priority:=tpHigher; end;
Si vous avez la moindre piste pour m'aider à comprendre pourquoi cela ne fonctionne pas, vous me serez d'un très grand soutien ! En tout cas, je ne vois pas d'horreur dans ce que j'ai développé mais je suis sûr que vous pouvez m'aider.
Merci d'avance
Partager