Discussion :

[ZIED]

J'ai crée l'unité suivante :

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
 
unit shareware;
 
interface
   uses JvCipher, IniFiles, SysUtils, dateUtils;
 
function CheckValidity(Sender: TObject) : boolean;
 
var
  JvVigenereCipher1: TJvVigenereCipher;
  iniDataFile : TIniFile;
 
implementation
 
function CheckValidity(Sender: TObject) : Boolean;
begin
 
 result:=False;
 if Not FileExists('.\config.ini') then  exit;
 
 iniDataFile:=TIniFile.Create('.\config.ini');
 JvVigenereCipher1.Encoded:=iniDataFile.ReadString('master','value1','');
 if StrToDate(JvVigenereCipher1.Decoded) < Today then exit;
 
 JvVigenereCipher1.Decoded:=DateToStr(today);
 iniDataFile.WriteString('master','value3',JvVigenereCipher1.Encoded);
 
 iniDataFile.Free;
 
 result:=true; 
end;
 
end.

Ensuite dans la source de mon programme , j'ai écrit ce code :

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
 
uses
  Forms,
  WINDOWS,
  Unit1 in 'Unit1.pas' {Form1},
  shareware in 'shareware.pas';
 
{$R *.res}
 
 
begin
 
  if not CheckValidity(Application) then exit;
 
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 
end.

J'ai un message d'erreur de lecture/ecriture mémoire qui s'affiche lors de l'éxécution.
Pourriez-vous m'aider à trouver mon erreur?

Merci

[Pedro]

Salut
Il vaudrait mieux que tu fasses:

Code :

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

1
2
3
4
5
6
7
 
Application.Initialize;
if CheckValidity(Application) then
begin
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end;

Non testé mais ça devrait marcher mieux

[ZIED]

J'ai fait ça ne marche pas.

[Pedro]

J'ai fait ça ne marche pas.

C'est à dire? Message d'erreur? Ca ne fait rien? Comment veux-tu que je t'aide si tu ne me donnes pas plus d'indications
T'as essayé de tracer pas à pas ton CheckValidity?

[WebPac]

J'ai crée l'unité suivante :

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
 
unit shareware;
 
interface
   uses JvCipher, IniFiles, SysUtils, dateUtils;
 
function CheckValidity(Sender: TObject) : boolean;
 
var
  JvVigenereCipher1: TJvVigenereCipher;
  iniDataFile : TIniFile;
 
implementation
 
function CheckValidity(Sender: TObject) : Boolean;
begin
 
 result:=False;
 if Not FileExists('.\config.ini') then  exit;
 
 iniDataFile:=TIniFile.Create('.\config.ini');
 JvVigenereCipher1.Encoded:=iniDataFile.ReadString('master','value1','');
 if StrToDate(JvVigenereCipher1.Decoded) < Today then exit;
 
 JvVigenereCipher1.Decoded:=DateToStr(today);
 iniDataFile.WriteString('master','value3',JvVigenereCipher1.Encoded);
 
 iniDataFile.Free;
 
 result:=true; 
end;
 
end.

if StrToDate(JvVigenereCipher1.Decoded) < Today then exit;

Tu peux sortir dans ce cas là sans supprimer l'objet iniDataFile.
Qu'est ce que JvVigenereCipher1 ? Est-il bien créé dans la méthode ?