Discussion :

[YG1985]

Bonjour à tous,

j'ai un problème assez bizarre depuis quelques jours et j'ai essayé plusieurs façons de le régler sans succès. Je suis en train de me faire un petit programme personnel et j'avais arrêté de programmer depuis quelques temps. Je viens de m'y remettre. J'utilise Lazarus comme EDI sous Windows 7 avec le système de fichiers 64bit (je sais que c'est important pour la lecture des fichiers spéciaux) mais je n'arrive pas à trouver pourquoi, lorsque jutilise la fonction FileExists(), elle me renvoie false même si le fichier existe vraiment. Si je tape la fonction manuellement: fileexists('C:\Users\Yan\Documents\fichiertest.txt'); ça me renvoie true mais si je mets le même fichier en variable de type string (convertie ou non en Pchar()) recueillie avec le composant TOpenDialog existe. Même chose avec un AssignFle() qui me renvoie le IOresult 123.

Des suggestions? Merci à l'avance !!

[Ph. B.]

Bonjour,
Un problème de type peut-être ?
Avez vous essayé de comparer la chaine en dur à celle obtenue via le composant TOpenDialog ?

[YG1985]

Voici un petit bout de code pour plus de clarté a mon problème. Oui j'ai essayer la comparaison du contenu de mon edTab (Tedit) qui contient comme texte le résultat de OpenDialog qui est: 'C:\Users\Yan\Documents\test.txt . Ce fichier existe vraiment sur mon PC. Quand je lance le programme, j'ai aucune réponse des 2 fileexists, aucune réponse sur le "match" des 2 strings, un fileage de -1, et un IOresult de 123.

Ce qui me laisse croire que le problème n'est pas dans le code mais dans la redirection des répertoire pour certains windows pour les dossiers systeme, program files, utilisateurs, et autres...mais je crois avoir bien tester cette possibilité avec la fonction ChangeFSRedirection sans succès. Peut-etre que je l'ai mal fais mais je crois pas. Je n'ai plus d'autres idées...

Juste en passant... fileexists('C:\Users\Yan\Documents\test.txt') me renvoie true...

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
 
(...)
if (edTab.text='') then doit:=1
    else
    begin
      ChangeFSRedirection(true);
      if (fileexists(pchar(edTab.text))) then showmessage('Fileexists with Pchar!');
      if (fileexists(edTab.text)) then showmessage('Fileexists without Pchar!');
      if (edTab.text='C:\Users\Yan\Documents\test.txt') then showmessage('They match!');
      showmessage('Age :' + inttostr(fileage(edTab.text)));
      showmessage('Full path: ' + edTab.text);
      ChangeFSRedirection(false);
      {$I-}
        assignfile(fn1,edTab.text);
        reset(fn1);
      {$I+}
      a:=IOresult;
      if (a<>0) then
      begin
        doit:=1;
        showmessage('Fail opening with IOresult: ' + inttostr(a));
      end
      else
      begin
        closefile(fn1);
        showmessage('File opened!');
      end;
    end;   
(...)

[YG1985]

Apres des recherches plus approfondis, je suis presque sur qu'il s'agit des 'Special Folder' de windows 7 et autres. Il me faudrais une fonction qui change le chemin donné en string et le transfert en chemin accepté dans le cas des special folder...

[YG1985]

Je me sent stupide lol...je devais accéder a Filename dans le OpenDialog au lieu de Files.Text .. erreur de débutant