erreur généré aléatoirement lors de chargement d'une form depuis une autre formRésolu

Question

Bonjour,



Je suis en train de faire une application de gestion des stocks sous delphi 7 avec access 2003.

Pour le moment je n'ai rien reli&#233; avec access, je ne m'occupe que de l'application.



J'ai une form authentification et une form menu principal (elle
contient un main menu et une toolbar pour un acc&#232;s plus rapide &#224;
certaines fonctions via des ic&#244;nes).



=====================================================================

Voici le code :



form authentification quand je clique sur valider :

    if frmMenuPrincipal = nil then

        begin

            Application.CreateForm(TfrmMenuPrincipal,frmMenuPrincipal);

            frmMeunPrincipal.Show;

        end

    else

        begin

            frmMenuPrincipal.Show;

        end;



    frmAuthentification.Free;



form menu principal quand je clique dans le menu Fichier -> Changer d'utilisateur ou sur l'ic&#244;ne de la toolbar :
     if frmAuthentification = nil then


        begin


            Application.CreateForm(TfrmAuthentification,frmAuthentification);


           frmAuthentification.Show;


        end


    else


        begin


           frmAuthentification.Show;


        end;





    frmMenuPrincipal.Free;

======================================================================



Quand j'essaye de tester plusieurs fois le fait de passer de
l'authentification au menu principal (par le menu ou par l'ic&#244;ne de la
toolbar) j'ai une erreur qui appara&#238;t al&#233;atoirement. C'est-&#224;-dire une
fois de suite, une autre fois  au bouit de 5 clic, etc.



Cette erreur est une erreur de type eaccessviolation et je ne vois pas comment faire pour m'en sortir.



J'ai essay&#233; de faire en pas &#224; pas approfondi mais je n'arrive pas &#224; cerner le probl&#232;me.



Je pense qu'il doit y avoir un probl&#232;me avec la fonction free car quand je l'enl&#232;ve &#231;a fonctionne.



Mais admettons que la form soit rest&#233;e en m&#233;moire et ne se  soit pas d&#233;truite, alors avec mon if &#231;a devrait le g&#233;rer.



Merci par avance pour l'aide que vous m'apporterez.

informatixo · Accepted Answer

Je n'y ai pas pens&#233; de suite mais en plus c'est de cette fa&#231;on que je
proc&#233;dais sous visual basic 6 qui n'a pas l'option des forms
disponibles.



Pour conclure ce probl&#232;me, je vais donc utilis&#233; la m&#233;thode non
dynamique avec des show/hide/close et si &#231;a prend trop de place en
m&#233;moire ou que &#231;a devient long en execution je passerais au dernier
code de manchester qui buggait le moins.



Je pense que le probl&#232;me doit venir de ma version de delphi car manchester l'a apparement essay&#233; chez lui et que &#231;a marche.



Voil&#224; en attendant je tiens &#224; vous &#224; vous remercier tous les deux pour m'avoir sorti d'un mauvais pas.



informatixo

cs_ManChesTer · Answer

En fait quand tu fee ron form le pointeur n'est pas toujours nil d'ou l'erreur...

Voici un code qui devrais marcher:

if not assigned(frmMenuPrincipal) then
    Application.CreateForm(TfrmMenuPrincipal,frmMenuPrincipal);
 frmMenuPrincipal.Show;
Freeandnil(frmAuthentification);

Bon Coding .... ManChesTer.

informatixo · Answer

Je tiens &#224; vous remercier pour l'aide que vous m'apportez.



J'ai essay&#233; le code que vous m'avez donn&#233; mais &#231;a continue de planter avec le message d'erreur suivant :



"Le projet Directstock.exe a provoqu&#233; une classe
d'exceptionEAccessViolation avec le message 'Violation d'acc&#232;s &#224;
l'adresse 004033BC dans le module 'Directstock.exe'. Lecture de
l'adresse 00990000'. Processus stopp&#233;. Utilisez le Pas-&#224;-pas ou
Ex&#233;cuter pour continuer."



Depuis j'ai enlev&#233; la barre outil et tout le code inutile pour ne
laisser que les 2 forms avec leur codes respectifs que vous m'avez
indiqu&#233;.



Ca plante al&#233;atoirement au bout d'1 fois, 2 ou 3 fois. Je tiens &#224;
pr&#233;ciser quand m&#234;me que c'est soit une form ou l'autre qui d&#233;clenche
l'erreur (c'est-&#224;-dire soit pendant le passage authentification vers
menu principal ou soit l'inverse).



Voici le nouveau code :



pour la form authentification :



================================================================

procedure TfrmAuthentification.cmdValiderClick(Sender: TObject);

begin

if not Assigned(frmMenuPrincipal) then

  begin

    Application.CreateForm(TfrmMenuPrincipal,frmMenuPrincipal);

    frmMenuPrincipal.Show;

  end

else

  begin

    frmMenuPrincipal.Show;

  end;



FreeAndNil(frmAuthentification);

end;

=================================================================



pour la form menu principal :

=================================================================

procedure TfrmMenuPrincipal.MnuFichierChangerUtilisateurClick(

  Sender: TObject);

begin

if not Assigned(frmAuthentification) then

  begin

    Application.CreateForm(TfrmAuthentification,frmAuthentification);

    frmAuthentification.Show;

  end

else

  begin

    frmAuthentification.Show;

  end;



//frmAuthentification.txtIdentifiant.Text := '';

//frmAuthentification.txtMotDePasse.Text := '';

FreeAndNil(frmMenuPrincipal);

end;

=================================================================



Je pr&#233;cise que quand je met freeandnill en commentaire &#231;a fonctionne
tr&#232;s bien, mais ce n'est pas int&#233;ressant car les 2 forms se voient et
restent en m&#233;moire alors que j'en veux qu'une &#224; la fois



Je commence &#224; d&#233;sesp&#233;rer, j'esp&#232;re ne pas devoir retourn&#233; au visual basic car delphi &#224; l'air bien mieux.



Voil&#224;, peut &#234;tre y a t-il une autre piste &#224; explorer ? Peut-&#234;tre que je
me suis tromp&#233; dans l'ordre du free peut &#234;tre faut-il que je le mette
avant le show ?

cs_ManChesTer · Answer

Le code suivant fonctionne parfaitement sous delphi 7 :

procedure TfrmAuthentification.cmdValiderClick(Sender: TObject);
begin
 if frmMenuPrincipal=nil then
    Application.CreateForm(TfrmMenuPrincipal,frmMenuPrincipal);
 frmMenuPrincipal.Show;
 if assigned(frmAuthentification) then
  Freeandnil(frmAuthentification);
end;


 procedure TfrmMenuPrincipal.MnuFichierChangerUtilisateurClick(
  Sender: TObject);
begin
  if frmAuthentification=Nil then
    Application.CreateForm(TfrmAuthentification,frmAuthentification);
  frmAuthentification.Show;
  if assigned(frmMenuPrincipal) then
   Freeandnil(frmMenuPrincipal);
end;

Si se code ne fonctionne pas c'est que lerreur est dans une autre partie du code.

Bon Coding .... ManChesTer.

japee · Answer

Le code suivant fonctionne parfaitement sous D6  et plante au bout de 6 fois sous D4... 



J'ai utilis&#233; les &#233;v&#232;nements ButtonClick pour la clart&#233;.



Form MenuPrincipal:

procedure TfrmMenuPrincipal.Button1Click(Sender: TObject);

begin

  if frmAuthentification = nil then  

  begin

    Application.CreateForm(TfrmAuthentification, frmAuthentification);

    frmAuthentification.Show;

  end;  

end;



procedure TfrmMenuPrincipal.FormShow(Sender: TObject);

begin  

  if not (frmAuthentification = nil) then

  begin

    //frmAuthentification.Free;   // FreeAndNil n'existe pas

    //frmAuthentification := nil; // sous D4     

    FreeAndNil(frmAuthentification);

  end;

end;



Form Authentification :

procedure TfrmAuthentification.Button1Click(Sender: TObject);

begin

  if frmMenuPrincipal = nil then  

  begin

    Application.CreateForm(TfrmMenuPrincipal, frmMenuPrincipal);

    frmMenuPrincipal.Show;

  end;  

end;



procedure TfrmAuthentification.FormShow(Sender: TObject);

begin  

  if not (frmMenuPrincipal = nil) then

  begin

    //frmMenuPrincipal.Free;   // FreeAndNil n'existe pas

    //frmMenuPrincipal := nil; // sous D4 

    FreeAndNil(frmMenuPrincipal);

  end;

end;



Mais pourquoi donc se compliquer la vie &#224; cr&#233;er dynamiquement &#224; chaque fois les forms ? 



Bonne prog' 



j@pee

informatixo · Answer

Pour tester votre code j'ai cr&#233;&#233; un nouveau projet avec rien que les 2 forms le bouton et le menu.



J'ai quand m&#234;me cette erreur qui persiste mais au bout d'un peu plus de temps cette fois.



J'ai oublier de dire que j'ai mis menu principal en fiche disponible.



Je tiens &#224; pr&#233;ciser que j'ai essay&#233; cette fois de me servir de
l'&#233;x&#233;cutable sans passer par delphi et le debugger. J'ai toujours le
message d'erreur mais quand je clique ok au message d'erreur, je peux
quand m&#234;me continuer. Peut-&#234;tre que je passe d'une form &#224; l'autre trop
rapidement et que mon ordinateur portable n'a pas le temps d'&#233;xecuter
le code correctement ?



J'ai une id&#233;e que je ne sais pas r&#233;aliser mais comme le message
d'erreur n'est pas bloquant peut-&#234;tre me faut -il l'intercepter et en
guise de gestion d'erreur ne rien faire comme cel&#224; il n'appara&#238;trait
pas ?



En tous les cas merci de votre aide, &#231;a marche chez vous alors peut-&#234;tre ai-je un probl&#232;me avec mon delphi ?

informatixo · Answer

Merci japee de m'aider. Je vais essayer votre code.



Je les cr&#233;&#233; dynamiquement parce qu'il me semble qu'ainsi j'aurais un
logiciel moins lourd en pourcentage de ressource m&#233;moire utilis&#233; et
qu'il sera plus rapide.



Sinon quelle autre alternative proposeriez vous ?

japee · Answer

Je te propose la mani&#232;re "basique" :



Tu cr&#233;es tes forms en phase de conception.

A l'ex&#233;cution, au lieu de les d&#233;truire quand tu n'en a plus besoin, tu
les fermes ou tu les caches, ce qui revient sensiblement au m&#234;me me
semble-t'il au niveau de la m&#233;moire utilis&#233;e, mais &#224; v&#233;rifier.

Quoi qu'il en soit, &#224; la conception, tu ne touches pas &#224; la propri&#233;t&#233;
"visible := false" des fiches secondaires (c'est la valeur par d&#233;faut).
Ainsi, elles n'appara&#238;tront pas tant que tu ne les as pas appel&#233;es.

Au lancement de l'application, seule la fiche premi&#232;rement cr&#233;&#233;e appara&#238;t.



La proc&#233;dure classique pour appeler une fiche secondaire est:



(en admettant que fiche principale est Form1 et fiche secondaire Form2)

Form2.ShowModal; // la fiche principale est "gel&#233;e" tant que tu n'as pas referm&#233; Form2

Form2.Show; // la fiche principale peut reprendre le focus



Et pour la refermer :



(code &#224; placer sur Form2)

Close // inutile de pr&#233;ciser Form2

Hide // la fiche est seulement rendue invisible



(ou &#224; placer sur fiche principale Form1, &#224; condition d'avoir utilis&#233; "Show" pr&#233;c&#233;demment...)

Form2.Close; // fermeture

ou

Form2.Hide;  // Form2 invisible



C'est peut-&#234;tre un peu confus ? 

Alors d&#233;monstration avec 2 Forms et 1 Button sur chacun :



--------------------------------------------------------



var

  Form1: TForm1;



implementation



uses Unit2;



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

  Form2.ShowModal; // ou Form2.Show;

end;



--------------------------------------------------------



var

  Form2: TForm2;



implementation



uses Unit1;



{$R *.DFM}



procedure TForm2.Button1Click(Sender: TObject);

begin

  Form2.Close;

  Form1.Show;

end;



procedure TForm2.FormShow(Sender: TObject);

begin

  Form1.Hide;

end;



--------------------------------------------------------



On fait pas plus simple et l&#224; pas de plantage, c'est garanti ! 



Bonne prog' 



j@pee

Erreur généré aléatoirement lors de chargement d'une form depuis une autre form

8 réponses

Votre réponse

Discussions similaires