Access violation at address 004046B2

Version imprimable

Bonjour à tous,

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

Citation:

Access violation at address 004046B2

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

Appel de la forme:

Code:

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:

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:

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

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:

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

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:

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:

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:

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

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:

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:

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 :-(

25/09/2020, 12h05
Paul TOTH

Form1 est-elle la seule fiche de l'application ?
25/09/2020, 12h24
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:

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
25/09/2020, 12h38
sergio_is_back

1 pièce(s) jointe(s)

Citation:

Envoyé par 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

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....
25/09/2020, 13h00
marsupilami34
Je ne suis pas sur d'avoir compris cette phrase:

Citation:

Envoyé par 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

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

1 2 3 4 5 6 with TForm1.Create(nil) do try ShowModal(); finally Free; end;
25/09/2020, 14h14
ShaiLeTroll

Citation:

Envoyé par marsupilami34

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

Citation:

Envoyé par 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

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

Citation:

Envoyé par sergio_is_back

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
25/09/2020, 14h30
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 :

Citation:

Abstract Error

Vous savez ce que ca peut être ?

Merci d'avance pour votre aide
25/09/2020, 14h56
Paul TOTH

à quoi correspond eventFin ?
25/09/2020, 15h09
marsupilami34

Citation:

Envoyé par Paul TOTH

à quoi correspond eventFin ?

Il s'agit d'une procedure dans la forme principale permettant de saisir des données dans une base
25/09/2020, 16h07
Paul TOTH

Citation:

Envoyé par marsupilami34

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.
25/09/2020, 17h54
pprem
N'y a-t-il que moi que ce

Code:

Application.Createform(TForm1, Form1);

dérange ?

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

Code:

Application.Run;

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

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.
25/09/2020, 20h31
ShaiLeTroll
Citation:

Envoyé par pprem

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
Citation:
Envoyé par ShaiLeTroll

et pour l'invocation, le plus propre est

Code:

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.
25/09/2020, 21h28
pprem

Citation:

Envoyé par ShaiLeTroll

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

1 pièce(s) jointe(s)

Bonjour à tous,

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

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
 
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:

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

Pièce jointe 580220

Je ne comprends vraiment pas pourquoi ?

Merci d'avance pour votre aide

Marsup

28/09/2020, 11h49
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 ?
28/09/2020, 13h47
Paul TOTH

c'est quoi TCustomDialog ?
28/09/2020, 14h24
ShaiLeTroll

Citation:

Envoyé par marsupilami34

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
28/09/2020, 14h39
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