Posez votre question Signaler

Gestion des fenetre mdi [Résolu]

Messages postés
297
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
 - - Dernière réponse : Oniria
Messages postés
297
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
 - 15 avril 2011 à 11:04
Delphi / Pascal Posez votre question Signaler
Bonjour à tous,

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 :

TFTrace = class(TForm)
SG_Trace: TStringGrid;
ToolBar1: TToolBar;
B_Stop: TToolButton;
B_Pause: TToolButton;
B_TimeMode: TToolButton;
ToolButton4: TToolButton;
B_DisplayMode: TToolButton;
B_Configuration: TToolButton;
ImageList1: TImageList;
TRefresh: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure B_ConfigurationClick(Sender: TObject);
procedure B_TimeModeClick(Sender: TObject);
procedure B_DisplayModeClick(Sender: TObject);
procedure TRefreshTimer(Sender: TObject);
procedure B_StopClick(Sender: TObject);
procedure B_PauseClick(Sender: TObject);
private
{ Déclarations privées }
DispMode : integer;
TimeMode : integer;
Blank : boolean;
CyclicUpdate : integer;
BufferTrace : Array of Byte;
LengthBuffer : integer;
TraceStatus : integer; // status de la fenetre
Tracepause : integer;
n_Column : integer;
Type_Columns : array[0..13] of integer;
Procedure SetupTrace;
public
{ Déclarations publiques }
Setup : TStringList;
Procedure ReadSetup(var ListSetup : TStringList);
Procedure WriteSetup(var ListSetup : TStringList);
Procedure Start;
Procedure Stop;
Procedure Work(var Buffer : Array of byte;Count : integer);
end;

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

Merci


Oniria
Afficher la suite 

Votre réponse

Répondre au sujet

2 réponses

Meilleure réponse
Signaler Commenter la réponse de Oniria
Messages postés
297
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
 2
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.

Cordialement

Oniria

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 153 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Oniria
Signaler Commenter la réponse de Caribensila
Messages postés
2684
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
26 juillet 2018
 10
0
Merci
Salut Oniria,

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
Commenter la réponse de Caribensila

Votre réponse

Répondre au sujet
Posez votre question