Discussion :

[Leobaillard]

Hello, toujours dans le cadre de mon client mail avec Silk, je suis bloqué sur l'ajout des comptes... J'ai une procédure chargée de trouver les fichiers des comptes pour les enregistrer dans une listview en allant chercher des infos dans un fichier ini. Mia slorsque j'essaie de la faire marcher, j'ai une "access violation"...

Avant d'envahir le forum avec des sources, je voudrais vous demander, surtout aux modérateurs, si je peux afficher le code, parce que c'est assez long. Pas trop, mais quand même. lol !!


Merci d'avance

[Laurent Dardenne]

si je peux afficher le code, parce que c'est assez long. Pas trop,

Je ne pense pas que cela soit la bonne approche car peu de membres liront ton code.
Essaie de cibler le code en erreur.
En revanche tu peux placer l'intégralité de ton source sur une page perso et indiquer l'url.

[Leobaillard]

Ok, je peux pas cibler, c'est ça le problème, je vais donc opter pour la solution page perso.

[Leobaillard]

Bon, je crois que sais d'ou vient le problème, et comme je pense que les sources sont moins grosses que ce que je ne prévoyais, je les met ici. Si vous jugez que ça prend trop de place, dites-le moi, et je supprime.

Code de la fonction qui recherche et ajoute le nom du compte (présent dans le fichier du compte) dans un listview :

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
Procedure TrouverCompte(Dossier : String);
Var
  Info   : TSearchRec;
  MonCpt : TCpt;
begin
  { Recherche de la première entrée du répertoire }
  If FindFirst(Dossier+'*.lcmp',faAnyFile,Info)=0 Then
  Begin
    Repeat
      If((Info.Attr And faDirectory)=0)
        Then
        begin
        MonCpt:=OuvrirCpt(ExtractFilePath(ParamStr(0))+'\profils\'+Info.FindData.cFileName);
        prefs.cptlist.Items.Add.Caption:=MonCpt.name;
        end;
      { Il faut ensuite rechercher l'entrée suivante }
    Until FindNext&#40;Info&#41;<>0;
 
    &#123; Dans le cas ou une entrée au moins est trouvée il faut &#125;
    &#123; appeler FindClose pour libérer les ressources de la recherche &#125;
    FindClose&#40;Info&#41;;
  End;
end;

J'avais mis un ShowMessage qui renvoyait "Info.FindData.cFileName" et ça marchait.
TCpt est un type que j'ai créé.
Et voici le code de la fonction OuvrirCpt (je pense que c'est celle là qui bug...).

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
function OuvrirCpt(IniCompte:String):TCpt;
begin
if fileExists(IniCompte) then begin
IniCompteOpen := TIniFile.Create(IniCompte);
try
result.name:=IniCpt.ReadString('Compte', 'NomPrenom', 'Erreur');
result.email:=IniCpt.ReadString('Compte', 'Adresse', 'Erreur');
result.username:=IniCpt.ReadString('Compte', 'NomUtil', 'Erreur');
result.password:=IniCpt.ReadString('Compte', 'Passe', 'Erreur');
result.srvtype:=IniCpt.ReadString('Compte', 'Type', 'Erreur');
result.popserv:=IniCpt.ReadString('Serveur', 'Pop3', 'Erreur');
result.smtpserv:=IniCpt.ReadString('Serveur', 'SMTP', 'Erreur');
//IniCpt.ReadString('Serveur', 'IMAP', '');
result.smtpautent:=IniCpt.ReadInteger('Conf', 'SMTPAut', 0);
finally
IniCompteOpen.Free;
end;
end else begin
ShowMessage('On est dans le exit');
exit;
end;
end;

Désolé pour la taille et merci d'avance

[Laurent Dardenne]

Désolé pour la taille

On a vu pire au niveau taille de code

[Leobaillard]

Merci, mais je pensais vraiment que ça poserais un problème ! Merci beaucoup J'espère qu'on va trouver la solution...

[Laurent Dardenne]

Je coderais plutôt comme ceci :

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
 
function OuvrirCpt(IniCompte:String):TCpt;
var  IniCompteOpen : TIniFile; ??
begin
 Result:= ??
if fileExists(IniCompte) then
 begin
 try
  IniCompteOpen := TIniFile.Create(IniCompte);
  With Result,IniCpt do
   begin
    name:=ReadString('Compte', 'NomPrenom', 'Erreur');
    email:=ReadString('Compte', 'Adresse', 'Erreur');
    username:=ReadString('Compte', 'NomUtil', 'Erreur');
    password:=ReadString('Compte', 'Passe', 'Erreur');
    srvtype:=ReadString('Compte', 'Type', 'Erreur');
    popserv:=ReadString('Serveur', 'Pop3', 'Erreur');
    smtpserv:=ReadString('Serveur', 'SMTP', 'Erreur');
    //IniCpt.ReadString('Serveur', 'IMAP', '');
    smtpautent:=ReadInteger('Conf', 'SMTPAut', 0);
  end;
 end
 else ShowMessage('On est dans le exit');
 Finally
  IniCompteOpen.Free;
 end;
end;

Result n'est pas renseigné si fileExists(IniCompte)=False. Et avec ce prototype l'appelant ne sait pas si l'opération à réussi ou pas. Déclencher une exception ?
La variable IniCompteOpen ne devrait-elle pas être déclarée en locale ?
Il n'existe pas de notion de bloc 'exit' mais le bloc de finalisation existe bien (finally).
Le message devrait être 'le fichier xxx n'existe pas', bon c'est une bricole.

[Leobaillard]

Merci, merci, merci !!! Ça marche enfin !! Je sais pas très bien ce que ça a fait, mais ça marche...

[Laurent Dardenne]

Je sais pas très bien ce que ça a fait, mais ça marche...

Là mieux vaut comprendre l'erreur sinon tu réaliseras des programmes qui 'tombent en marche'.
C'est certainement laborieux de tracer et débugger mais il n'y a rien de plus formateur, enfin c'est mon avis.

[Leobaillard]

Tout a fait d'accord, mais je pense que ton analyse du problème était bonne puisqu'il n'y a plus d'erreurs, je vais donc veiller à ne pas la refaire ! Merci beaucoup !