Oniria297
Messages postés dimanche 14 mars 2004Date d'inscription
18 décembre 2014
Dernière intervention
-
14 avril 2011 à 19:35 - Dernière réponse : Oniria297
Messages postés dimanche 14 mars 2004Date d'inscription
18 décembre 2014
Dernière intervention
- 15 avril 2011 à 11:04
je fais appel à vous car j'ai un gros soucis avec la gestion dynamique de fenêtre.
Je suis en train de construire une application de diagnostique automobile avec des fenêtres qui sont construites en dynamique.
J'ai une fiche FMesSetup qui lorsque l'utilisateur appui sur un bouton, me créé automatiquement une fiche FTrace.
Cette fiche est bien créé par :
function TFMesSetup.addTrace(Name: string): boolean;
var F : TFtrace;
i : integer;
begin
// ajout d'une fenetre trace
try
F:=TFtrace.Create(Application);
//F.Caption:=Name;
F.FormStyle:=fsMDIChild;
i:=1;
while ListObject.IndexOf('TRACE'+inttostr(i))>-1 do i:=i+1;
F.Name:='TRACE'+inttostr(i);
F.Caption:=F.Name;
ListObject.Add(F.Name);
FMesSetup.ListBlocRX.Add('-'+F.Name+';');
Result:=True;
except
Result:=False;
end;
end;
ListObjet me permet de garder dans une liste le nom des objet que j'ai créé. Cette fonction fonctionne parfaitement.
Cette fiche FTrace est défini comme suit :
Les procédure de création de la fiche et de destruction :
procedure TFTrace.FormCreate(Sender: TObject);
begin
Setup:=Tstringlist.Create;
Setup.Clear;
Setup.Add('DISPMODE=3;');
Setup.Add('TIME=3;');
Setup.Add('BLANK=TRUE;');
Setup.Add('UPDATE=200;');
Setup.Add('COLUMNS=Time;ID;SRC;DST;Name;Dir;Length;Data;ASCII;');
SetupTrace;
end;
//******************************************************************************
procedure TFTrace.FormDestroy(Sender: TObject);
begin
Setup.Free;
end;
Le problème vient lorsque j'appui sur le bouton configuration dont le code lancé est :
procedure TFTrace.B_ConfigurationClick(Sender: TObject);
var i : integer;
begin
FTraceSetup.TraceSetupList.Clear;
for i:=0 to Setup.Count-1 do /////////////////// Mon problème est ici
begin
FTraceSetup.TraceSetupList.Add(Setup.Strings[i]);
end;
if FTraceSetup.execute then
begin
Setup.Clear;
for i:=0 to Setup.Count-1 do
begin
Setup.Add(FTraceSetup.TraceSetupList.Strings[i]);
end;
SetupTrace;
end;
end;
Lorsque mon programme essaye d'accéder à Setup (un TStringList qui est créé au moment de la création de FTrace)
que j'ai une erreur : Le projet Diaganalyzer a provoqué une classe d'exception EAccessViolation avec le message "violation d'acces à l'adresse 004981C2 dans le module 'diaganalyzer.exe'.Lecture de l'adresse FFFFFFFF"
Je ne comprend pas parce qu'en pas à pas, la création se passe bien. J'ai déja regardé si Setup était à nil, il ne l'est pas.
Je répéte, FTrace est créé pendant l'execution. quel peux bien être mon erreur.
L'aide delphi nous donne ca :
EAccessViolation est la classe des exceptions des erreurs dues àdes accès incorrects àla mémoire.
EAccessViolation est déclenchée quand une application :
Déréférence un pointeur nil (Delphi)ou NULL (C++).
Ecrit dans la mémoire réservée au code exécutable.
Essaye d'accéder àune adresse mémoire pour laquelle aucune mémoire virtuelle n'est allouée àl'application.
Les informations d'exception àl'exécution sont enregistrées dans des champs fournis par EExternal.
Remarque : Les applications ne doivent pas déclencher directement d'exception EAccessViolation,c'est l'exécution qui déclenche cette exception.
Je comprend ce qui ce passe, mon appli essaye de lire n'importe où mais pourquoi ???? là est le mystére car je n'ai pas libéré Setup pendant l'execution donc il devrait exister.
Si quelqu'un veut bien m'aider, je le remercie d'avance car ca fait 3 jours que je teste plein de chose et rien ne marche...je déprime sec sur ce coup
Oniria297
Messages postés dimanche 14 mars 2004Date d'inscription
18 décembre 2014
Dernière intervention -15 avril 2011 à 11:04
3
Merci
Bonjour Caribensila,
Merci de m'avoir répondu. J'ai essayé ta technique et le problème ne vient pas de là.
J'ai fini par trouver en me posant la question suivante : mon TStringList Setup provoque des erreurs de mémoire alors que le TStringGrid SG_Trace n'a pas de soucis.
Pourquoi ? Alors je me suis dis si le problème venait de l'endroit ou je déclarais "Setup". Je l'ai déplacé de la zone Public vers la zone private. Et là, magie, ca marche.
Pourquoi, je n'en sais rien mais le problème venait de l'endroit où je déclarais Setup.
Je vais donc poser une autre question sur le forum pour comprendre et ne plus faire d'erreur de ce type.
En tout cas, merci beaucoup. C'est la première fois que je m'essaye au fenetre créé dynamiquement et à volonté par l'utilisateur et ce n'est vraiment pas une paire de manche.
Je ne sais pas si ton problème vient de là, mais la fiche principale de ton application est bien un parent MDI ?
FormStyle := fsMDIForm;
Et je mettrais FormStyle:=fsMDIChild dans la déclaration de la classe TFTrace, puis :
function TFMesSetup.addTrace(Name: string): boolean;
var F : TFtrace;
i : integer;
begin
Result : = true;
Application.CreateForm(F, TFTrace);
try
...
except
Result:=False;
end;
end;
_______________________________________
Soutenez Wikimédia France aujourd'hui : http://dons.wikimedia.fr
a aidé 97 internautes ce mois-ci