Plantage avec les fenêtres MDI

Question

Bonjour,
J'ai un programme qui a une fiche parent (menu principal) et deux fiches enfants (une premi&#232;re qui montre toutes les fiches d'intervention dans une liste et une deuxi&#232;me qui affiche la fiche). Tous mes champs sont li&#233;s &#224; une table (exemple ficheinter.db).
Quand je clique sur la liste, ma fiche s'ouvre en modification (edit), &#231;a c'est ok mais si j'enregistre (post) et que je veux modifier (edit), il me met "erreur de violation d'acc&#232;s". ??
En fait tout se passe comme si une fois enregistr&#233;, il n'&#233;tait plus sur la m&#234;me fiche(alors qu'elle est affich&#233;e), possible ou pas (??)  et comment r&#233;soudre mon probl&#232;me.
Avis aux chevaliers blancs, damoiselle en d&#233;tresse.
Sans rire, j'suis vraiment bloqu&#233;e si quelqu'un &#224; ne serais-ce qu'un bout d'id&#233;e, je prends.
Merci d'avance.

WhiteHippo · Answer

Pour le bout d'id&#233;e, moi j'ai "d&#233;e" :oP

Plaisanterie &#224; part, une violation d'acc&#232;s peut se produire si tes deux fenetres enfants essayent d'acceder &#224; la m&#234;me table au m&#234;me moment tout particuli&#232;rement si tu utilises des threads. Ce genre de probl&#232;me peut &#234;tre r&#233;solu par un mutex qui garantira que l'acc&#232;s &#224; la base de donn&#233;es ne se fera que par une portion de code (et donc une fiche enfant) &#224; un instant x, la seconde devant alors attendre et vice versa. 

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

sylviecl · Answer

Rebonjour , 
Moi j'ai juste "i".
Heu s&#233;rieusement, j'suis pas encore r&#233;ellement tr&#232;s "dou&#233;e" en delphi, c'est quoi un mutex  ?
Merci

cs_Zeroc00l · Answer

en gros c'ets un peu comme si tu declarer un Boolean de facon global.

A chaque fois qu'une fenetre veut travailler sur ta table elle regarde
la valeur de ce booleen si il est a false cela signifie que personne
(aucune feuille mdi) ne travaillesur la table

elle met le booleen a true, travaille dessus et remet le booleen a false.

Si ele veut travailler et que le booleen est a true, alors la talbe est occup&#233;e et la feuille MDI attend son tour ..



Sauf que cet astuce (moche diront certain) a ete enjoliv&#233; avec un nouveau nom : les mutex



C'est un GROS resum&#233; ...

parce qu'en imaginant que les instruction de test du booleen des thread
s'execute successivement , alors les deux rentrerait dans la partie "il
est a false je peux travailler dessus" et ca planterait.... mais bon
c'ets improbable voire impossible je suppose que les mutex gere ce
genre de probleme (si il existe)


-={[ Zeroc00l ]}=-

sylviecl · Answer

Merci pour l'explication, mais donc ce n'est pas cela, car je ne travaille pas avec mes avec deux fiches sur le m&#234;me enregistrement.
Ma premi&#232;re mdi fille repr&#233;sente la liste et la seconde la fiche, or sur la liste je ne touche pas &#224; l'enregistrement et je n'ouvre qu'uneseule fiche &#224; la fois.
Donc, je cherche toujours, merci beaucoup quand m&#234;me.

WhiteHippo · Answer

Heu, &#224; moins que j'ai mal compris tu as dis "Tous mes champs sont li&#233;s &#224; une table (exemple ficheinter.db)." donc si une unique table de travail, et plusieurs acc&#232;s possibles, mutex imp&#233;ratif.

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

sylviecl · Answer

Effectivement on pourrait penser cela mais quand j'ai un bouton qui met en edit en direct sur ma fiche cela fonctionne. Par contre quand j'utilise le menu de ma fiche parent, &#231;a ne fonctionne pas et il me met erreur de violation. J'ai le m&#234;me probl&#232;me pour l'impression et l'envoi d'e-mail. J'avoue je comprends pas...
Merci d'essayer de m'aider en tout cas.

sylviecl · Answer

Heu, non tu n'as pas mal compris j'ai oubli&#233; (pardon) de dire que ma liste travaille avec un query qui effectivement est li&#233; &#224; ma table ficheinter. Je pense que cela doit &#233;liminer le probl&#232;me non ?

sylviecl · Answer

En fait d&#232;s qu'il y a un contr&#244;le qui n'est pas reli&#233; &#224; la table, il me met violation d'acc&#232;s.
Par exemple d&#232;s que j'essaie d'imprimer ma fiche (celle ouverte), il bloque sur RVsystem d&#232;s le d&#233;part.

Voil&#224; le code :

procedure TFormFichesInter.ImprimerFiche;
var
  i,nb : integer;
begin
  if not (DM1.TFicheInter.RecordCount = 0) then
    begin
      //&#233;tat automatique sans passer par la fen&#234;tre setup
      RvSystem1.TitlePreview := 'Aper&#231;u du Rapport d''intervention'; //il bloque l&#224; et me met erreur de violation d'acc&#232;s
      RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
      Memo1.clear;
       //affichage des articles utilis&#233;s dans l'intervention dans un memo
      DBGMateriel.DataSource.DataSet.First;
      nb := DBGMateriel.DataSource.DataSet.RecordCount;
      for i:=1 to nb do
        begin
            Memo1.Lines.Add(DBGMateriel.Fields[4].Text+'  '+DBGMateriel.Fields[3].Text);
            DBGMateriel.DataSource.DataSet.FindNext;
        end;


      RvPEditFicheClient.Open;
      RvPEditFicheClient.SetParam('TypeInter',TraitementIntervention);
      RvPEditFicheClient.SetParam('Articles',Memo1.Text);
      if MessageDlg('Voulez-vous votre fiche avec l''ent&#234;te ISAPRO, Confirmer ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        RvPEditFicheClient.ExecuteReport('Report1')
      else  RvPEditFicheClient.ExecuteReport('Report2');
    end;


  RvPEditFicheClient.Close;
end;

J'essaye d'expliquer un peu plus clairement, enfin j'esp&#232;re...

cs_Zeroc00l · Answer

Hum jamais utiliser ca .. je suis hors course la :(



Sinon ouais que ce soit plus clair ou pas au moins t'essayes d'autre ne
le font meme pas et ral contre les developpeur apres .... ^^

-={[ Zeroc00l ]}=-

sylviecl · Answer

Merci mais j'utilise ce forum comme une grande chance ! C'est vrai que trouver de l'aide sur son probl&#232;me particulier n'est pas toujours facile et l&#224; je suis &#233;pat&#233;e on a une r&#233;ponse qui si elle ne sollutionne pas tout de suite au moins aide et permet de voir son prog d'une autre mani&#232;re. Merci beaucoup &#224; tous.

sylviecl · Answer

Je viens de m'apercevoir d'une chose dont je ne sais pas si &#231;a a de l'importance :
en fait j'ai test&#233; cela dans mon prog

  FormFichesInter.RvSystem1.TitlePreview := 'Aper&#231;u du Rapport d''intervention';

En fait il n'en a pas besoin puisque ce code est dans ma ficheinter, par contre cela ma permis de m'apercevoir que quand je le lance,  FormFichesInter= nil ?? (en pas &#224; pas )
Et &#233;videmment &#231;a plante parce qu'il ne trouve pas mon contr&#244;le mais pourquoi, je ne comprends pas ?

yvemoreau · Answer

bah en pas a pas t'as eu ta r&#233;ponse ?
if(fiche=nil)then exit;

lors de la creation des fiches tous composants visuel appellent leurs proc&#233;dures d'affichages et c'est tout a fait normal , mais ici la fiche n'est pas encore creer ou non visible , et c'est une question de protection du code ,on devrais toujours verifier si l'objet est assigner ...

Bon ici c'est une fen&#234;tre mdi ,alors elle se creer a chaque utilisation et est d&#233;truite apr&#232;s chaque utilisation , utilise plut&#244;t une fiche standard en la cr&#233;ant a la cr&#233;ation et utilise ShowModal qui bloque l'acc&#232;s a la fiche principale tant que la fiche ne sera pas fermer  

Application.CreateForm(TForm1, Form1);//visible 
  Application.CreateForm(TForm2, Form2);pas visible mais disponible

yve

sylviecl · Answer

Merci pour la r&#233;ponse mais malheureusement je suis oblig&#233;e de passer par une fen&#234;tre mdi puisque j'utilise un menu g&#233;n&#233;ral dans me fen&#234;tre mdi parent.

yvemoreau · Answer

tu peux peut-&#234;tre creer une application midi ,et compare le code &#231;a devrais t'aider.
menu fichier /nouveau/autres/projets/MDI application 

yve

Plantage avec les fenêtres MDI

14 réponses

Votre réponse

Discussions similaires