violation d'accès dans le FormCreate

Version imprimable

Voir 40 message(s) de cette discussion en une page

02/10/2006, 13h20
freestyler

violation d'accès dans le FormCreate
Bonjour,
j'ai une violation d'acces assez bizarre.

En fait, je déclare un TList(lstList) au tout début de mon code, ainsi qu'une TStringList (myList)
Sur le formcreate, j'écris:
Code:

1 2 lstList.Add(myList);
quand j'exécute le code, il me sort une violation d'accès sur cette ligne, puis il continue quand même l'exécution..

des idées??
02/10/2006, 13h53
Pedro

Salut :D
Donne-nous le code complet de ton OnCreate.
02/10/2006, 13h56
freestyler

procedure TForm1.FormCreate(Sender: TObject);
begin

lstList.Add(myList);

end;

:P
02/10/2006, 14h06
PadawanDuDelphi

Bonjour,

Il manquerais pas un truc du genre:

Code:

LstList:= TList.Create;

Par hazard? (et le Destroy qui va avec)
02/10/2006, 14h09
freestyler

j'ai essayé d'ajouter un TList.create
mais ça ne marche toujours pas pour autant..
02/10/2006, 14h09
hy00ga

Je n'ai pas tout le contexte ... mais cela ne m'étonnerai pas que, au FormCreate, ton objet lstList n'ait pas encore été créé. Donc quand tu fais

lstList.Add(myList);

lstList n'est pas encore crée et donc PAF.

J'ai pas de Delphi sous la main ici .. mais regarde juste, avant cette ligne, si lstList = nil. si c'est le cas ben c'est bien ce que je dis :)

Edit : ou alors c'est myList qui est nil... je sais pas d'ou il vient lui :)

effectivement, il s'agit d'écrire lstList := TList.create;
là, ça ne plante plus, par contre j'ai encore beaucoup de bizarreries..

Je vous explique ce que je fais..

en fait, j'écris une procédure "finaliser" qui, à la fermeture de mon form va se charger de fermer tous les objets query, connection ou stringlist non détruits...
voila le code:
Code:

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 procedure finaliser; var i: integer; query: TADOQuery; cox : TADOConnection; lst : TStringList; begin //parcourrir la liste des query du dernier au premier item if queryList <> nil then for i := pred(queryList.Count) downTo 0 do begin query := queryList.Items[i]; //destruction de l'item courant s'il est est différent de nil if assigned(query) then query.Free; queryList.Free; end; //parcourrir la liste des connections du dernier au premier item if coxList <> nil then for i := pred(coxList.Count) downTo 0 do begin cox := coxList.Items[i]; //destruction de l'item courant s'il est est différent de nil if assigned(cox) then cox.Free; coxList.Free; end else exit; //parcourrir la liste des stringList du dernier au premier item if lstList <> nil then for i := 0 to lstList.Count -1 do begin lst := lstList.Items[i]; //destruction de l'item courant s'il est est différent de nil if assigned(lst) then lst.Free; lstList.Free; end else exit; end;
vous remarquerez que j'ai essayé : de 0 à count-1, ainsi que le contraire (avec Pred), mais ça plante dans les deux cas!

Mon problème est que j'ai toujours un "indice de liste hors limites"..
Pourtant, sur mon FormCreate j'écris:
Code:

1 2 3 4 5 6 7 8 lst1 := TStringList.Create; lst2 := TStringList.Create; queryList := TList.Create: coxList := TList.Create; lstList := TList.Create; lstList.Add(lst1); lstList.Add(lst2);
puis lors du traitement, à chaque fois que j'ouvre une ADOConnection, je fais :

Code:

coxlist.Add(myAdoConnection);

à chaque fois que je crée une ADOQuery, je fais :

Code:

coxlist.Add(myAdoQuery);

j'ouvre mon form.
Je fais quelques traitements histoire de bien alimenter mes listes, puis, quand je ferme mon form, j'ai toujours un "indice de liste hors limites"

voila...
Dans le souci d'etre propre, mon code plante :)

Code:

1
2
3
4
5
  for i := pred(queryList.Count) downTo 0 do  //Ici tu boucles dans queryList...
  begin
    {[...]}
    queryList.Free;  //...et à l'intérieur de ta boucle tu supprimes ton objet
  end;

02/10/2006, 15h53
freestyler

si t'as regardé ma procédure finaliser, j'écris exactement pareil!
02/10/2006, 15h55
slimjoe

Laisse moi te suggérer une classe que j'aime bien personellement : le TObjectList.

Il fonctionne comme un TList à la différence qu'il accepte des TObject (et non des pointeurs) et qu'il a la propriété de posséder ses objets. Si tu mets la propriété OwnsObjects à true, lorsque tu vas faire queryList.Free il va non seulement se libérer mais va aussi détruire toutes les instances de TADOQuery que tu y auras placé.
02/10/2006, 15h56
slimjoe

Citation:

Envoyé par freestyler

si t'as regardé ma procédure finaliser, j'écris exactement pareil!

... et c'est ça l'erreur! Tu ne peux pas détruire un objet et continuer à boucler dedans par la suite ;).
02/10/2006, 16h16
hy00ga

Ouch difficile de voir comme ca :) Moi pour les soucis d'array index out of bounds j'execute en pas-à pas pour voir exactement ou ca plante et l'etat de mes variables. Mais y a quand même 1 ou 2 trucs qui me paraissent bizzare :

Au FormCreate tu fais : un queryList := TList.Create:
Et Dans finaliser tu fais : if queryList <> nil then

Dans ton cas ce test doit toujours être true donc inutile. A moins que tu voulais tester si ta liste est vide mais dans ce cas c'est : if queryList.Count = 0 then

Même remarque pour coxList et lstList :)

Ceci dit, je crois pas que je les detruirait comme ca. C'est pas des objets ayant des connexions d'ouverte qu'il faut absolument fermer... En gros si tu quitte l'application il doit te les libérer tout seul :) QU'on me corrige si je dis des betises :)

Edit : Hihi exact slimjoe .. j'avais pas relevé cette erreur :) Mais si il fait un free de l'objet et ensuite il essaye d'y réacceder ca devrait faire une violation d'acces :) pas une faute d'index :)

bon je viens de modifier tout ça à la lumière de ce que vous m'aviez répondu..
effectivement, ça a l'air beaucoup plus propre avec le TObjectList..
Par contre, j'ai une erreur "Opération de pointeur incorrecte" maintenant..

ma procédure finaliser devient:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 MyList : TObjectList; procedure finaliser; var i: integer; lst : TObject; begin //parcourrir la liste des Objets (query, coneection, stringList) du dernier au premier item for i := pred(MyList.Count) downTo 0 do begin lst := MyList.Items[i]; //destruction de l'item courant s'il est est différent de nil if assigned(lst) then lst.Free; end; MyList.Free; end;
dans mon formCreate j'écris:
Code:

1 2 MyList := TObjectList.Create;
et à chaque fois que j'ouvre un objet quelconque (query, connection, stringList...), je fais
Code:

1 2 MyList.Add(nom de l'objet);
--> Opération de pointeur incorrecte ???

Merci

02/10/2006, 17h00
freestyler

ça plante en fait sur le MyList.free..
ça commence à détruire les objets puis ça plante sur la liste.free..

j'ai même viré le MyList.free de la procédure finaliser... ça marche bien, mais ça plante toujours sur le MyList.Free (que j'ai donc mis sur le formclose après l'appel de finaliser)
02/10/2006, 17h28
slimjoe

Salut!

J'ai de la difficulté à suivre mais question d'être plus clair voici quelques trucs.

Tout d'abord, un TObjectList, c'est un conteneur d'objets. Tu ne devrais pas y mettre des objets que tu ouvres mais que tu créés (sinon un même TADOQuery que tu ouvres 2 fois sera présent 2 fois dans la liste, conséquement quand viendra le temps de libérer le 2e pointeur sur la même instance, ça ne pourra que planter).

Ensuite, si tu mets la propriété OwnsObjects à true, tu n'as pas besoin de libérer toi même les objets comme tu le fais dans ta boucle. Quand tu feras MyList.free tous les objets que la liste contient seront supprimés automatiquement.

Si la propriété est à true et que tu décides QUAND MÊME de supprimer manuellement les objets, tu devras AUSSI les enlever de la liste (Remove je crois) sans quoi il est possible que l'automatisme du TObjectList conduise à des erreurs (il va peut-être tenter de refaire le Free() que tu auras manuellement fait).

Voilà! J'espère avoir été plus clair ;).
02/10/2006, 17h34
freestyler

cela veut dire quoi??

Quels genre d'objets j'ajoute donc à ma liste étant donné que j'ai des connections qu'il faut que j'ouvre, des query, ....

et puis si je comprends bien, je n'ai plus besoin d'écrire une boucle..
le MyList.free est suffisant.

mais alors?? mon conteneur d'objets que contiendrait-il?? les listes des query et les listes de connections et les listes des stringList??
02/10/2006, 19h07
slimjoe
Citation:

Envoyé par freestyler

mais alors?? mon conteneur d'objets que contiendrait-il?? les listes des query et les listes de connections et les listes des stringList??

euh...

Je crois que ces décisions là ("mon conteneur d'objets que contiendrait-il??") sont prises en relation avec la logique de l'analyse que tu as probablement fait avant le développement ton ton application. J'imagine que si au départ tu avais besoin d'une liste pour contenir tes objets, c'était parce que tu comptais les créer dynamiquement et que tu comptes probablement en créer sans en définir le nombre au départ (en d'autres mots, tu ne sais pas si tu vas en avoir besoin de 2 ou 12).

Pour répondre à ta question, le conteneur d'objets va contenir ce que tu vas mettre dedans. La logique voudrait que tu ajoutes les objets dans ta liste à mesure que tu les créés pour être certain que tu ne les oublies pas. Perso, je ferais une liste par types d'objets mais tu peux les mettre tous dans le même.
Code:

1 2 3 4 5 6 7 var q: TADOQuery; begin q := TADOQuery.Create(self); maListe.Add(q); end;
Citation:

Envoyé par freestyler

et puis si je comprends bien, je n'ai plus besoin d'écrire une boucle..
le MyList.free est suffisant.

Exactement (si OwnsObjects est à true). Tout ça c'est dans l'aide de Delphi.

;)
03/10/2006, 00h06
freestyler

tou d'abord, je t'arrete tout de suite sur la critique de ma logique... tout ce que j'essaie de faire c'est d'optimiser un code déjà fabriqué, mais je n'oublierai pas de signaler ta critique au vrai concepteur de l'application..

et puis, j'ai déjà écrit ce que t'as proposé en dernier conseil..
chaque objet crée s'ajoute dans ma liste de TObjectList, exactement comme l'exemple du query que t'as proposé.
en fait, je crée mes objets lors du formcreate..
quand j'apelle l'évènement close pour la première fois, je reviens vers une fiche menu et tout se passe très bien.. j'ai vérifié ceci au pas à pas et les objets sont bel et bien détruits. par contre, quand je refais la manipulation, j'ai une erreur de pointeur incorrecte.. c'est parce que la première fois, les objets sont bel et bien crées, puis détruits..
au 2ème appel de l'évenement close de cette fenetre, ya le bug.

ma question est comment éviter ce souci?

PS: ce mécanisme de navigation entre forms se fait par onglets..
03/10/2006, 01h43
slimjoe
Citation:

Envoyé par freestyler

tou d'abord, je t'arrete tout de suite sur la critique de ma logique... tout ce que j'essaie de faire c'est d'optimiser un code déjà fabriqué, mais je n'oublierai pas de signaler ta critique au vrai concepteur de l'application..

Bon...
Désolé si je me suis mal exprimé, mais mon intervention n'est pas une critique. Je n'ai répondu qu'à la question "mon conteneur d'objets que contiendrait-il??" et ma réponse est simplement "Ce que tu y mettras".

Je n'ai aucune intention d'insulter ton travail ni le programmeur derrière. Si tu le désires, je peux me retirer de la discussion.

Entre temps, continuons :).

Citation:

Envoyé par freestyler

j'apelle l'évènement close pour la première fois,

C'est là que tu me perds. La méthode Close() n'est pas un detructeur. Et tant qu'on y est, Show() et ShowModal() ne sont pas non plus des constructeurs. Si tes fiches sont auto-construites (auto-create), l'événement OnCreate va de déclencher une fois au démarrage de l'application et c'est tout. Pour que OnCreate se déclenche à nouveau, faut que tu construises une autre instance de ta fiche à l'aide du constructeur Create.

Conséquement, si tu effectues la destruction de tes objets dans le OnClose, tes objets vont se détruire à la fermeture de ta fiche et non à sa destruction.

Conséquence ?
1. Tes objets vont se construire au démarrage de l'appli
2. Tu vas fermer la fiche --> destruction des objets
3. Tu vas réafficher la fiche DÉJÀ CONSTRUITE (donc on ne passe pas dans le OnCreate)
4. Tu vas tenter d'accéder à un de ces objets (peut-être à la fermeture de la fiche) --> Access Violation (ou quelconque erreur de pointeurs)
Personnellement, je contruit pas mal tous mes objets dans le OnCreate et les détruit dans le OnDestroy. Je n'utilise jamais le auto-create pour les fiches qui doivent être construites plus d'une fois. Mais c'est très perso, je ne veux rien imposer.

Mais tout ça, c'est sans connaître vraiment comment ton appli est construite et ton objectif final alors je suis peut-être complètement à côté du problème. Je crois que si tu veux que je t'aide davantage, il faudrait que tu post tout le code d'une fiche simple qui fait le problème (refais une nouvelle fiche avec seulement ce dont tu as besoin pour reproduire le problème). Aussi, ça serait bien d'avoir ton objectif principal question de savoir pourquoi tu utilises une liste d'objets au lieu de placer tes query directement sur la fiche.

:)
03/10/2006, 09h09
hy00ga

Ohhhh voila le pourquoi du comment :) Dans le dernier post que j'ai fait, je t'ai dit que ton test if myList <> nil était inutile. Mais j'ai fait cette remarque en pensant ( visiblement a tord ) que tu n'appelais cette methode de finalisation que 1 seule fois.

Mais forcément si tu l'appelle une premiere fois puis une 2eme fois, lors du 2eme appel myList sera à nil donc ton prochain acces va faire Boum. Dans ce cas la je rejoindrai la remarque de Slimjoe disant que la destruction de tes objets aurait plus sa place dans le OnDestroy.

Navré si je t'ai induit en erreur, ca m'a pas traverser l'esprit que tu puisse appeller cette methode plusieurs fois :)

Voir 40 message(s) de cette discussion en une page