Violation d'acces et fichier INI

Version imprimable

Bonjour

Dans mon gestionnaire de configuration de mon programme , j'enregistre les différents infos dans un fichiers Ini, dont voici le code :
Code:

1 2 3 4 5 6 7 8 9 procedure TEnvCfg.Save; begin with TIniFile.Create(DirCfg.CfgDir + 'Env.cfg') do try WriteString('File-Explorer', 'Masks', fFileExplorerMasks); finally Free; end; end;
Ce code qui marche partout quand je l'utilise, ne fonctionne pas aujourd'hui, j'ai une violation d'accès sur la ligne :

Code:

with TIniFile.Create(DirCfg.CfgDir + 'Env.cfg') do

Alors que la même ligne pour l'ouverture des différentes infos marche :
Code:

1 2 3 4 5 6 7 8 9 procedure TEnvCfg.Load; begin with TIniFile.Create(DirCfg.CfgDir + 'Env.cfg') do try fFileExplorerMasks := ReadString('File-Explorer', 'Masks', ''); finally Free; end; end;
Auriez vous une idée?

Merci et bon week end.

23/05/2014, 09h32
Linkin

Soit ton objet TEnvCfg n'existe pas soit DirCfg.
23/05/2014, 09h35
Andnotor

DirCfg n'est pas assigné ?
23/05/2014, 12h41
ThWilliam

Bonjour.

"ce code ne fonctionne pas aujourd'hui."

Je pense que le problème est que ton fichier ini a l'extension CFG que l'on peut classer dans les extensions "système" windows.
Un fichier .cfg est associé à une application installée et recensée dans la base de registres.
Regarde ce lien : http://www.solvusoft.com/fr/file-ext...extension-cfg/

Thierry
23/05/2014, 12h51
Andnotor

Citation:

Envoyé par ThWilliam

Je pense que le problème est que ton fichier ini a l'extension CFG que l'on peut classer dans les extensions "système" windows.
Un fichier .cfg est associé à une application installée et recensée dans la base de registres.

Ça pourrait être un problème avec ShellExecute mais là, aucun rapport ;)
23/05/2014, 17h35
ThWilliam

@Andnotor

Tu as raison : aucun rapport.
Ce qui m'avait mis la puce à l'oreille, c'est que la lecture du fichier ini se fait sans problème. Donc le path est bon.
L'erreur à la sauvegarde ressemble furieusement à un accès non autorisé à l'écriture.

Bon W.E.

Thierry
23/05/2014, 19h31
Ph. B.

Bonjour,

Citation:

Envoyé par ThWilliam

Ce qui m'avait mis la puce à l'oreille, c'est que la lecture du fichier ini se fait sans problème. Donc le path est bon.
L'erreur à la sauvegarde ressemble furieusement à un accès non autorisé à l'écriture.

Vu d'où vient l'erreur ( with TIniFile.Create(DirCfg.CfgDir + 'Env.cfg') do), aucun accès en écriture n'a encore été fait.
Comme l'a dit Andnotor, DirCfg n'est pas affecté lors de la création.
Lors de la sauvegarde, l'object DirCfg n'a t-il pas été déjà détruit ?

Bonjour, voici le code de l'unité complète, J'initialise les différentes classes dans le code du projet en appelant IniOpts. et je la détruit dans la procédure Destroy de la fiche principale avec FreeOpts.

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
unit uCfg;
 
interface
 
type
  TDirCfg = class
    private
      fAppDir: string;
      fCfgDir: string;
      fIcoDir: string;
    public
      constructor Create;
 
      property AppDir: string read fAppDir write fAppDir;
      property CfgDir: string read fCfgDir write fCfgDir;
      property IcoDir: string read fIcoDir write fIcoDir;
  end;
 
  TEnvCfg = class
    private
      // EXPLORATEUR DE FICHIERS \\
      fFileExplorerMasks: string;
    public
      constructor Create;
      procedure Load;
      procedure Save;
      procedure SetDef;
      // EXPLORATEUR DE FICHIERS \\
      property FileExplorerMask: string read fFileExplorerMasks write fFileExplorerMasks;
  end;
 
procedure InitOpts;
procedure FreeOpts;
 
var
  DirCfg: TDirCfg = nil;
  EnvCfg: TEnvCfg = nil;
 
implementation
 
uses
  SysUtils, Forms, IniFiles;
 
procedure FreeOpts;
begin
  EnvCfg.Save;
  EnvCfg.Free;
 
  DirCfg.Free;
end;
 
procedure InitOpts;
begin
  if assigned(DirCfg) then
    DirCfg := TDirCfg.Create;
 
  if assigned(EnvCfg) then
    EnvCfg := TEnvCfg.Create;
end;
 
// TDIRCFG \\
constructor TDirCfg.Create;
begin
  fAppDir := ExtractFilePath(Application.ExeName);
  fCfgDir := fAppDir + 'Configuration\';
  fIcoDir := fAppDir + 'Glyphs\';
end;
 
 
// TENVCFG \\
constructor TEnvCfg.Create;
begin
  SetDef;
  Load;
end;
 
procedure TEnvCfg.Load;
begin
  with TIniFile.Create(DirCfg.CfgDir + 'Env.cfg') do
    try
      fFileExplorerMasks := ReadString('File-Explorer', 'Masks', '');
    finally
      Free;
    end;
end;
 
procedure TEnvCfg.Save;
begin
  with TIniFile.Create(DirCfg.CfgDir + 'Env.cfg') do
//    try
//      WriteString('File-Explorer', 'Masks', fFileExplorerMasks);
//    finally
//      Free;
//    end;
end;
 
procedure TEnvCfg.SetDef;
begin
  fFileExplorerMasks := '';
end;
 
end.

Bon week-end

24/05/2014, 05h19
numeror
Bonjour

En faites apres reflexion et la lecture des reponses, j'ai trouvé le probleme:

au lieu de :
Code:

1 2 3 4 5 if assigned(DirCfg) then DirCfg := TDirCfg.Create; if assigned(EnvCfg) then EnvCfg := TEnvCfg.Create;
j'aurai du mettre NOT avant les différents assignation.

Bonne journée a vous!!!!!!!!!!!!!!!!!