Discussion :

[marsupilami34]

Bonjour à tous,

Je m'arrache les cheveux depuis quelques jours car j'ai l'erreur suivante qui apparait :

Access violation at address 004046B2

Cette erreur est apparue depuis que j'appelle une forme dans la fiche principale

Appel de la forme:

Code :

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

1
2
3
4
5
6
7
8
rocedure TFormPrincipale.eventFin(Sender: TObject);
var
 
begin
 
 
      Application.Createform(TForm1, Form1);
      Form1.ShowModal;

Il s'agit d'une forme simple des images + 1 bouton pour fermer la forme

Unité de ma forme :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
unit MessageToDisplay;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, jpeg, ExtCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    img3: TImage;
    img2: TImage;
    img1: TImage;
    btn1: TButton;
    lbl1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  Close;
end;
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  position := poDesktopCenter;
end;
 
end.

En deboggant, l'erreur apparait à la ligne en rouge du module Controls

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TControl.WMLButtonUp(var Message: TWMLButtonUp);
begin
  inherited;
  if csCaptureMouse in ControlStyle then MouseCapture := False;
  if csClicked in ControlState then
  begin
    Exclude(FControlState, csClicked);
    if PtInRect(ClientRect, SmallPointToPoint(Message.Pos)) then Click;
  end;
  DoMouseUp(Message, mbLeft);
end;

Quelqu'un pourrait-il m'aider à résoudre ce problème

Merci d'avance Marsup

[sergio_is_back]

On va régler ça...

Comme tu gère ta fiche en modal (ShowModal), le plus sécurisé pour fermer une fenêtre sans problème c'est affecter une valeur à ModalResult
Je m'explique :

A la place de :

Code :

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

1
2
3
4
5
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  Close;
end;

Il faut utiliser :

Code :

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

1
2
3
4
5
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  ModalResult:=mrCancel; // Ou ModalResult:=mrOk mais toujours une valeur différente de mrNone;
end;

Ensuite, il faut supprimer ça :

Code :

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

1
2
3
4
5
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

Si tu dois libérer ta fenêtre en mémoire (et ne plus l'utiliser), il vaut mieux que ce soit le module appelant qui le fasse
L'avantage de ModalResult c'est que tu peux récupérer la valeur

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
 
begin
     Application.Createform(TForm1, Form1);
     if  Form1.ShowModal=mrOk then
            ShowMessage('L''utilisateur a validé !')
     else
            ShowMessage('L''utilisateur a annulé !')
 
// --- Le reste de ton code ---

De plus je déconseille d'utiliser Application.Createform car dans ce cas la fenêtre est rattachée à l'instance de TApplication et lorsque ton application va se terminée, elle va essayer de libérer la fenêtre ce qui peut entrainer un plantage si tu l'as déjà libérée toi même par ailleurs

Il vaux mieux faire comme ça si tu souhaite la détruire dans la foulée :

Code :

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

1
2
3
4
5
6
7
 
begin
    with TForm1.Create(Application.MainForm) do
    begin
         ShowModal; // ou if ShowModal=mrOk then....
         Free;
    end;

[marsupilami34]

Bonjour sergio_is_back et merci d'avoir pris du temps pour me répondre.

J'ai fait les modifications que tu m'as soumises mais j'ai toujours le meme message qui apparait.

Après il y a un truc que je n'ai peut etre pas compris. Il faut utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
 
begin
     Application.Createform(TForm1, Form1);
     if  Form1.ShowModal=mrOk then
            ShowMessage('L''utilisateur a validé !')
     else
            ShowMessage('L''utilisateur a annulé !')
 
// --- Le reste de ton code ---

ou bien ca ?

Code :

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

1
2
3
4
5
6
7
 
begin
    with TForm1.Create(Application.MainForm) do
    begin
         ShowModal; // ou if ShowModal=mrOk then....
         Free;
    end;

J'ai utlisé le dernier cas et le message remonte toujours :-(

[Paul TOTH]

Form1 est-elle la seule fiche de l'application ?

[ShaiLeTroll]

TFormPrincipale invoque TForm1 en modale, dans TForm1, aucun code est utile, avec un BitBtn suffit de mettre un ModalResult via l'inspecteur d'objet

et pour l'invocation, le plus propre est

Code :

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

1
2
3
4
5
6
    with TForm1.Create(nil) do
    try
       ShowModal();
    finally
       Free;
    end;

Si vous n'avez qu'un seul bouton, vous n'aurez qu'une seule valeur en retour de ShowModal
si vous souhaitez proposer un choix à l'utilisateur, vous devez utiliser plus Bouton et définir à chaque un ModalResult différent, un case of pour traiter plus de 2 cas sinon un simple if

personnellement, je me crée une fonction de classe Execute qui fait tout ça mais c'est un autre sujet

[sergio_is_back]

TFormPrincipale invoque TForm1 en modale, dans TForm1, aucun code est utile, avec un BitBtn suffit de mettre un ModalResult via l'inspecteur d'objet

Oui c'est vrai, mais c'était aussi pour expliquer à quoi sert ModalResult et montrer que l'on peut lui affecter plusieurs valeurs selon les cas que l'on souhaite....

@marsupilami34 : un petit exemple vaut mieux que de longs discours, je te mets un .ZIP avec deux fiches....

[marsupilami34]

Je ne suis pas sur d'avoir compris cette phrase:

TFormPrincipale invoque TForm1 en modale, dans TForm1, aucun code est utile, avec un BitBtn suffit de mettre un ModalResult via l'inspecteur d'objet

Après j'ai mis le code ci-dessous et l'erreur me remonte toujours

Code :

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

1
2
3
4
5
6
    with TForm1.Create(nil) do
    try
       ShowModal();
    finally
       Free;
    end;

[ShaiLeTroll]

Je ne suis pas sur d'avoir compris cette phrase:

TFormPrincipale invoque TForm1 en modale, dans TForm1, aucun code est utile, avec un BitBtn suffit de mettre un ModalResult via l'inspecteur d'objet

C'est pourtant extrêmement simple, supprimer tous les codes de TForm1, btn1Click = inutile, FormClose = inutile, FormCreate = inutile
poDesktopCenter peut être défini via l'inspecteur d'objet (F11)
Utiliser un TBitBtn définissez Kind à bkClose, le bouton sera opérationnel pour fermer la fenêtre dans aucun code, bkOk ou bkYes sont aussi possibles avec un icone différente

c'est une combinaison incorrecte de code qui provoque cette erreur, vous êtes difficile à suivre, on ne sait pas ce que vous faites réellement, si vous avez suivi tous les conseils depuis le début

Oui c'est vrai, mais c'était aussi pour expliquer à quoi sert ModalResult et montrer que l'on peut lui affecter plusieurs valeurs selon les cas que l'on souhaite.....

En fait, je répondais à Paul Toth qui demandait si TForm1 était bien une fiche secondaire par rapport à TFormPrincipale puis j'ai enchaine directement sur le fait qu'il fallait repartir de zéro et faire simple

[marsupilami34]

Ok, j'ai compris les modifs à faire.
J'ai supprimé toutes les procédures dans la forme.
Mais j'ai un autre message d'erreur qui apparait :

Abstract Error

Vous savez ce que ca peut être ?

Merci d'avance pour votre aide

[Paul TOTH]

à quoi correspond eventFin ?

[marsupilami34]

à quoi correspond eventFin ?

Il s'agit d'une procedure dans la forme principale permettant de saisir des données dans une base

[Paul TOTH]

Il s'agit d'une procedure dans la forme principale permettant de saisir des données dans une base

de façon plus générale, tu nous donnes des éléments de ton code qui semble ne pas être en relation avec l'erreur, je pense que c'est le contexte d'exécution qui pose problème...par exemple appeler la VCL depuis un Thread, faire référence à une variable non renseignée...et ce que tu montres ne permet pas de déterminer la cause.

[pprem]

N'y a-t-il que moi que ce

Code :

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

Application.Createform(TForm1, Form1);

dérange ?

Normalement ça ne se fait que dans le programme avant le

Code :

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

Application.Run;

Pour instance une fiche on fait plutôt ce type de code :

Code :

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

1
2
3
4
5
6
7
 
Form1 := TForm1.Create(Self);
try
form1.ShowModal;
finally
Form1.Free;
end;

et de préférence pas avec Form1 mais plutôt une variable locale, histoire de pas se mélanger les pinceaux avec les variables créées par Delphi et qui pourraient déjà correspondre à une instance de TForm1 si ça n'a pas été retiré des fiches en création automatique dans les options de projet.

Concernant la violation d'accès, le bloc de code qui plante n'a aucun intérêt si ça vient des sources, c'est l'endroit dans ton code qui est utile et pour ça il faut regarder la pile d'appel et te positionner sur le premier source te concernant.

[ShaiLeTroll]

N'y a-t-il que moi que ce Application.Createform(TForm1, Form1); dérange ?

Même si ce n'est pas un problème, c'est une lourdeur inutile, cela fait longtemps que l'on a déjà revu cette partie, ce fut même ma première intervention sur le sujet en #5

et pour l'invocation, le plus propre est

Code :

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

1
2
3
4
5
6
    with TForm1.Create(nil) do
    try
       ShowModal();
    finally
       Free;
    end;

Comme le dit Paul Toth, il doit y avoir une multiple de construction de code approximative qui amène à des exceptions sans queue ni tête.

[pprem]

Même si ce n'est pas un problème, c'est une lourdeur inutile, cela fait longtemps que l'on a déjà revu cette partie, ce fut même ma première intervention sur le sujet en #5

flute, pas vu, le touchpad descend trop vite, pas fais attention que j'avais loupé des interventions

[marsupilami34]

Bonjour à tous,

Voilà où j'en suis aujourd'hui.

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
20
21
22
23
24
25
26
27
28
29
 
procedure TFormPrincipale.eventFin(Sender: TObject);
var
  quality:Boolean;
 
begin
  quality:=True;
 
    Form1:=TForm1.Create(Self);
    try
      Form1.ShowModal();
    finally
      Form1.Free;
    end;
 
 
     Form2:=TForm2.Create(Self);
     try
        if Form2.ShowModal=mrAbort then
          begin
            quality:=false
          end;
     finally
           Form2.Free;
     end;
 
 
 
end;

Form1 et Form2 sont des ficches que j'ai crées contenant des TBitButton

Dans la procédure principale, je fais :

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
20
21
22
23
24
25
program Etuvage;
 
uses
  Forms,
  Windows,
  MaForme1 in 'Forme1.pas' {Form1},
  MaForme2 in 'Forme2.pas' {Form2};
 
{$R *.res}
 
var
  H: THandle;
begin
 
 
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormPrincipale, FormPrincipale);
  Application.CreateForm(TFrmlogin, Frmlogin);
  Application.CreateForm(TCustomDialog, CustomDialog);
  {Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);} // J'ai mis cette partie la en commentaire car j'ai pu lire qu'il ne fallait pas déclarer des sous formes dans le menu principal. Mais meme en enlevant les commentaires, ca ne change rien
  Application.Run;
 
end.

Après rien de plus....

Et j'ai toujours l'erreur suivante qui apparait a la fin du programme



Je ne comprends vraiment pas pourquoi ?

Merci d'avance pour votre aide

Marsup

[marsupilami34]

J'avance un petit peu.

Je viens de tester à tout hasard d'enlever des images dans ma forme. Et l'erreur n'apparait plus.

Vous savez d'ou ca vient ?

[Paul TOTH]

c'est quoi TCustomDialog ?

[ShaiLeTroll]

Et j'ai toujours l'erreur suivante qui apparait a la fin du programme

Maintenant c'est à la fin ? ce n'est plus juste après l'appel du ShowModal ?
Difficile d'avoir les infos.

Sinon Form1 et Form2, ton commentaire n'est pas exacte dans le DPR, ce n'est pas qu'il ne faut pas, c'est à toi de décider du moment juste l'instanciation des fenêtres,
je dirais que Frmlogin et CustomDialog ne devrait pas y être non plus, la fenêtre de login ne devrait pas avoir une durée plus longue que lorsqu'elle est affichée, le placement automatique des nouvelles fiches dans le DPR, j'ai toujours trouvé ça pourrit après que l'on ait déjà une MainForm, cela trompe tous les débutants

Je supprime la variable globale type Form1 et Form2 dès que possible, cela évite toute ambiguité, toute utilisation d'une référence libéré mais non affectée à nil

Est-ce que ton unité jpeg est standard ? c'est du D7 ?
il ne faut pas convertir manuellement avec TJpegImage pour mettre un jpeg dans un TImage, voir si cela est la source du problème en utilisant des BMP


en fin, les uses ? comment TFormPrincipale, TFrmlogin sont déclarés, il n'y a pas leur uses ?
Quel code as-tu supprimé pour laisser un THandle, un code type Mutex pour une instance unique ?

Eh ben, tu as des choses à voir

[marsupilami34]

Alors j'ai remplacé les images et maintenant le problème est résolu
Tout fonctionne

Pour répondres à tes différentes questions :
- j'utilise Delphi 2007
- J'utilise un TImage pour insérer mon image dans la forme
- oui c'est pour créer un mutex ( si mutex déja ouvert alors application déja ouverte)

Merci pour votre aide à tous

Marsup