Discussion :

[plante20100]

Bonjour,

J'ai une erreur de violation d'accès quand je compile mon appli et je vois pas ce que ca peut etre.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Procedure TFormProject.ReadOnlySet(ReadOnlyMode:Boolean);
VAR Book : TBookmark;
Begin
Book:=ProjectModule.TableProjects.GetBookmark;  //sauve la position courante dans la grille des projets
ProjectModule.TableProjects.Active:=False;//on dévalide la table le temps de changer son accés, de toute facon elle se dévalide lorsque l'on change le ReadOnly
ProjectModule.TableProjects.ReadOnly:=ReadOnlyMode;//change le mode d'accés à la base de données
ProjectModule.TableProjects.Active:=True;//réouvre la base de données
ProjectModule.TableProjects.GotoBookmark(Book);//restaure la position courante dans la grille des projets
ProjectModule.TableProjects.FreeBookmark(Book);//libère la mémoire utilisée par le bookmark

L'erreur se produit sur la ligne

Code :

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

1
2
 
ProjectModule.TableProjects.Active:=False;

* La déclaration de TableProject dans le type TProjectModule n'est pas faite dans la catégorie 'private'

* La procédure ReadOnlySet n'est pas private (bien que ca doit rien changé si je ne m'abuse)

* L'instance TableProject est bien crée avant d'arriver sur cette ligne.

Euh voila je ne voyais que ces causes là possibles pour ce type d'erreur. Si vous en connaissez d'autres elles sont les bien venus.

Merci d'avance

PS. Je m'excuse d'avance si le sujet n'est pas à sa place (peut etre dans Delphi Base de donnée????)

vince

[plante20100]

Re bonjour tout le monde,

voila j'arrive pas à me dépétrait de cette erreur (violation d'accès à l'adresse XXXXXX). J'aimerais savoir s'il y a un moyen d'exploiter cette adresse pour debeger? Elle correspoànd à quoi?

Vince

[djo.mos]

Juste un fil, rien de sur, mais j'ai remarqué qu'en de tels circonstances, l'erreur ne vient pas forcèment de la ligne qu'indique Delphi, donc, vérifie un peu ce qu'il y'a avant.
(Désolé pour cette fausse réponse).

[plante20100]

Non au contraire merci pour ta réponse... meme si dans mon cas je suis sûr que c'est bien cette ligne qui fait défaut.
J'ai fait des tests et j'ai remarqué que si je lis la table, ou bien que je fais d'autres opérations (par ex : dataset.first) il n'y a pas d'erreur.

Ce n'est que quand j'essaie de modifier la propriété Active de mon dataset que ca me fais une exception....

Est ce qu'il faut des droits particuliers pour modifier cette propriété?

Merci d'avance pour vos réponses.

Vince

[tourlourou]

je ne connais pas le type TBookMark, mais ne doit-il pas être créé ? car la violation d'accès ressemble fort à l'accès à un objet pas créé, et Modjo a raison : l'erreur est souvent sur la ligne d'avant...

Code :

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

1
2
3
4
Book := TBookMark.Create;
Book.Assign(ProjectModule.TableProjects.GetBookmark);
//...
Book.Free;

[plante20100]

merci pour ta réponse mais je ne crois pas que les TBookmark nécessite d'être crée.
La procédure qui me provoque l'erreur est appellée dans la procédure qui crée ma forme. Si je la met en commentaire tout va bien (eh eh normal).
Mais j'ai de nouveau une erreur de violation d'accès quand je veux faire maforme.show:

Code :

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

1
2
3
4
5
 
If (FormProject=NIL) Then Application.CreateForm(TFormProject, FormProject);
Screen.Cursor:=crDefault;
StatusBar1.SimpleText := '';
FormProject.ShowModal;

J'ai donc de nouveau une erreur de violation d'accès sur la ligne

Code :

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

1
2
 
FormProject.ShowModal;

...Je comprend pas ce qu'il se passe ni d'ou ca peut venir....
Merci de vos lumières.
vince

[Droïde Système7]

Bonjour,

Ligne précédente...

Teste pour voir en ne lasssant pas "vide" le :

Code :

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

StatusBar1.SimpleText := 'X';

[plante20100]

merci pour ta réponse

Mais ca change rien... J'ai remarqué un truc marrant.
Si je fais ca:

Code :

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

1
2
3
4
5
6
 
ProjectModule.TableProjects.Active:=False; 
If (FormProject=NIL) Then Application.CreateForm(TFormProject, FormProject); 
Screen.Cursor:=crDefault; 
StatusBar1.SimpleText := ''; 
FormProject.ShowModal;

Je n'ai pas d'erreur sur la première ligne (mais je l'ai toujours sur le show modal)

et si je fais ca:

Code :

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

1
2
3
4
5
6
 
If (FormProject=NIL) Then Application.CreateForm(TFormProject, FormProject); 
ProjectModule.TableProjects.Active:=False; 
Screen.Cursor:=crDefault; 
StatusBar1.SimpleText := ''; 
FormProject.ShowModal;

Ca me fait une erreur sur la deuxième ligne (et toujours qur la dernière )

Donc mon createForm fait bien quelque chose de mal mais j'arrive pas à savoir quoi.

Voila si vous avez un éclair de génie vous etes le bien venu... (si vous en avez pas aussi )

vince

[rv66]

S'il existe des évènements dans ta fenêtre, mets des points d'arret partout même sur des évènements où tu en es sûr.

[Pascal Jankowski]

Est-ce que ta fiche FormProject est créée automatiquement dans ton projet ?

Cordialement

[plante20100]

Yahooooooooooooooooooooooooooooooo!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
T'es mon idole

En effet l'erreur ne venait pas de la ligne

Code :

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

ProjectModule.TableProjects.Active:=False;

mais d'une procedure qui s'exécutait périodiquement... je sais pas comment on peut faire ce genre de truc mais bon au moins j'i localisé le véritable problème.....

Merci beaucoup pour vos conseils!!!!